在外部進行變量聲明
Public connectionString As String '連接數(shù)據(jù)庫語句
Public SQL As String
Public con As ADODB.Connection '連接對象，創(chuàng)建對象但未定義實例
Public rs As ADODB.Recordset '結(jié)果集
如果報錯：用戶定義類型未定義，可能是未引用所虛的外部庫，在工具-引用中添加
連接數(shù)據(jù)庫，本例通過按鈕的click事件連接，并將數(shù)據(jù)庫內(nèi)容填到單元格中
Private Sub CommandButton1_Click()
Set con = CreateObject("ADODB.Connection") '定義實例
Set rs = CreateObject("ADODB.Recordset")
connectionString = "provider=Microsoft.ACE.oledb.12.0;data source=" & ActiveWorkbook.Path & "\" & "data.accdb"
con.Open connectionString '連接數(shù)據(jù)庫
SQL = "select * from 表1"
rs.Open SQL, con, adOpenKeyset, adLockOptimistic '運行sql，結(jié)果存在rs
Sheets("Sheet1").Range("A2").CopyFromRecordset rs '結(jié)果顯示在單元格，A2為左上角位置
End Sub
rs.Open SQL, con, adOpenKeyset, adLockOptimistic 中第三和第四個參數(shù)是限制記錄是否可讀寫和鎖定的，具體見https://blog.csdn.net/weixin_30578677/article/details/94773839文章來源：http://www.zghlxwxcb.cn/news/detail-529397.html
效果
文章來源地址http://www.zghlxwxcb.cn/news/detail-529397.html
到了這里，關(guān)于VBA 連接ACCESS數(shù)據(jù)庫的文章就介紹完了。如果您還想了解更多內(nèi)容，請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！
