《vb连接access数据库及数据读写操作(可编辑修改word版).docx》由会员分享，可在线阅读，更多相关《vb连接access数据库及数据读写操作(可编辑修改word版).docx（7页珍藏版）》请在三一办公上搜索。
1、ACCESS数据库和VB的连接Edited by Ryan 20131、建立Access数据库2、启动VB，建立标准EXEActiveX SL 档DllUHIML ,应用 程序ActiveX 挡EeActiveX K厂不再显示该个对话框敏图13、添加ActiveX控件鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面K.工程 1 - KLcroxa-ft Visuarl Baarii:森计ififar g”: t；tik giu, guij(- iitj EiJm-5 W llj捌唯j b成电工程 1 一 FoxmI CFotm)如i 0 -i _j回四、部件控件 设il铝可
2、墙入对凉LiveDapC tri 1.0 ；i言梗踱L：dl&Edar L：oritn：il 1Z. ijChart Controil 6.0 flJLEDB Conn Control B. QCojtifion Di Contr :1 B. 0IL Microsoft Microsoft Microzaft Filler ocott Fii-zr：S：l Micrgsoft 匚Microsoft ricroEoft Microsoft 111Bat a. Eoiitd Li si Coiuirol s E. LIia.ta.Gr id Contr S. 0 OUDB) BataList Co
3、ntrtils &.0 (OLEIif Batalepealer CoratrDl 6. 0 (01 DIE SO呈亍选定顶)Mi crosoEi AlU Lata Control 6. 0 (OLEIlB)定应：I? inWBOWSV 5ysten32MSAlODC .CCK曰探 I .奇用r图3选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图 4 所示控件l i shi ODBZ UriverE OLAF1 Sr-rLcss 8. 0 Oracle EQL SflrverBinile Pruri derOLE HE Prwid.tr for
4、 Ih crosofi Bitrcctory Seiva=一声迅）： ：图8选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步（N） ”，弹出如图9所示界面 扫亍设置i炬皆61众心“教牲 .选择或输期&皿称如：单击“.”，添加数据源（第一步所Access数据库），如图10所示触据锭枝反性区）法供在序连技商成所有指定F列食置癖授到 疝：1迁府q；k芝足彳为Ili.Srtftd d.4t-a，b43Et5tltt=tL. aidb|； |9输偈录教捐的悟JB:用尸苫肺M）：a血比酣正:|F?空白 诵 旧 厂北祥保存密阿匿）回；浮世1图10单击“测试连接（T）”
5、，出现提示框，如图11所示Ilcrosoft数据链挨魔ij训试连搂成功口=:.一嘛正；图 11之后点击“确定”，退回到如图2所示界面图12单击“记录源”，弹出如图3所示界面图13在“命令类型”下，选择“ 1 - adCmdText”，在“命令文本（SQL）”下，输入“Select* from testl”，最后单击应用”，“确定”即可之后，进入程序书写部分程序部分需要注意接头形式及简单例子如下：Private Sub Command1_Click() VB 按钮控件Dim mydb As New ADODB.Connection 定义新的数据库连接mydb.ConnectionString =
6、 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:read databasetest1test1.mdb 数据库绝对路径Dim rs As New ADODB.Recordset定义数据库的一个对象mydb.Open 打开数据库rs.Open select * from test1, mydb, 3, 3 打开数据库中的表 test1For i = 1 To 1! For循环控制选择哪一行rs.MoveNextNext iMe.Text1.Text = rs.Fields(1).Value 读取指定行中的哪个数据给文本框rs.Update数据显示rs.Close 关闭表End Sub
