【実務・中級編】DAOからADOへの移行チェックリスト：既存システムの保守性を損なわない手順 – Access VBA解析バイブル

DAOからADOへの移行チェックリスト：既存システムの保守性を損なわない「アーキテクチャの転換」

「DAO（Data Access Objects）からADO（ActiveX Data Objects）へ書き換えれば、将来的にSQL Serverへ移行しやすくなる」

もし君が、単なる「構文の置換作業」としてこのリファクタリングを捉えているなら、今すぐその考えを捨ててほしい。それは、設計思想の異なる二つのエンジンを、無理やり繋ぎ合わせるようなものだ。

DAOはAccess（ACE/Jetエンジン）の内部構造に最適化された「密結合なスペシャリスト」であり、ADOはあらゆるデータソースへ接続するための「疎結合なジェネラリスト」である。この違いを理解せずに移行を進めれば、トランザクションの不整合、メモリリーク、そして原因不明のデッドロックが君のシステムを襲うことになるだろう。

本稿では、レガシーなDAOコードを、堅牢かつ保守性の高いADOアーキテクチャへと昇華させるための、極限の移行戦略を伝授する。

1. 致命的な誤解を解く：DAOとADOの決定的な境界線

まず、エンジニアとして以下のアーキテクチャの違いを脳に刻んでおくことだ。

最も警戒すべきは「トランザクションの混在」だ。
DAOで開始したトランザクションの最中に、ADOでレコードを更新しようとしても、それらは別個のコンテキストで動いている。DAOのロールバックは、ADOが行った変更を救ってはくれない。これが、移行期に発生するデータ不整合の最大の原因だ。

2. 移行リファクタリング・チェックリスト

既存のDAOコードをADOへ移行する際、以下の5つのチェックポイントを必ず通過させなければならない。

① カーソルタイプとロックタイプの再定義

DAOの `dbOpenDynaset` は、ADOでは単に `adOpenDynamic` と書けば済むわけではない。

• 読み取り専用の場合: `adOpenForwardOnly` を選択せよ。メモリ消費を最小限に抑えるのがプロの流儀だ。
• 更新が必要な場合: `adOpenKeyset` もしくは `adOpenDynamic` を選択し、ロックタイプは `adLockOptimistic`（楽観的ロック）を基本とする。

② 接続ライフサイクルの厳格な管理

DAOでは `CurrentDb` を多用しがちだが、ADOにおいて `New Connection` をメソッド内で乱発するのは最悪の設計だ。

• 接続の単一化: 接続オブジェクトは、クラスレベルで管理するか、シングルトンパターンを用いて、アプリケーションのライフサイクル内で再利用せよ。

③ エラーハンドリングの階層化

ADOは、ネットワークエラーやタイムアウトなど、DAOでは発生し得なかった「外部要因によるエラー」を頻繁に投げてくる。

• `Err.Number` だけでなく、`ADODB.Connection.Errors` コレクションを走査し、詳細なエラー情報をログに記録する仕組みを構築せよ。

④ データ型のマッピング

Access特有のデータ型（日付/時刻型など）が、ADO経由でSQL Server等の外部DBへ渡される際、暗黙の型変換によってインデックスが効かなくなる（SARGabilityの喪失）ケースがある。型変換はVBA側で明示的に行うこと。

⑤ トランザクションの「一貫性」の確保

DAOからADOへ移行する期間、あるいはハイブリッド構成の場合、「一つの業務処理（Unit of Work）は、単一の接続・単一のトランザクション技術で行う」ことを鉄則とせよ。

3. プロダクション・クオリティの設計例

では、実際にどのように実装すべきか。単なる関数ではなく、「データアクセスを抽象化するクラス」として実装する例を示す。これにより、将来的に接続先がSQL Serverに変わっても、呼び出し側のコードを一切変更せずに済む。

クラスモジュール: `clsDataManager`

このクラスは、接続の管理、エラーハンドリング、トランザクションをカプセル化する。

' =================================================================
' Class: clsDataManager
' Description: 堅牢なデータアクセスを実現するための抽象化クラス
' =================================================================
Option Explicit

Private mConn As ADODB.Connection
Private mIsConnected As Boolean

' 接続文字列（本来は設定ファイルや環境変数から取得すべき）
Private Const CONNECTION_STRING As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb;"

