【入門編】ADO接続の「接続プーリング」を意識した、長時間稼働Accessアプリのメモリ管理戦略 – Access VBA解析バイブル

Access VBAの迷宮を抜けて：長時間稼働アプリを支える「接続管理」の極意

「開発したときは完璧に動いていたのに、数日使い続けるとAccessが重くなる、あるいは突然落ちる……」

もしあなたがそんな経験をしているなら、それはプログラミングの書き方が悪いのではなく、「オブジェクトの寿命（ライフサイクル）」という、エンジニアにとって最も重要で、かつ最も見落としがちな概念に触れるタイミングが来たということです。

こんにちは。今日は、マクロの記録から一歩踏み出し、「プロフェッショナルな道具」としてのAccessアプリを作りたいと考えているあなたへ、ADO（ActiveX Data Objects）の接続管理とメモリ管理の戦略についてお話しします。

少し難しい言葉も出てきますが、大丈夫。一つずつ、丁寧に紐解いていきましょう。ここをクリアすれば、あなたの作るアプリの安定性は劇的に変わりますよ。

1. なぜ「接続」がアプリを壊すのか？（DAOとADOの違い）

まず、Accessでデータを扱うときに出てくる二つの主役、DAOとADOの違いを整理しましょう。ここが全ての土台になります。

あなたが「外部のデータベースと連携させたい」「もっと高度なSQLを使いたい」と思ったとき、手に取るのがADOです。

しかし、ADOは「電話（接続）」を介して操作を行います。電話をかけるたびに回線を引いて、話し終わったら切る……。これを一秒間に何度も繰り返していたらどうなるでしょうか？ 通信回線はパンクし、メモリは電話機の管理だけで一杯になってしまいます。これが、長時間稼働アプリがクラッシュする最大の原因です。

2. 「接続プーリング」という魔法を理解する

ここで登場するのが、「接続プーリング（Connection Pooling）」という概念です。

エンジニアの賢いやり方は、「毎回電話をかけ直す」のではなく、「一度つながった回線を、使い終わったら切らずに、次に使うときのためにちょっと待機させておく」というものです。これがプーリングです。

しかし、ここには落とし穴があります。

• 接続を閉じ忘れる（解放しない） $\rightarrow$ プールに空きがなくなり、新しい接続ができなくなる（メモリリーク・接続枯渇）。
• 接続をずっと開きっぱなしにする $\rightarrow$ ネットワークの瞬断などで接続が「死んでいる」のに、アプリは「生きている」と思い込み、エラーを連発する。

では、どうすればいいのか？ 答えは、「接続のライフサイクルを、自分でコントロールする仕組み（クラス）」を作ることです。

3. 実践：最強のデータベース管理クラスを作る

単なるコードの羅列ではなく、「データベース管理専用の司令塔（クラスモジュール）」を一つ作りましょう。これにより、接続の生成・破棄・エラー処理を一手に引き受け、メモリの管理を自動化できます。

手順1：クラスモジュールの作成

VBAエディタで「挿入」→「クラスモジュール」を選択し、オブジェクト名を `clsDBManager` に変更してください。

' ============================================================
' クラス名: clsDBManager
' 目的: ADO接続の集中管理とメモリリークの防止
' ============================================================
Option Explicit

Private m_conn As ADODB.Connection ' 内部で保持する接続オブジェクト

' --- プロパティ: 接続オブジェクトを取得する ---
Public Property Get Connection() As ADODB.Connection
    Set Connection = m_conn
End Property

' --- メソッド: データベースへの接続 ---
Public Function Connect(ByVal connectionString As String) As Boolean
    On Error GoTo ErrorHandler
    
    ' すでに接続されている場合は何もしない（二重接続の防止）
    If Not m_conn Is Nothing Then
        If m_conn.State = adStateOpen Then
            Connect = True
            Exit Function
        End If
    End If

    ' 新しい接続オブジェクトを生成
    Set m_conn = New ADODB.Connection
    
    ' 接続設定（タイムアウト設定などを入れるとより堅牢）
    m_conn.ConnectionString = connectionString
    m_conn.CursorLocation = adUseClient ' クライアント側でカーソルを制御（メモリ管理に重要）
    m_conn.Open
    
    Connect = True
    Exit Function

ErrorHandler:
    MsgBox "接続に失敗しました: " & Err.Description, vbCritical
    Connect = False
End Function

