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

ACCESS数据库和VB的连接

Edited by Ryan 2013

1、建立Access数据库

2、启动VB建立标准EXE

图1

3、添加ActiveX控件

鼠标指向任意VB控件单击右键选择“部件O” 出现图3所示界面感谢下载载

图2

图3

感谢下载载

选择部件“MicrosoftADO Data Control 6.0(OLEDB)” 出现如图4所示控件

图4

4、添加控件Adodc

感谢下载载

图5

4、在控件Adodc上添加数据源

鼠标指向控件Adodc1 单击右键选择“ADODC属性” 弹出如图7所示界面

图6

感谢下载载

图7

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

图8

选择“MicrosoftJet4.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_Cl ick()‘VB按钮控件

Dim mydbAs NewADODB.Connection‘定义新的数据库连接mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\read database\test1\test1.mdb"‘数据库绝对路径

Dim rsAs NewADODB.Recordset‘定义数据库的一个对象mydb.Open‘打开数据库rs.Open "select*from test1",mydb,3, 3‘打开数据库中的表test1

For i =1 To 1 ! For循环控制选择哪一行rs.M ove Next

Next i

Me.Text1.Text=rs.Fields(1).Value‘读取指定行中的哪个数据给文本框rs.Update‘数据显示rs.Close‘关闭表

EndSub

感谢下载载

欢迎您的下载资料仅供参考感谢下载载