关于VB6 + Access的简单数据库应用问题最近，经常看到有人提问相关问题，心血来潮有一股冲动，把这个方面的应用在这里介绍一下。我使用过的VB6提供的数据库连接控件有两个，一个是Data控件另一个是Adodc控件。考虑到Data控件只能针对本地数据库的开发应用，并且它只支持VB5中的网格控件DBGrid控件，所以这里主要介绍Adodc控件。（注意：VB5的DBGrid控件，需要把DBGRID32.OCX文件复制到c:\windows\system32\DBGRID32.OCX进行引用）下面介绍使用Adodc控件与DataGrid控件进行简易数据库的应用：一．添加Adodc控件与DataGrid控件：因为这两个控件默认状态下都不在“控件工具箱”内，所以需要手动添加到“控件工具箱”内。1．添加Adodc控件：在VB6里，通过菜单来添加该控件，方法：[工程] -- [部件]，出现“部件”对话框，在“控件”选项卡里，通过滚动条，找到并勾选：Microsoft Ado Data Control 6.0 (SP6) (OLEDB)，然后单击[确定]，这样该控件图标就出现在“控件工具箱”里了，你可以像使用其它你熟悉的控件一样，添加到窗体上。2．添加DataGrid控件:方法与过程与添加Adodc控件过场相似，勾选的是：Microsoft DataGrid Control 6.0 (SP6) (OLEDB)。二．连接数据：为了说明，假设你有数据库文件“数据库.Mdb”，在里边有数据表“学生基本信息”和“学生成绩”。“学生基本信息”有字段：学号、姓名、性别（都是字符类型）“学生成绩”有字段：学号、语文、数学、英语（学号字符类型，其它数值类型）假设你添加的控件为：Adodc1和DataGrid。1．先将Adodc1控件连接到数据库文件：（有两种方法）方法1：设置Adodc1的ConnectionString属性，在属性窗口点带有省略号的按钮…选[生成] -- 选Microsoft Jet 4.0 OLE DB Privider -- [下一步]--单击省略号按钮，定位到你保存“数据库.MDB”的位置，选中该数据库，单击[打开]，连接成功了，可以测试一下。回到窗体，你会看到Adodc1的ConnectionString 属性里的一大串内容。方法2：也可以用命令直接设置连接，在运行时通过执行该命令来完成连接，命令如下：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\ADODC控件实例\数据库.mdb;Persist Security Info=False"，值得说明以下，这个双引号里的内容，是我的实际情况，因为我在VB98文件夹里，建立了子文件夹“\ADODC控件实例”，并把使用的数据库文件复制到该文件夹里了。这里引号里的一大串内容，你可以从刚在属性窗口里直接复制过来，然后做一些改动，要注意这个改动往往是必要的也是非常关键的，因为考虑到一般情况，你的应用程序不可能安装到“\VB98”这个文件夹，所以一般的改动如下：将“Source=C:\Program Files\Microsoft Visual Studio\VB98\ADODC控件实例\数据库.mdb”改为“Source=" & App.Path & "\数据库.mdb”即完整的情况如下：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"接下来连接到数据表“学生基本信息”：方法1：设置Adodc1的RecordSource 属性，在属性窗口点带有省略号的按钮，在“命令类型”里，选:2 – adCmdTable，在"表或存储过程名称"里，选“学生基本信息”，单击确定，你会看到ADODC1的RecordSource 属性栏里是“学生基本信息”。方法2：也可以用命令直接设置连接：Adodc1.RecordSource = "学生基本信息"至此，完成了ADODC1控件与数据库的连接。三．将DataGrid1绑定到ADODC1控件：选中窗体上的DataGrid1，设置其DataSource 属性，点右边的下拉按钮，选ADODC1，完成绑定。设置DataGrid1显示内容与模式，右击窗体上的DataGrid1控件，选"检索字段"，选[Y]，完成。至此，你启动窗体，就可以在DataGrid1控件里看到效果了。可以右击窗体上的DataGrid1控件，选“属性”，进一步作设置，比如：“允许添加”、“允许删除”。四．常用操作数据库的命令:1．刷新记录集：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False" ‘连接数据库文件Adodc1.RecordSource = "学生基本信息" ‘连接数据表Adodc1.Refresh ‘刷新记录集，这个不能漏2．移动记录：Adodc1.Recordset.MoveFirst ‘记录指针移动到第1条记录Adodc1.Recordset.MoveNext ‘记录指针移动到下1条记录Adodc1.Recordset.MoveLast ‘记录指针移动到最后1条记录Adodc1.Recordset.MovePrevious 记录指针移动到前1条记录注意：上面执行Adodc1.Refresh后，如果数据表非空，就自动将记录指针指向第1条记录。3．编辑更新数据：首先将记录移动到需要编辑更新的记录，当然在DataGrid1里可以直观地进行修改编辑，也可以用命令；Adodc1.Recordset.Fields ("姓名") = “王伟” ‘用“王伟”更新当前记录的“姓名”字段Adodc1.Recordset.Update ‘执行更新，注意这一步不能漏当然，你可以对某条记录的若干个字段进行更新后，再一次进行Update4．添加记录：Adodc1.Recordset.AddNew ‘在数据表的末尾添加一条空记录（所有字段为空）说明：如果用命令要增加一条记录信息，通常：1）先用AddNew2）然后用：For i = 0 To Adodc1.Recordset.Fields.Count - 1 Adodc1.Recordset.Fields(i) = 内容iNext i3）最后用：Adodc1.Recordset.Update5．删除记录：首先移动到你要删除那条记录，然后执行：Adodc1.Recordset.Delete五．关于SQL语句在连接数据表时的一些基本用法：前面介绍用Adodc控件连接好数据库文件后，要设置其RecordSource来连接数据表，即：Adodc1.RecordSource = "学生基本信息"其实RecordSource属性，可以使用SQL语法，常用Select语句格式如下：Select 字段列表 From 数据表名 [Where …] [Order By …]其中：字段列表– 是指返回的记录，包含哪些字段，字段名之间用逗号分隔数据表名 -- 是指从哪个数据表返回信息例如1：Adodc1.RecordSource = "Select 学号,姓名 From 学生基本信息"例如2：Adodc1.RecordSource = "Select * From 学生基本信息"例2的结果与Adodc1.RecordSource = "学生基本信息"相同。其中“*”表示所有字段。Where子句– 根据条件筛选记录Order By 子句– 设置排序例如3：Adodc1.RecordSource = "Select * From 学生基本信息 Where 性别=’女’"仅返回女生记录。例如4：Adodc1.RecordSource = "Select * From 学生基本信息 Where 学号>’300’ And性别=’男’"仅返回学号大于“300”的男生记录。例如5：Adodc1.RecordSource = "Select * From 学生基本信息 Order By 学号"按照学号从小到大（升序）的次序，返回记录。例如6：Adodc1.RecordSource = "Select * From 学生基本信息 Order By 学号/D"按照学号从大到小（降序）的次序，返回记录。注意：/D表示从大到小，/A表示从小到大，/A是缺省表示。关于SQL语法，可以到以下网址查询并运用，非常有价值：http://www.w3school.com.cn/sql/六．小技巧：在使用Adodc1的时候，有一些值得注意的细节：1．关于Adodc1控件的Eof、Bof属性Eof – 返回数据表（或返回的记录集）记录指针是超出表尾Bof – 返回数据表（或返回的记录集）记录指针是超出表头怎么理解呢？假设你的数据表只有一条记录，当你一开始使用了：Adodc1.Refresh后，这时记录指针指向第1条也是唯一的1条记录，这时候Adodc1的Eof和Bof属性都为False（记录指针既没有超出表尾也没有超出表头），如果这时候使用移动到下一条记录命令：Adodc1.Recordset.MoveNext那么，Eof为True，Bof 为False。然后，使用命令Adodc1.Recordset.MovePrevious ‘移动到前一条记录这时，记录指针指向第1条也是唯一的1条记录，Eof为False，Bof 为False。然后，使用命令Adodc1.Recordset.MovePrevious ‘移动到前一条记录这时，指针向前超出表头，即：Eof为False，Bof 为True。特别的情况，假设你的数据表没有任何记录，当你一开始使用了：Adodc1.Refresh这时，Eof为True，Bof 为True。通常使用这两个属性来判断数据表（或返回的记录集）是否为空：1）有时候一些数据表一开始可能是空表，即没有记录，但是我们又不知道，通常如下编写代码：Adodc1.RefreshIf Adodc1.Recordset.EOF And Adodc1.Recordset.BOF Then ‘编写当不存在记录时对数据表操作的代码Else ‘编写当存在记录时对数据表操作的代码End If2．关于空字段的操作：我们经常需要将找到的某记录的某个字段值，赋予变量，例如Dim XB As StringAdodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"Adodc1.RecordSource = "Select * From 学生基本信息 Where 姓名=’张飞’"Adodc1.RefreshXB = Adodc1.Recordset.Fields("性别")这时，如果该记录的"性别"字段里没有内容，将会出错误提示，所以，我们往往在命令中使用函数IsNull进行判断：If Not IsNull(Adodc1.Recordset.Fields("性别")) ThenXB = Adodc1.Recordset.Fields("性别")EndIf最后，Adodc控件不仅可以连接本地数据库，还可以连接远程数据库，使用几乎与本地数据库一样。大概想到的就是这些，仅供参考，有不正确的地方请指正。
