VB6實現串連Access資料庫的ADODB代碼實現方法_vb

本文執行個體講述了使用ADODB.Connection串連access資料庫的方法，驅動類型版本為：Microsoft.Jet.OLEDB.4.0。在VB的資料庫操作中，串連資料庫是第一步，也是最基本的，本文所述的這個例子，對於初學者學習如何在VB中串連Access資料庫有著很好的借鑒參考價值。

具體實現代碼如下：

VERSION 5.00Begin VB.Form 操作資料庫   Caption     =  "VB操作資料庫"  ClientHeight  =  3645  ClientLeft   =  4905  ClientTop    =  4260  ClientWidth   =  5895  LinkTopic    =  "Form1"  ScaleHeight   =  3645  ScaleWidth   =  5895EndAttribute VB_Name = "操作資料庫"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Load()Dim 資料庫 As ObjectSet 資料庫 = New ADODB.ConnectionCall 資料庫.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '串連資料庫If ((資料庫.State) = (adStateOpen)) Then  MsgBox ("串連成功！")Else  MsgBox ("串連失敗！")End If資料庫.CloseSet 資料庫 = NothingEnd Sub

這個執行個體建立了一個名為“資料庫”的New ADODB.Connection對象，用此對象增串連資料庫，在串連成功後，彈出訊息框告之串連結果，在大多數情況下，VB與Access2003之前版本的資料庫連接，基本都這樣。測試資料庫請放在VB同級目錄下，Data.mdb可根據自己實際的資料庫路徑進行修改。