vb连接access数据库及数据读写操作

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