VBA 連線 Access 資料庫

Private Sub CommandButton1_Click()

' mdb 資料庫連線
Dim dbcn As ADODB.Connection
Set dbcn = New ADODB.Connection
dbcn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=library.mdb;"
dbcn.Open

' SQL
sqlstr = "select id, 姓名 from users"

' RecordSet
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset

' 執行 SQL
rs1.Open sqlstr, dbcn

' 視窗顯示 Record 內容
If Not rs1.EOF Then
rs1.MoveFirst
    While Not rs1.EOF
        MsgBox CStr(rs1.Fields(0)) + " -> " + CStr(rs1.Fields(1))
        rs1.MoveNext
    Wend
End If

' 關閉資料庫連線
rs1.Close
dbcn.Close

End Sub



Reference :
Access資料庫的連結
Excel VBA 使用 ADO語法連結Access資料庫常用方法
Excel VBA連結資料庫系統---Access資料庫