【ACCESS VBA】ADOでACCESS DBに接続する【ADO】

ACCESS VBAを学習しています。

今回はVBAを使ったについて学びます。

この記事では、使い方と使用例を掲載しています。

使い方については、よく使う部分だけを抜粋してご紹介しています。

詳細は公式のドキュメントをご覧ください。

説明
1. 準備
使用例(コード)
参考

説明

準備

ACCESS VBAでADOを使えるように準備を行います。

VBEを開きます。「ツール」＞「参照設定」と進みます。

続いて、M行にある「Microsoft ActiveX DataObjects 6.1 Library」にチェックを入れて「OK」を選択します。

バージョン(今回は「6.1」の数字)は一番大きい(新しい)もので問題ありませんが、今後もバージョンが更新されていく可能性があります。

Pythonなど他言語では、あるライブラリの旧バージョンでは動いていたのに、新しいバージョンになると動かなくなるといった現象があります。

アップデートの際に、過去のライブラリでつかえていた機能が引き続き使えるように気を使って更新してくれていればよいのですが、必ずそうなるという保証もありません。

自分がやりたい操作を紹介しているサイトがどのバージョンを使っているのかについてはチェックしておいた方が良いと考えています。

また、バージョンによってうまく想定通りの処理ができない場合は他のバージョンを使ってみるという方法も取ることができるかもしれません。

使用例(コード)

カレントデータベースへの接続

Private Sub button_ADO接続_カレントDB_Click()
　　#接続準備(オブジェクトの宣言)
    Dim connection As New ADODB.connection
    Dim recordset As ADODB.recordset
    
　　#カレントプロジェクトへの接続設定＋接続
    Set connection = CurrentProject.connection

    #メッセージボックスで表示
    MsgBox "DBへの接続成功"
　　#イミディエイトウインドウへの表示
    Debug.Print connection.ConnectionString
    
　　#接続の解除
    connection.Close
    Set connection = Nothing
    MsgBox "DBへの接続解除"
    
End Sub

Private Sub button_ADO接続_カレントDB_Click()

　　#接続準備(オブジェクトの宣言)

Dim connection As New ADODB.connection

Dim recordset As ADODB.recordset

　　#カレントプロジェクトへの接続設定＋接続

Set connection = CurrentProject.connection

#メッセージボックスで表示

MsgBox "DBへの接続成功"

　　#イミディエイトウインドウへの表示

Debug.Print connection.ConnectionString

　　#接続の解除

connection.Close

Set connection = Nothing

MsgBox "DBへの接続解除"

End Sub

今開いているACCESSに接続する場合にはこちらを用います。

「Set connection = CurrentProject.connection」の一行だけで接続ができています。

他のDBへの接続

Private Sub button_ADO接続_Click()
　　#接続準備(オブジェクトの宣言)    
    Dim connection As New ADODB.connection
    Dim recordset As ADODB.recordset
    Dim DB_path As String
    
    Set connection = New ADODB.Connection
    Set recordset = New ADODB.recordset
　　#コネクションの設定
    connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=[フォルダパス]\ファイル名.accdb"
　　#DBへ接続
    connection.Open
    
　　#メッセージボックスで表示
    MsgBox "DBへの接続成功" & connection.ConnectionString
　　#イミディエイトウインドウへの表示
    Debug.Print connection.ConnectionString
    
　　#接続解除
    connection.Close
    Set connection = Nothing
    MsgBox "DBへの接続解除"
    
End Sub