※ツール- 参照設定で、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
コメント