如何通過設(shè)置Connection對(duì)象屬性連接Access數(shù)據(jù)庫?
1、新建Excel工作簿,打開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ù)庫讀寫模式
conn.Open '打開到指定數(shù)據(jù)庫的鏈接
Debug.Print conn.ConnectionString '輸出連接字符串
Debug.Print conn.ConnectionTimeout '輸出連接超時(shí)時(shí)間
Debug.Print conn.Mode '輸出數(shù)據(jù)庫讀寫模式
Debug.Print conn.Provider '輸出提供者名稱
Debug.Print conn.Version '輸出ADO版本號(hào)
Debug.Print conn.State '輸出連接當(dāng)前開啟狀態(tài)
End Sub
圖1 插入模塊并輸入程序
2、按F5鍵運(yùn)行"ConnectToAccess"過程,此時(shí)在“立即窗口”中將會(huì)獲取程序運(yùn)行結(jié)果,如圖2所示。
圖2 “立即窗口”輸出結(jié)果
提示
這里要注意的是,在"ConnectionToAccess"過程中指定ConnectionString屬性時(shí),只給出了data source相關(guān)內(nèi)容,但是在輸出該屬性時(shí),卻獲取了很多內(nèi)容,其中就包含Provider屬性的相關(guān)信息。
繼續(xù)查找其他問題的答案?
-
Excel 2019如何使用復(fù)制、粘貼命令插入Word數(shù)據(jù)?(視頻講解)
2021-01-257次播放
-
Excel 2019如何制作數(shù)據(jù)透視表?(視頻講解)
2021-01-2227次播放
-
Excel 2019如何設(shè)置相對(duì)引用?(視頻講解)
2021-01-2210次播放
-
2021-01-2212次播放
-
Excel 2019如何使用命令復(fù)制公式?(視頻講解)
2021-01-226次播放
-
2021-01-223次播放
-
2021-01-222次播放
-
Excel 2019如何利用開始選項(xiàng)卡進(jìn)入篩選模式?(視頻講解)
2021-01-223次播放
-
Excel 2019如何設(shè)置指定數(shù)據(jù)的篩選?(視頻講解)
2021-01-223次播放
-
Excel 2019如何設(shè)置自定義排序?(視頻講解)
2021-01-222次播放
點(diǎn)擊加載更多評(píng)論>>