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可根據自己實際的數據庫路徑進行修改。