【ACCESS/VBA】ADODB接続サンプル

①事前に[ツール]→[参照設定]から[Microsoft ActiveX Data Objects X.X Library]を追加する
※参照設定を使用しない場合は不要
















②以下サンプル（接続文字列はODBC接続）

Option Compare Database
Option Explicit
 
Private Const CON_STRING As String = "DSN=TEST_ODBC;Uid=USER1;Pwd=userpass1;Database=TEST_DB"
Private m_cn As New ADODB.Connection
 
' コネクションオープン用
Public Sub OpenConnection()
    m_cn = New ADODB.Connection
    m_cn.ConnectionString = CON_STRING
    m_cn.Open
End Sub
 
' コネクションクローズ用
Public Sub CloseConnection()
    m_cn.Close
End Sub
 
' コネクション取得用
Public Function GetConnection() As ADODB.Connection
    Set GetConnection = m_cn
End Function

③使用例

Option Compare Database
Private Sub test()
    Dim rst As New ADODB.Recordset
    Call OpenConnection
    
    rst.ActiveConnection = M_Connection.GetConnection
    rst.Open "select * from TEST_TBL1;"
    rst.Close
 
    Set rst = Nothing
    Call CloseConnection
End Sub