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

ACCESS数据库和VB的连接
EditedbyRyan2013
建立Access数据库
启动VB，建立标准EXE

图1
添加ActiveX控件
鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面

图2

图3
选择部件“MicrosoftADODataControl6.0(OLEDB)”，出现如图4所示控件

图4

4、添加控件Adodc

图5
在控件Adodc上添加数据源
鼠标指向控件Adodc1，单击右键，选择“ADODC属性”，弹出如图7所示界面

图6

图7
单击“生成(U)...”，弹出如图8所示界面

图8
选择“MicrosoftJet4.0OLEDBProvider”，单击“下一步(N)>>”，弹出如图9所示界面

图9
单击“...”，添加数据源（第一步所建Access数据库），如图10所示

图10
单击“测试连接（T）”，出现提示框，如图11所示

图11
之后点击“确定”，退回到如图12所示界面

图12
单击“记录源”，弹出如图13所示界面

图13
在“命令类型”下，选择“1-adCmdText”，在“命令文本（SQL）”下，输入“Select*fromtest1”，最后单击“应用”，“确定”即可

之后，进入程序书写部分
程序部分需要注意接头形式及简单例子如下：
PrivateSubCommand1_Click()‘VB按钮控件
DimmydbAsNewADODB.Connection‘定义新的数据库连接
mydb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\readdatabase\test1\test1.mdb"‘数据库绝对路径
DimrsAsNewADODB.Recordset‘定义数据库的一个对象
mydb.Open‘打开数据库

rs.Open"select*fromtest1",mydb,3,3‘打开数据库中的表test1
Fori=1To1!For循环控制选择哪一行
rs.MoveNext
Nexti
Me.Text1.Text=rs.Fields(1).Value‘读取指定行中的哪个数据给文本框
rs.Update‘数据显示
rs.Close‘关闭表
EndSub