' --- メソッド: 接続の解除とメモリ解放 ---
Public Sub Disconnect()
    On Error Resume Next ' 解除時のエラーで止まらないようにする
    
    If Not m_conn Is Nothing Then
        If m_conn.State = adStateOpen Then
            m_conn.Close
        End If
        ' ここが最重要！オブジェクトをメモリから完全に消去する
        Set m_conn = Nothing
    End If
    On Error GoTo 0
End Sub

' --- メソッド: トランザクション開始 ---
Public Sub BeginTrans()
    If Not m_conn Is Nothing Then m_conn.BeginTrans
End Sub

' --- メソッド: トランザクション確定 ---
Public Sub CommitTrans()
    If Not m_conn Is Nothing Then m_conn.CommitTrans
End Sub

' --- メソッド: トランザクション取消（エラー時用） ---
Public Sub RollbackTrans()
    If Not m_conn Is Nothing Then m_conn.RollbackTrans
End Sub

' --- クラスが破棄されるときに自動的に接続を切る ---
Private Sub Class_Terminate()
    Disconnect
End Sub

手順2：標準モジュールでの使い方

次に、この司令塔を実際に使うコードを書きます。ポイントは、「使い終わったら、クラスのインスタンスごと消去する」ことです。

' ============================================================
' 標準モジュールでの利用例
' ============================================================
Option Explicit

Sub ExecuteSafeProcess()
    Dim dbMgr As clsDBManager
    Dim strConn As String
    Dim sql As String
    
    ' 接続文字列（ご自身の環境に合わせて書き換えてください）
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourPath\YourDatabase.accdb;"
    
    ' 1. 司令塔（インスタンス）を作成
    Set dbMgr = New clsDBManager
    
    ' 2. 接続
    If Not dbMgr.Connect(strConn) Then
        Exit Sub ' 接続失敗時は終了
    End If
    
    On Error GoTo ErrorHandler
    
    ' 3. トランザクション開始（一連の処理を「ひとまとめ」にする）
    dbMgr.BeginTrans
    
    ' SQL実行例
    sql = "UPDATE T_Inventory SET Stock = Stock - 1 WHERE ItemID = 101"
    dbMgr.Connection.Execute sql
    
    ' 別の処理（ここでエラーが起きても、Rollbackが走るように設計）
    ' sql = "INSERT INTO T_Logs (LogDate) VALUES (Now())"
    ' dbMgr.Connection.Execute sql
    
    ' 4. すべて成功したら確定
    dbMgr.CommitTrans
    MsgBox "処理が正常に完了しました。", vbInformation

CleanUp:
    ' 5. 後始末（ここが極めて重要！）
    ' クラスをNothingにすることで、Class_Terminateが走り、確実に接続とメモリが解放される
    Set dbMgr = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生したため、処理をロールバックします: " & Err.Description, vbExclamation
    ' エラー時は、変更をなかったことにする
    If Not dbMgr Is Nothing Then dbMgr.RollbackTrans
    Resume CleanUp
End Sub

4. ここがプロの分かれ道：3つの鉄則

このコードを読んで、「なるほど」と思ったあなた。さらに一段上のレベルに行くために、以下の3つの鉄則を心に刻んでください。

① `Set … = Nothing` は「お掃除」ではなく「儀式」

VBAにおいて、オブジェクトを `Nothing` にすることは、単にメモリを空ける作業ではありません。「そのオブジェクトが持っていた全ての権利と資源を、OSに返却する」という重要な儀式です。特にADOのConnectionは、これを忘れるとOS側のリソースを食いつぶします。

② トランザクションは「失敗」を前提に設計する

プロのコードは、「成功したとき」よりも「失敗したとき」に真価を発揮します。`BeginTrans` を使ったら、必ず `RollbackTrans` が動くルート（`ErrorHandler`）を用意してください。これにより、データが中途半端に書き換わるという、ビジネス上最も致命的なミスを防げます。

③ クラス（司令塔）に責任を持たせる

「接続を開く」「閉じる」というコードを、あちこちのフォームやモジュールにバラバラに書かないでください。必ず今回のような「専用のクラス」を通してください。管理の窓口を一つに絞る（カプセル化といいます）ことが、メンテナンス性を高め、メモリリークを抑止する唯一の道です。

最後に

Access VBAの世界は、奥が深いです。マクロの記録から始まったあなたの旅が、こうした「アーキテクチャ（構造）」を意識する段階に来たことは、エンジニアとして素晴らしい成長です。

最初は難しく感じるかもしれませんが、この「接続管理の型」を一度身につければ、どんなに大規模で複雑なシステムを作るときでも、あなたのアプリは揺るぎない安定性を保ってくれるはずです。

一歩ずつ、着実に。あなたのコードが、より美しく、より強固なものになることを応援しています！