如何通過設置Connection對象屬性連接Access數(shù)據(jù)庫？

1、新建Excel工作簿，打開Visual Basic編輯器，在工程資源管理器中添加一個模塊，在“代碼”窗口中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：

Sub ConnectToAccess()

Dim conn As New ADODB.Connection

conn.Provider="Microsoft.Jet.OLEDB.4.0" '指定Connection對象提供者的名稱

conn.ConnectionString="data source="&_ThisWorkbook.Path&"\dbSource.mdb" '指定Connection對象的連接字符串

conn.Mode=adModeReadWrite '指定數(shù)據(jù)庫讀寫模式

conn.Open '打開到指定數(shù)據(jù)庫的鏈接

Debug.Print conn.ConnectionString '輸出連接字符串

Debug.Print conn.ConnectionTimeout '輸出連接超時時間

Debug.Print conn.Mode '輸出數(shù)據(jù)庫讀寫模式

Debug.Print conn.Provider '輸出提供者名稱

Debug.Print conn.Version '輸出ADO版本號

Debug.Print conn.State '輸出連接當前開啟狀態(tài)

End Sub

圖1　插入模塊并輸入程序

2、按F5鍵運行"ConnectToAccess"過程，此時在“立即窗口”中將會獲取程序運行結果，如圖2所示。

圖2　“立即窗口”輸出結果

提示

這里要注意的是，在"ConnectionToAccess"過程中指定ConnectionString屬性時，只給出了data source相關內(nèi)容，但是在輸出該屬性時，卻獲取了很多內(nèi)容，其中就包含Provider屬性的相關信息。