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

具体实现代码如下：

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可根据自己实际的数据库路径进行修改。