【テクニカル・上級編】ADOでSQL Serverのテーブル値を一括取得：配列への格納による高速なデータ処理 – Access VBA解析バイブル

【極限の知見】Recordsetループからの脱却：ADO GetRowsによる高速データ転送アーキテクチャ

多くの開発者が、Access VBAを「単なるデスクトップアプリのツール」と侮っている。しかし、SQL Serverをバックエンドに据え、数百万件のレコードを捌くエンタープライズ・アーキテクチャへと昇華させる時、そこには真のエンジニアリングが求められる。

もし君が、`Do Until rs.EOF` というループの中で、`rs.Fields(“ColumnName”).Value` を繰り返し呼び出しているとしたら、今すぐそのコードを捨てろ。それは、高速道路を時速20kmで走るような、致命的に効率の悪い実装だ。

本稿では、ADO（ActiveX Data Objects）の真髄、特に `GetRows` メソッドを用いた「メモリへの一括転送」と、オブジェクトのライフサイクル管理による「極限のパフォーマンス最適化」について解説する。

1. なぜ「Recordsetのループ」は遅いのか

技術的な本質を理解せよ。`Recordset.MoveNext` を実行し、各フィールドにアクセスするたびに、VBAエンジンとOLE DBプロバイダーの間で「COM（Component Object Model）の境界」を跨ぐオーバーヘッドが発生している。

1. コンテキストスイッチの頻発: VBAの実行コンテキストから、ADOオブジェクト（COM）へのプロパティアクセスが発生する。
2. インターフェース呼び出しの累積: `Fields` コレクションの取得、インデックスの解決、そして値の取り出し。これら一連のメソッド呼び出しが、レコード数分、指数関数的に重くのしかかる。

シニアエンジニアなら、この「オブジェクトへの逐次アクセス」が、大量データ処理における最大のボトルネックであることを直感的に理解しているはずだ。

2. GetRows：メモリ空間へのバルク転送

このボトルネックを破壊するのが、`GetRows` メソッドである。

`GetRows` は、Recordsetの内容を丸ごと、あるいは指定した件数分、一気に 2次元のVariant配列 へと転送する。これにより、COM境界を跨ぐ通信は「ループの回数分」から「たった1回」へと劇的に削減される。

⚠️ 致命的な罠：配列の次元構造

ここで、多くのジュニアエンジニアが陥る罠がある。`GetRows` が生成する2次元配列は、一般的な `Array(Row, Column)` ではなく、`Array(Column, Row)` の構造を持っている。

• `DataArray(0, 5)` は、「0番目の列（Column）の、5番目の行（Row）」を指す。

この構造を理解していないコードは、保守フェーズで必ずバグを撒き散らすことになる。

3. 実装：極限のデータ取得アーキテクチャ

以下に、SQL Serverからデータを高速に取得し、配列としてメモリ上に展開する、堅牢な実装例を示す。ここでは、エラーハンドリング、トランザクション、そしてオブジェクトの明示的な解放を徹底している。

Option Explicit

' ======================================================================================
' Module: modDataEngine
' Description: 高速データ転送用エンジン
' Author: Legendary Chief Architect
' ======================================================================================

Public Sub ExecuteHighSpeedTransfer()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim dataArray As Variant
    Dim connectionString As String
    
    ' SQL Serverへの接続文字列（環境に合わせて最適化せよ）
    connectionString = "Provider=MSOLEDBSQL;Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=SSPI;"
    
    On Error GoTo ErrorHandler

    ' 1. Connectionオブジェクトの生成とオープン
    Set cn = New ADODB.Connection
    cn.ConnectionString = connectionString
    cn.Open
    
    ' トランザクションの開始（整合性確保）
    cn.BeginTrans
    
    ' 2. Recordsetの生成
    Set rs = New ADODB.Recordset
    ' CursorLocationをクライアント側に設定することで、GetRowsの効率を最大化する
    rs.CursorLocation = adUseClient
    
    ' SQLの実行
    Dim sql As String
    sql = "SELECT ID, CustomerName, OrderDate, Amount FROM SalesOrder WHERE OrderDate >= '2023-01-01'"
    rs.Open sql, cn, adOpenStatic, adLockReadOnly

    ' 3. 【核心】GetRowsによる一括転送
    ' Recordsetの全レコードをVariant配列へ一気に流し込む
    If Not rs.EOF Then
        dataArray = rs.GetRows()
    Else
        MsgBox "データが存在しません。", vbInformation
        GoTo CleanUp
    End If

    ' 4. メモリ上での高速処理
    ' ここではRecordsetには一切触れず、配列(dataArray)に対してのみ操作を行う
    Call ProcessDataInArray(dataArray)

    ' 成功時、トランザクションをコミット
    cn.CommitTrans
    MsgBox "処理が完了しました。", vbInformation

