本文實例講述了使用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" ScalefHeight = 3645 Scight VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Load()Dim 資料庫As ObjectSet 資料庫, Source=Data.mdb;") '連接資料庫If ((資料庫.State) = (adStateOpen)) Then MsgBox ("連線成功!")Else MsgBox ("連線失敗!")End If資料庫.CloseSet 資料庫= NothingEnd Sub這個實例建立了一個名為「資料庫」的New ADODB.Connection對象,用此對象增連接資料庫,在連接成功後,彈出訊息框告之連接結果,在大多數情況下,VB與Access2003之前版本的資料庫連接,基本上都這樣。測試資料庫請放在VB同級目錄下,Data.mdb可依自己實際的資料庫路徑進行修改。