コピペで使えるExcel(VBA)からAccess(MDB)へ接続してSQLを実行したり、データ取得するVBAコード

※ツール- 参照設定で、Microsoft ActiveX Data Objects 6.1 Libraryを参照設定しておく必要があります。

注:コードを簡略するためにDim時にNewでオブジェクト生成を行っています。

    'Access(MDB)ファイルに接続

    Const DB_FOLDER_NAME = "c:\tmp"
    Const DB_NAME = "test.mdb"

    Dim adoCn As New ADODB.Connection
    'adoCn.Execute "DELETE * FROM BBB"
    adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DB_FOLDER_NAME & "\" & DB_NAME & ";"

    Dim strSQL As String
    strSQL = "SELECT * FROM AAA"

    Dim rs  As New ADODB.Recordset
    rs.Open strSQL, adoCn, adOpenKeyset, adLockOptimistic
    
    Do While Not rs.EOF
        Debug.Print Now, rs.Fields("ID").Value
        rs.MoveNext
    Loop
    Set rs = Nothing

コメント

タイトルとURLをコピーしました