CleanUp:
    ' 5. 【重要】オブジェクトの明示的な解放（メモリリーク防止）
    ' VBAのGC（ガベージコレクション）に頼らず、アーキテクトとして明示的に破棄する
    On Error Resume Next
    If Not rs Is Nothing Then
        If rs.State = adStateOpen Then rs.Close
        Set rs = Nothing
    End If
    If Not cn Is Nothing Then
        If cn.State = adStateOpen Then cn.Close
        Set cn = Nothing
    End If
    Exit Sub

ErrorHandler:
    ' エラー発生時はロールバック
    If Not cn Is Nothing Then
        If cn.State = adStateOpen Then cn.RollbackTrans
    End If
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical, "System Error"
    Resume CleanUp
End Sub

''' <summary>
''' 配列内データをメモリ上で高速に走査する
''' </summary>
Private Sub ProcessDataInArray(ByRef arr As Variant)
    Dim colCount As Long
    Dim rowCount As Long
    Dim r As Long, c As Long
    Dim totalAmount As Double

    ' GetRows配列の境界を特定
    ' LBound/UBoundは [列, 行] の順であることを忘れるな
    colCount = UBound(arr, 1) 
    rowCount = UBound(arr, 2)
    
    totalAmount = 0

    ' メモリ上の連続した領域を走査（極めて高速）
    For r = 0 To rowCount
        ' 列インデックスは固定 (例: Amountは3番目の列)
        totalAmount = totalAmount + CDbl(arr(3, r))
        
        ' 必要に応じてデバッグ出力（本番環境では削除すること）
        ' Debug.Print "Row: " & r & " | Name: " & arr(1, r)
    Next r

    Debug.Print "Total Amount Calculated in Memory: " & totalAmount
End Sub

4. アーキテクトの視点：メモリ最適化とライフサイクル

オブジェクトの明示的解放（Explicit Release）

VBAは、参照カウント方式のCOMを採用している。`Set obj = Nothing` を怠ることは、レガシー環境においてメモリリークを招き、最終的にシステムの不安定化（Accessの強制終了）を引き起こす原因となる。特に、ループ内でオブジェクトを生成する場合や、大規模なトランザクションを扱う場合は、`CleanUp` セクションでの徹底した破棄が「作法」ではなく「義務」である。

CursorLocationの選択

`GetRows` を使用する場合、`rs.CursorLocation = adUseClient` を設定することを推奨する。これにより、レコードセットがクライアント側のメモリ上に構築されるため、サーバーとの通信回数を最小限に抑え、`GetRows` の転送効率を最大化できる。

Windows APIとの境界線

もし、さらに極限のパフォーマンスを求めるなら、VBAの配列操作ではなく、メモリバッファを直接操作するWindows API（`RtlMoveMemory` 等）の検討が必要になる場面もある。しかし、通常の業務アプリケーションにおいて `GetRows` を使いこなせていないのであれば、まずはこの「データのバルク転送」というパラダイムシフトを完遂させるべきだ。

結論

`Recordset` をループで回すのは、初心者向けの書き方だ。
プロフェッショナルは、「通信は一括で行い、処理はメモリ上で行う」。

この原則を徹底することで、君のシステムは、数千、数万のレコードを扱う環境においても、静謐かつ圧倒的な速度を維持することができる。技術の深淵を覗き、常に「最速」を追求せよ。