1、ACCESS 数据库和 VB 的连接Edited by Ryan 20131、 建立 Access 数据库2、 启动 VB，建立标准 EXE图 13、 添加 ActiveX 控件鼠标指向任意 VB 控件，单击右键，选择“部件（O） ”，出现图 3 所示界面图 2图 3选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图 4 所示控件图 44、添加控件 Adodc图 54、 在控件 Adodc 上添加数据源鼠标指向控件 Adodc1，单击右键，选择“ADODC 属性” ，弹出如图 7 所示界面图 6图 7单击“生成 (U). . .”，弹出如图 8
2、所示界面图 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”，最后单击 “应用 ”， “确定”即可之后，进入程序书写部分程
3、序部分需要注意接头形式及简单例子如下：Private Sub Command1_Click() VB 按钮控件Dim mydb As New ADODB.Connection 定义新的数据库连接mydb.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:read databasetest1test1.mdb“ 数据库绝对路径Dim rs As New ADODB.Recordset 定义数据库的一个对象mydb.Open 打开数据库rs.Open “select * from test1“, mydb, 3, 3 打开数据库中的表 test1For i = 1 To 1 ! For 循环控制选择哪一行rs.MoveNextNext iMe.Text1.Text = rs.Fields(1).Value 读取指定行中的哪个数据给文本框rs.Update 数据显示rs.Close 关闭表End Sub
