怎么通過(guò)設(shè)置Connection對(duì)象屬性連接Access數(shù)據(jù)庫(kù)

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

Sub ConnectToAccess()

Dim conn As New ADODB.Connection

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

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

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

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

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

Debug.Print conn.ConnectionTimeout '輸出連接超時(shí)時(shí)間

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

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

Debug.Print conn.Version '輸出ADO版本號(hào)

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

End Sub

圖1　插入模塊并輸入程序

2、按F5鍵運(yùn)行"ConnectToAccess"過(guò)程，此時(shí)在“立即窗口”中將會(huì)獲取程序運(yùn)行結(jié)果，如圖2所示。

圖2　“立即窗口”輸出結(jié)果

提示

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