vb连接access数据库及数据读写操作(可编辑修改word版).docx

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铝可墙入对凉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 Contrtils &.0 (OLEIif Batalepealer CoratrDl 6. 0 (01 DIE SO呈亍选定顶'£)Mi crosoEi A£lU Lata Control 6. 0 (OLEIlB)定应：I? inWBOWSV 5ysten32MSAlODC .CCK曰探 I .奇用r图3选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图 4 所示控件<?«&« 41JJ±1&-J£i添如番件 MrrcmoFt ADO Dw 混 £.口 Centre! 6一0( IDLE Ci引后出现的控件 I,3图44、添加控件Adodc图54、在控件Adodc上添加数据源鼠标指向控件Adodcl，单击右键，选择“ADODC属性”，弹出如图所示界面图7单击“生成（旦）.”，弹出如图8所示界面OLE BB提供程序ConDewlL S er7"j.ce Pr pvi derINicrdsoEt Jc-t 3 5L OLE DE FlroviiarnicrosuttHicraaElIHi crdsoEtIfliorast'EtFlicrosoftIflicrasoEtIflicrosciFtHiarasoEt1icrQ3oEtOfficeOLEOLEOLEOLEOLEOLEOLEOLEOLEDBDEDB破DBD3DB1Z.0 Access Database E典inw OLE Iffl FPrav: darPr ova ierFrav: dbrPrava dtt"Provi d&rErava iltrProvi derPtav: derAn.-aly£ s s Servi c&s 9. Data N a jlldc Sem cez IndccriTtg Sawi c& IriteiTLe t Put>l i shi ODBZ UriverE OLAF1 Sr-rLcss 8. 0 Oracle EQL SflrverBinile Pruri derOLE HE Prwid.tr for 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，b43Et«5tltt=tL. aidb|；" |9输偈录教捐的悟JB:用尸苫肺M）：a血比酣正:|F?空白 诵 旧 厂北祥保存密阿匿）回；浮世1'图10单击“测试连接（T）”，出现提示框，如图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 = "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