ADOに参照設定しよう

「ああ……このダイアログボックス、OLEオートメーションで使うんだっけ。
Accessの接続にも使えるのかい？」 「うん。参照設定ダイアログボックスは、
Excel VBAにない機能を外部のライブラリファイルから読み込んで利用するためのものだから、
ADOへの参照設定も当然できる」 「ここで参照設定すれば、すぐにAccessに接続できるのかい？」

八木くんは、軽くため息をつきました。 「だといいんだけどね…。
実際には、ConnectionオブジェクトにProviderやら、パスやらを設定したり……
いろいろとめんどくさいんだ」

Public CN As New ADODB.Connection

Function DB接続() As Boolean
    On Error GoTo エラー
    
    If CN.State = adStateClosed Then
        CN.Provider = "Microsoft.ACE.OLEDB.12.0"
        CN.Open ThisWorkbook.Path & "\test.accdb"
    End If
    
    DB接続 = True
    Exit Function
エラー:
    MsgBox "データベースへの接続に失敗しました"
    DB接続 = False
End Function

「以前作った、accdbファイルに接続するサンプルコードだよ」 「うひゃあ……なんだこれ！？
見たことないコードがいっぱいだぞ」 星くんは目を丸くしながら、すっとんきょうな声を上げました。

第3話「Accessに接続してみよう！」に続きます
文・イラスト ／ 武藤 玄