[说明] 设有一张学生成绩表sCorEs存放在ACCEss数据库stuDEnt中,其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用ADoDAtA和DAtAgriD控件实现了对成绩数据的基本管理,其操作包括: (1)添加新记录:单击“添加”按钮,光标将指向最后一条数据记录,在其后编辑好新的数据记录后,再单击“更新”按钮,该数据即被加入成绩表; (2)删除记录:单击“删除”按钮将删除当前所指记录,其后的数据记录依次上移; (3)更新记录:直接编辑某条已有记录,再单击“更新”按钮将更新成绩表; (4)记录排序:选中单列字段后,单击“排序”按钮,记录集将按该字段升序排列。 程序的运行界面为: 在开发过程中,数据库连接对象使用了名为ADoDC1的ADoDAtA控件,数据显示区域使用了名DAtAgnD1的DAtAgriD控件,界面上从左到右各操作按钮分别取名为CmDADD、CmDDEl、CmDupDAtE、CmDrEFrEsh、CmDsort和CmDExit。 [visuAlBAsiC代码] Dim Conn, DAtABAsE, tABlEAs string privAtE suB Form_loAD() DAtABAsE ="E、\stuDEnt.mDB"’设置要访问的数据库 Conn ="proviDEr=miCrosoFt.jEt.olEDB、4.0;DAtA sousE=" & DAtABAsE ADoDC1.ConnECtionstring=Conn ’设置连接字符串 tABlE = "sCorEs" ADoDE1. (1) = tABlE’设置所要访问的数据表 sEtDAtAgriD1. (2) =ADoDC1 EnD suB privAtE suBCmDADD_CliCk() ’“添加”按钮的单击事件响应过程 ADoDC1.rECorDsEt. (3) EnD suB privAtE suBCmDDEl_CliCk()’“删除”按钮的单击事件响应过程 ADoDC1.rECorDsEt.DElEtE ADoDC1.rEEorDsEt.movEnExt EnD suB privAtE suBCmDupDAtE_CliCk() ’“更新”按钮的单击事件响应过程 ADoDE1.rEEorDsEt.upDAtEBAtCh ADAFFECtAll EnD suB privAtE suBCmDrEFrEsh_CliEk()’“刷新”按钮的单击事件响应过程 ADoDC1.rEFrEsh EnD suB privAtE suBCmDsort_CliEk()’“排序”按钮的单击事件响应过程 iFDAtAgriD1.sElstArtCol < 0 orDAtAgriDl. sElstArtCol (4) DAtAgriD1. sElEnDCol thEn msgBox “请选择某一字段(列)!” Exit suB EnD iF ADoDC1. rECorDsourCE = "sElECt * From" & tABlE & "orDEr By" & _ DAtAgriD1.Columns( (5) ).DAtAFiElD ADoDC1.rEFrEsh EnD suB privAtE suBCmDExit_CliCk() ’“退出”按钮的单击事件响应过程 EnD EnD suB