VB6实现连接Access数据库的ADODB代码实现方法

这篇文章主要介绍了VB6实现连接Access数据库的ADODB代码实现方法,对于初学者掌握VB链接access数据库有着很好的借鉴价值,需要的朋友可以参考下

本文实例讲述了使用ADODB.Connection连接access数据库的方法，驱动类型版本为：Microsoft.Jet.OLEDB.4.0。在VB的数据库操作中，连接数据库是第一步，也是最基本的，本文所述的这个例子，对于初学者学习如何在VB中连接Access数据库有着很好的借鉴参考价值。

具体实现代码如下：

				?

									VERSION 5.00

									Begin VB.Form 操作数据库 

									  Caption     =  "VB操作数据库"

									  ClientHeight  =  3645

									  ClientLeft   =  4905

									  ClientTop    =  4260

									  ClientWidth   =  5895

									  LinkTopic    =  "Form1"

									  ScaleHeight   =  3645

									  ScaleWidth   =  5895

									End

									Attribute VB_Name = "操作数据库"

									Attribute VB_GlobalNameSpace = False

									Attribute VB_Creatable = False

									Attribute VB_PredeclaredId = True

									Attribute VB_Exposed = False

									Option Explicit

									Private Sub Form_Load()

									Dim 数据库 As Object

									Set 数据库 = New ADODB.Connection

									Call 数据库.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '连接数据库

									If ((数据库.State) = (adStateOpen)) Then

									  MsgBox ("连接成功！")

									Else

									  MsgBox ("连接失败！")

									End If

									数据库.Close

									Set 数据库 = Nothing

									End Sub

这个实例建立了一个名为“数据库”的New ADODB.Connection对象，用此对象增连接数据库，在连接成功后，弹出消息框告之连接结果，在大多数情况下，VB与Access2003之前版本的数据库连接，基本都这样。测试数据库请放在VB同级目录下，Data.mdb可根据自己实际的数据库路径进行修改。