VB6实现连接Access数据库的ADODB代码实现方法
本文实例讲述了使用ADODB.Connection连接access数据库的方法，驱动类型版本为：Microsoft.Jet.OLEDB.4.0。在VB的数据库操作中，连接数据库是第一步，也是最基本的，本文所述的这个例子，对于初学者学习如何在VB中连接Access数据库有着很好的借鉴参考价值。
具体实现代码如下：
VERSION5.00
BeginVB.Form操作数据库
Caption="VB操作数据库"
ClientHeight=3645
ClientLeft=4905
ClientTop=4260
ClientWidth=5895
LinkTopic="Form1"
ScaleHeight=3645
ScaleWidth=5895
End
AttributeVB_Name="操作数据库"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
OptionExplicit
PrivateSubForm_Load()
Dim数据库AsObject
Set数据库=NewADODB.Connection
Call数据库.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=Data.mdb;")'连接数据库
If((数据库.State)=(adStateOpen))Then
MsgBox("连接成功！")
Else
MsgBox("连接失败！")
EndIf
数据库.Close
Set数据库=Nothing
EndSub
这个实例建立了一个名为“数据库”的NewADODB.Connection对象，用此对象增连接数据库，在连接成功后，弹出消息框告之连接结果，在大多数情况下，VB与Access2003之前版本的数据库连接，基本都这样。测试数据库请放在VB同级目录下，Data.mdb可根据自己实际的数据库路径进行修改。