動的クエリの神髄：Access VBAにおける「SQL生成」の解像度を極める
Access開発における最大のアンチパターンは、フォーム上のコントロール値を直接SQL文字列に埋め込むことだ。`”WHERE ID = ” & Me.txtID` と書いた瞬間、あなたのコードはSQLインジェクションの脆弱性を孕み、かつデータベースエンジンに実行計画を再利用させない「ゴミ」を撒き散らすことになる。
今回は、数百万レコードを扱う大規模システムでも破綻しない、`QueryDef`を活用した「動的パラメータークエリ」のアーキテクチャを伝授する。
—
1. なぜ「文字列連結」は滅びるべきなのか
SQLを文字列連結で組み立てると、Jet/ACEデータベースエンジンは毎回「新しいSQL」として認識する。結果、キャッシュされた実行計画は無効化され、毎回コンパイルが発生する。これが積もり積もって、ネットワークトラフィックとCPU負荷を増大させる。
真のエンジニアは、「SQLテンプレート」を固定し、パラメーターのみを差し替える。これが唯一の正解だ。
—
2. 実装の極致：QueryDefとパラメーターの分離
以下のコードは、フォームのコンボボックスやチェックボックスの状態を検知し、安全かつ高速にSQLを構築するテンプレートだ。
‘ —————————————————————————–
‘ 機能: フォーム入力値を基にした動的クエリの実行
‘ アーキテクチャ: QueryDefの再利用とパラメーターの明示的バインド
‘ —————————————————————————–
Public Sub ExecuteDynamicQuery()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Set db = CurrentDb
‘ 1. クエリ定義の存在を確認し、存在すれば削除（または再利用）
On Error Resume Next
db.QueryDefs.Delete “tmp_DynamicQuery”
On Error GoTo 0
‘ 2. パラメーター付きSQLテンプレート（インジェクション対策）
strSQL = “SELECT FROM T_Sales WHERE SalesDate >= [p_StartDate] ” & _
“AND (DepartmentID = [p_DeptID] OR [p_DeptID] IS NULL)”
Set qdf = db.CreateQueryDef(“tmp_DynamicQuery”, strSQL)
‘ 3. パラメーターのバインド（型の厳密な指定）
qdf!p_StartDate = Me.txtStartDate.Value
If IsNull(Me.cboDept.Value) Then
qdf!p_DeptID = Null
Else
qdf!p_DeptID = Me.cboDept.Value
End If
‘ 4. レコードセットの取得（メモリ効率を考慮した前方スクロールのみ）
Dim rs As DAO.Recordset
Set rs = qdf.OpenRecordset(dbOpenForwardOnly, dbReadOnly)
‘ — ここに処理を記述 —
‘ 5. 明示的なクリーンアップ（リソースの解放順序が重要）
rs.Close
Set rs = Nothing
qdf.Close
Set qdf = Nothing
db.Close
Set db = Nothing
End Sub
—
3. シニアエンジニアが意識すべき「メモリとAPIの深淵」
オブジェクト解放の作法
VBAは参照カウンタ方式のガベージコレクションだが、`db.Close`や`Set Nothing`を怠ると、特に長期間起動し続ける業務システムではメモリリークが蓄積する。特に`QueryDef`を一時的に作成する場合、明示的な`Delete`と`Close`は必須の作法だ。
Windows APIによる「強制終了」の抑止
大規模なクエリ実行中、Accessが「応答なし」になることを防ぐ必要がある。`DoEvents`を安易にループに入れるのではなく、Windows APIの`Sleep`関数を用いてスレッドを適度に解放する手法がスマートだ。
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
重い処理の合間に `Sleep 10` を挟むだけで、OS側のメッセージキューがクリアされ、UXの質が劇的に向上する。
—
4. 保守性を担保するためのアーキテクチャ設計
将来の改修に耐えうる設計の鍵は「SQLの外部化」にある。
複雑なSQLをVBAコード内に書くのは愚行だ。SQLはAccessのクエリデザイナで作成し、VBAからはそのクエリの名前だけを呼び出すか、あるいは「SQL管理テーブル」を作成して、そこからクエリ文字列を読み込む設計にすべきだ。
究極のチェックリスト
1. SQLインジェクション対策: `Eval`関数や文字列連結によるWHERE句生成を排除したか？
2. 型変換の厳密性: `CDate()` や `CLng()` を使用し、バインドする値が想定内の型であることを保証したか？
3. リソース管理: `Recordset` は `dbReadOnly` で開き、不要になった瞬間に解放しているか？
4. 例外処理: `DAO.Error` を拾い、ユーザーに分かりやすいログを残す設計になっているか？
Accessは「おもちゃ」ではない。適切に扱えば、数万行のコードを凌駕するパフォーマンスを引き出せる「高度なUI/DB統合開発環境」だ。この知見をあなたのシステムに実装し、レガシーという名の黄金を磨き上げてほしい。
