通過設置Connection對象屬性連接Access數(shù)據(jù)庫的方法，作為經(jīng)常和辦公軟件打交道的你這些問題是不是經(jīng)常困擾著你，小編今天這篇文章就是幫助你解決通過設置Connection對象屬性連接Access數(shù)據(jù)庫的方法這個問題，當你再次遇到通過設置Connection對象屬性連接Access數(shù)據(jù)庫的方法這個問題的時候，我相信你絕對不會再犯愁了，下面就跟我一起來學習一下這個知識吧！

在通過VBA程序訪問Access數(shù)據(jù)庫時，首先需要連接數(shù)據(jù)庫。在VBA中，使用ADO對象模型可以連接到各種不同類型的數(shù)據(jù)庫，這都是通過設置Connection對象的相應屬性完成的。Connection對象表示打開的連接到數(shù)據(jù)庫的鏈接。無論對數(shù)據(jù)庫進行何種操作，首先需要完成的都是生成該對象以連接到數(shù)據(jù)庫。本文介紹通過設置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屬性的相關信息。