PGlabo

« [VB6.0|Access] DAOで接続 | メイン | [VB6.0|MySQL] MySQLにODBCで接続 »

2005年10月11日

[VB6.0|Access] ADOで接続

'事前バインディングの場合（参照設定：Microsoft ActiveX Data Objects 2.7 Library）
Dim AdoConn As New ADODB.Connection
Dim AdoRS As New ADODB.Recordset

    AdoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\sample.mdb"

    AdoRS.Open [SQL文かテーブル名], AdoConn

'実行時バインディングの場合（参照設定：なし）
Dim AdoConn As Object
Dim AdoRS As Object

    Set AdoConn = CreateObject("ADODB.Connection")

    Set AdoRS = CreateObject("adodb.recordset")

    AdoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\sample.mdb"

    AdoRS.Open [SQL文かテーブル名], AdoConn

    '終了処理
    AdoRS.Close
    Set AdoRS = Nothing
    AdoConn.Close
    Set AdoConn = Nothing

2005 / 10 / 11