(完整版)vb连接access数据库及数据读写操作

ACCESS^据库和VB的连接

Edited by Ryan 2013

1、建立Access数据库

2、启动VB,建立标准EXE

r?l®

图1

3、添加ActiveX控件

鼠标指向任意VB控件，单击右键，选择"部件( O)”，出现图3所示界面片-llfil Ai£；xo

立哼血第邑氐後圍①工絵血恪式血谧咕边迄有匸言诃帥

目• Li * *■耳日

一F GTA I (For*)

A N

厢Fcut乔F

丘”町-iliHJ'.L

口

圖

■

1.0 启侵蓝

Sicr-iEoft hc»is BtrCile Cntrol 9.0

fillers so ft Will D^T 4 Cootrcil 冬0 IDLJIE J

licr^tdft Ctll-ndltr CraLrel 12 0

L Chut C4LtF91 E.O (CLED3)

IU GTO初It Cunir> CtnlroL &. 0

Nicrgisoft ConRidn Di&l'js Ccurikrtl 3 0

Hicroioft Dtlt Bm-d List Canirols 6.C

Nicroidft QtlfiiGri i Control 6 0 UU1B) 匚0■

肛辽CQ^trdE 6. 0 COLE DE 匚lliarjs^ft C OT.^FP16- D 口

IlicrQsgft 7阳60

< >

Micro soft 110 D A I Q Cineol 6.0 (OLEDEt)

定fir. C. 'iTIBKrtS \ i js t EffcK'illSiK® C. C CX

图3

选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ” ,出现如图4 所示控件2J & 二

r- B“* -si-

i；•同同

图5

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

鼠标指向控件Adodcl ，单击右键，选择“ ADODC 属性”，弹出如图

4、添加控件Adodc

7所示界面

图7

单击“生成（"）• • •” ,弹出如图8所示界面

图8

选择“ Microsoft Jet 4.0 OLE DB Provider” ,单击“下一步(N) >>”,弹出如图9所示界面

图9

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

图10

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

图11

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

输入“ Select * 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下：

Private Sub Command1_Click() VB 按钮控件

Dim mydb As New ADODB.Connection 定义新的数据库连接

mydb.Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.O;Data database\test1\test1.mdb" 数据库绝对路径

Dim rs As New ADODB.Recordset 定义数据库的一个对象

mydb.Ope n 打开数据库

rs.Ope n "select * from test1", mydb, 3, 3 打开数据库中的表 test1

图12

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

Source=D:\read 图13

在“命令类型”下，选择“ 1 - adCmdText ”，在“命令文本 (SQD ”下 from test1 ”，最后单击“应用”，“确定”即可

Next i

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

rs.Close ‘关闭表

End Sub For i = 1 To 1

rs.MoveNext ! For 循环控制选择哪一行