Question

vb连接数据库 求教！！！。。。

Answer 1

关于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 ‘执行更新，注意这一步不能漏
当然，你可以对某条记录的若干个字段进行更新后，再一次进行Update
4．添加记录：
Adodc1.Recordset.AddNew ‘在数据表的末尾添加一条空记录（所有字段为空）
说明：如果用命令要增加一条记录信息，通常：
1）先用AddNew
2）然后用：
For i = 0 To Adodc1.Recordset.Fields.Count - 1
Adodc1.Recordset.Fields(i) = 内容i
Next i
3）最后用：Adodc1.Recordset.Update
5．删除记录：
首先移动到你要删除那条记录，然后执行：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.Refresh
If Adodc1.Recordset.EOF And Adodc1.Recordset.BOF Then
‘编写当不存在记录时对数据表操作的代码
Else
‘编写当存在记录时对数据表操作的代码
End If
2．关于空字段的操作：
我们经常需要将找到的某记录的某个字段值，赋予变量，例如
Dim XB As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select * From 学生基本信息 Where 姓名=’张飞’"
Adodc1.Refresh
XB = Adodc1.Recordset.Fields("性别")
这时，如果该记录的"性别"字段里没有内容，将会出错误提示，所以，我们往往在命令中使用函数IsNull进行判断：
If Not IsNull(Adodc1.Recordset.Fields("性别")) Then
XB = Adodc1.Recordset.Fields("性别")
EndIf
最后，Adodc控件不仅可以连接本地数据库，还可以连接远程数据库，使用几乎与本地数据库一样。
大概想到的就是这些，仅供参考，有不正确的地方请指正。