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

ACCESS 数据库和VB 的连接
Edited by Ryan 2013
1、建立Access 数据库
2、启动VB ,建立标准EXE
图1
添加ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O ）”，出现图3所示界面
3、
F 不再总系i 文个对近梅on
新建 现存 是期
打开口）
帮助
力可导苣天
ActiveX 控 件
I 君 川
舞
序 A CLI vex _21 挡Exa A C -.IT ^ Uh Active!； ILL ActiveX 文
挡Dll 1JHJML 应月
程序 酒谑工程
I K 7，:1 隹也 U 日 民立叶工田痘区出区山T 拜，根式T 岛iH 古化皿 ♦疆 .：：U 曲刀干IAJ.
片R :电电葩 6 c -越工
招＞＞工程1 —
・工方工口若口£七Tx£uail Buxv I
£ 工程I - For&L (Foirft)
口回区
图2
Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图 4 所示控件
施定 I 取消 I Jvffl lA ：
在件 W 牌丁南、小象 Micro soft JIHO Dtia Control 6. 0 (OLEDB.) 定位.C ： \IVinnh'S\syEten3Z\MSWIiD. OCX 二I 上1 — Nicrosoft DatsGri i Control 6 0 [OLIBBJ Niaros'：£+ D+tcLi si Cc -ntr ol= 6. □ (DLEKE Fl i aro z ■:> £t Da.t eRep eater Coritrol 6. D I.0L E riici Jiv fL 21ns co y <_ F 厂~| 之 LiveDapCtrl 1.0 :言愦最 Mier 口匕”ft eEE BarCode CarLtrol 9.0 M i aro s ■:■ £t Ch 4士 Cc-ntrc-L 6. U (.CLEDB. NlCT-33o£t D onm C pn.tr 6. 0 Conmon Dialog Control Q. 0 Dats BoTuid List Controls 6. L 尸.五不山无Lii i 工 HicroEoft H iizro 匕(I ft icroEoft MJO Data Control 6 0 [OLIEE L 添加部件IWicHEoft 居。

口 Data 6.0 Centre E.O[DLEDB ）后出现的控件
加 EHX"41 图4
图3
选择部件
4、添加控件Adodc
Adodc 1 图5
4、在控件Adodc 上添加数据源
鼠标指向控件Adodcl ,单击右键，选择“ADODC 属性"，弹出如图
7所示界面
图6 旨后⑹
旦后代理四
主刁工
早司匚］
其贴（F ）
丑匚 MJ0BC 昆泾 1 — ForaL (Fon)
董，Focal
单击“生成(U)...”，弹出如图8所示界面 埴玦据融接廉件
图8
选择“Microsoft Jet 4.0 OLE DB Provider ”，单击“下一步(N) >>"，弹出如图9所示界面
国理据ift 接属性
提供程序口下 高班|所有
拦定:就设式以il 提到:■….数据
■.工拜或用，、.芟过.=占工.门口
OLE n 提供程序
C 口皿Q 口七1 更i iy £«rvi c 屯 Provi d4i'
FJ L crosoft Jet 3. SI OLE DE Fr ovi ier
||11.*口五口£+ 1白七 L 后 tfii 力百匹nG ； agtr
RI L Cf OS'： £i R L croEoft M L cro=o£+ Fl L cr^sofl. RI i cracoft M L ctrC'so£+ R L crosoft FJ L crosoft N L croscfi FJi ctrocoft
OEEice OLE OLE OLE 口口 OLE OLE OLI OLE 口口 DE DE DB DB DE DE □B DB
DB 12.0 kcce== Il-it-hbue Engim OL£ IlB Pi
Trovi ler Pr C'VL ler T IPTL isr F TOVL d.ar Pr-：'VL ler Trovi ler Jr '：'VL isr
P IOVL ler
Analysis Seyzices 9. 0 Il at a.
MimiLg Sar^ic4s 工ndui 口©
Service Intiimet PuLLi Ehing
ODBC Drivers 01AP Servj ces
3.0 0r-a.'21c SQL Server
fl
SinpLb Frcvi dir NEIlatftSlie.pe
OLE DB Frovi for Hi crosofl Hirectory Services
测试连在I
现,| *书相对
单击”...”，添加数据源（第一步所建Access数据库），如图10所示
程供程序之主商迎|则可|
好定T,底置WS睢Mcsm由蠢:
1.3之或旨••.：：；孱屋1碗：1
|o ： - । - -.. ■：1 , ■.1- 1 ,- -' । - \ 1 1 ,■ ■ -\ ।:、Lh
2.指」上系JTitTM的匕2..
用.■：=£、，*■!，，-.
壁羽［）. I
F亭1号＞1当, 厂兄k T7T7L-庭
图10
单击“测试连接（工）”，出现提示框，如图11所示
图11
之后点击“确定”，退回到如图12所示界面
图12
单击“记录源”，弹出如图13所示界面
图13
在“命令类型”下，选择“1 - adCmdText”，在“命令文本
（SQL）”下，输入”0店戊* from test1"，最后单击“应
用”，“确定”即可
之后，进入程序书写部分
程序部分需要注意接头形式及简单例子如下：
Private Sub Command1_Click() ‘VB 按钮控件
Dim mydb As New ADODB.Connection,定义新的数据库连接
mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ,数据库绝对路径
Dim rs As New ADODB.Recordset,定义数据库的一个对象
mydb.Open ‘打开数据库
rs.Open "select * from test1", mydb, 3, 3 ,打开数据库中的表test1
For i = 1 To 1 ! For循环控制选择哪一行
rs.MoveNext
Next i
Me.Text1.Text = rs.Fields(1).Value ‘读取指定行中的哪个数据给文本框rs.Update ,数据显示
rs.Close ,关闭表
End Sub。