ACCESS数据库和 VB 的连接
Edited by Ryan 2013
1、建立 Access 数据库
2、启动 VB，建立标准EXE
图 1
3、添加 ActiveX 控件
鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图 3 所示界面图2
图3
选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ”，出现如图 4 所示控件图4
4、添加控件Adodc
图5
4、在控件 Adodc 上添加数据源
鼠标指向控件Adodc1 ，单击右键，选择“ADODC 属性”，弹出如图7 所示界面图6
图7
单击“生成(U). . .”，弹出如图8 所示界面
图8
选择“ Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图 9 所示界面
图9
单击“ . . .”，添加数据源（第一步所建Access 数据库），如图 10 所示
图10
单击“测试连接（T）”，出现提示框，如图11 所示
图11
之后点击“确定” ，退回到如图12 所示界面
图12
单击“记录源” ，弹出如图13 所示界面
图13
在“命令类型”下，选择“ 1 - adCmdText”，在“命令文本（ SQL）”下，输入“ Select * from test1 ”，最后单击“应用”，“确定”即可
之后，进入程序书写部分
程序部分需要注意接头形式及简单例子如下：
Private Sub Command1_Click()‘VB按钮控件
Dim mydb As New ADODB.Connection ‘定义新的数据库连接
mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径
Dim rs As New ADODB.Recordset ‘定义数据库的一个对象
mydb.Open‘打开数据库
rs.Open "select * from test1", mydb, 3, 3‘打开数据库中的表test1
For i = 1 To 1 ! For 循环控制选择哪一行
rs.MoveNext
Next i
Me.Text1.Text = rs.Fields(1).Value‘读取指定行中的哪个数据给文本框rs.Update‘数据显示
rs.Close‘关闭表
End Sub。