(完整版)vb连接access数据库及数据读写操作.docxVIP

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