《vb连接access数据库及数据读写操作.docx》由会员分享，可在线阅读，更多相关《vb连接access数据库及数据读写操作.docx（8页珍藏版）》请在三一办公上搜索。
1、ACCESS数据库和VB的连接Edited by Ryan 20131、2、建立Access数据库启动VB,建立标准EXE图13、添加ActiveX控件鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面W 工程 1 KicrEi-XDft ixuaJL %“匚诙计T 研5艺 仍加:TJtiK藉丈吐 guu (- I LtJ玲LI孑坷正爪十成 仲-一亍专U： U：J图2图3选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图 4 所示控件GeneralA fablIT添加部件Micr osoft ADO Data 6.C Centr
2、al 6.,弹出如图 9 所示界面图9单击“。.。”，添加数据源（第一步所建Access数据库），如图10所示图10单击“测试连接（T）”，出现提示框，如图11所示图11之后点击“确定,退回到如图12所示界面属性页通用身份验证 记录源 颜色 字体连接资源r使用Dita Lilik文件如|浏览演I使用口皿匚数宠资源名称鱼)|3新建地汗使用连接用符串旧)|Provider=MiTcTOEOft. Jet. OLIM.4. O:Iata Sci |叫威:项厂二|其他屋性鱼：|确定 | 职消 |应用也| 帮，|图12单击“记录源”，弹出如图13所示界面图13在“命令类型”下，选择“1 adCmdTex
3、t在“命令文本(SQL)”下，输入“Select大 from test1”，最后单击“应用”，“确定”即可之后，进入程序书写部分程序部分需要注意接头形式及简单例子如下：Private Sub Command1_Click（）VB 按钮控件Dim mydb As New ADODB。Connection 定义新的数据库连接mydbo ConnectionString = Provider=Microsoft.Jet.OLEDB。4。0； Data Source=D： read databasetest1test1.mdb” 数据库绝对路径Dim rs As New ADODB.Recordset定义数据库的一个对象mydbo Open 打开数据库rs。Open select * from test1， mydb, 3， 3 打开数据库中的表 test1For i = 1 To 1! For循环控制选择哪一行rs.MoveNextNext iMe.Textlo Text = rs.Fields (1)。Value 读取指定行中的哪个数据给文本框rs.Update数据显示rs.Close 关闭表End Sub
