閉じる

カレントデータベースの参照　DAO　ADO


○DAO

     Dim dbs As DAO.Databse

     Dim rst As Recordset



     Set dbs = CurrentDb()

     Set rst = dbs.OpenRecordset("テーブル名")





○ADO

    Dim cnn     As ADODB.Connection

    Dim rs0     As ADODB.Recordset



   

   'ADO　カレントに接続

    Set cnn = CurrentProject.Connection

    Set rs0 = New ADODB.Recordset



    rs0.Open "テーブル名", cnn, adOpenKeyset, adLockOptimistic