' -----------------------------------------------------------------
' 初期化・接続処理
' -----------------------------------------------------------------
Public Sub Connect()
    On Error GoTo ErrorHandler
    
    If mIsConnected Then Exit Sub
    
    Set mConn = New ADODB.Connection
    mConn.ConnectionString = CONNECTION_STRING
    mConn.CursorLocation = adUseClient ' クライアントサイドカーソルを使用（操作性の向上）
    mConn.Open
    
    mIsConnected = True
    Exit Sub

ErrorHandler:
    MsgBox "接続失敗: " & Err.Description, vbCritical, "Connection Error"
    Set mConn = Nothing
    mIsConnected = False
End Sub

' -----------------------------------------------------------------
' トランザクション開始
' -----------------------------------------------------------------
Public Sub BeginTransaction()
    If Not mIsConnected Then Connect
    mConn.BeginTrans
End Sub

' -----------------------------------------------------------------
' トランザクション確定
' -----------------------------------------------------------------
Public Sub CommitTransaction()
    If mIsConnected Then mConn.CommitTrans
End Sub

' -----------------------------------------------------------------
' トランザクションロールバック
' -----------------------------------------------------------------
Public Sub RollbackTransaction()
    If mIsConnected Then mConn.RollbackTrans
End Sub

' -----------------------------------------------------------------
' 汎用レコードセット取得メソッド
' -----------------------------------------------------------------
' 引数: sql - 実行するSQL文
' 戻り値: ADODB.Recordset
Public Function GetRecordset(ByVal sql As String) As ADODB.Recordset
    On Error GoTo ErrorHandler
    
    Dim rs As New ADODB.Recordset
    If Not mIsConnected Then Connect
    
    ' カーソルタイプとロックタイプを明示的に指定
    ' adOpenKeyset: 行の追加・削除・更新を反映可能
    ' adLockOptimistic: 更新時のみロックを取得する効率的な方式
    rs.Open sql, mConn, adOpenKeyset, adLockOptimistic
    
    Set GetRecordset = rs
    Exit Function

ErrorHandler:
    ' ADO特有の詳細エラーログ出力をここに実装
    Debug.Print "SQL Error: " & sql
    Debug.Print "Description: " & Err.Description
    Set GetRecordset = Nothing
End Function

' -----------------------------------------------------------------
' 切断処理
' -----------------------------------------------------------------
Public Sub Disconnect()
    On Error Resume Next
    If Not mConn Is Nothing Then
        If mIsConnected Then mConn.Close
        Set mConn = Nothing
    End If
    mIsConnected = False
End Sub

' クラス解体時のクリーンアップ
Private Sub Class_Terminate()
    Disconnect
End Sub

標準モジュールでの利用例

リファクタリング後のコードは、このように極めてシンプルで、かつビジネスロジックとデータアクセスが分離された美しい形になる。

' =================================================================
' 標準モジュール: modBusinessLogic
' =================================================================
Option Explicit

Public Sub ProcessOrderUpdate(ByVal orderID As Long, ByVal newStatus As String)
    Dim db As New clsDataManager
    Dim rs As ADODB.Recordset
    
    On Error GoTo TransactionError
    
    ' 1. トランザクション開始
    db.BeginTransaction
    
    ' 2. データ取得
    Set rs = db.GetRecordset("SELECT Status FROM T_Orders WHERE OrderID = " & orderID)
    
    If Not rs.EOF Then
        ' 3. 更新処理
        rs.Fields("Status").Value = newStatus
        rs.Update
    End If
    
    ' レコードセットを閉じる
    rs.Close
    Set rs = Nothing
    
    ' 4. コミット
    db.CommitTransaction
    MsgBox "更新が完了しました。", vbInformation
    
    Set db = Nothing
    Exit Sub

TransactionError:
    ' 5. エラー時は即座にロールバック
    If Not db Is Nothing Then db.RollbackTransaction
    MsgBox "エラーが発生したため処理を中断しました: " & Err.Description, vbCritical
    Set db = Nothing
End Sub

結論：保守性を守るための「引き際」

DAOからADOへの移行は、単なるライブラリの変更ではない。それは、「データへのアクセスを、アプリケーションのロジックから隔離する」という設計思想の確立である。

もし、君が既存の複雑なDAOコードをすべてADOに書き換えることに恐怖を感じているなら、無理に一度に行う必要はない。まずは、新しい機能や、外部DBとの連携が必要な箇所から、上記のような抽象化クラス（Wrapper）を導入し、段階的に「ADOファースト」の領域を広げていくことだ。

エンジニアの価値は、動くコードを書くことだけではない。「1年後の自分が、あるいは後任の自分が、迷わずにメンテナンスできるコード」を書くことにあるのだ。