« ドライバ別接続文字列 | メイン | [VB6.0|Access] ADOで接続 »

2005年10月11日

[VB6.0|Access] DAOで接続

'事前バインディングの場合（参照設定：Microsoft DAO 3.6 Object Library）
Dim DaoWS As DAO.Workspace
Dim DaoDB As DAO.Database
Dim DaoRS As DAO.Recordset


    Set DaoWS = DBEngine.Workspaces(0)

    Set DaoDB = DaoWS.OpenDatabase("C:\sample.mdb")

    Set DaoRS = DaoDB.OpenRecordset([SQL文かテーブル名], dbOpenDynaset)



    '終了処理
    DaoRS.Close
    Set DaoRS = Nothing
    DaoDB.Close
    Set DaoDB = Nothing
    DaoWS.Close
    Set DaoWS = Nothing

2005 / 10 / 11