境界線を越えるSQL構築：`QueryDefs`を極限まで安全に操る技術
Access開発において、動的SQLを生成する際に文字列結合でクエリを構築しているようでは、プロフェッショナルとは呼べない。それは「爆弾の導火線に火をつけて走る」に等しい行為だ。
今回は、`CurrentDb.QueryDefs`を操り、SQLインジェクションを根絶しつつ、メモリ効率と実行速度を極限まで高めるための「境界線上の設計思想」を伝授する。
—
1. なぜ「文字列結合」は悪手なのか
`SQL = “SELECT FROM T_Users WHERE ID = ” & Me.txtID`
このコードが孕むリスクはインジェクションだけではない。DAOオブジェクトのキャッシュ汚染と実行計画の再生成コストだ。
`QueryDefs`に直接文字列を流し込むと、Accessのデータベースエンジン（ACE）は毎回「新しいクエリ」として認識し、実行計画を再構築する可能性がある。これは大規模なバックエンドDB（SQL Server等）との連携時、ネットワーク帯域とサーバーCPUを無駄に消費する要因となる。
—
2. 真のベストプラクティス：パラメータ化クエリの動的制御
`QueryDefs`のSQLプロパティを書き換えるのではなく、「テンプレートとなるクエリを定義し、パラメータのみを差し替える」のが唯一の正解だ。
実践コード：安全なパラメータ受け渡し
‘ 伝説的なエンジニアは、オブジェクトのライフサイクルを厳密に管理する
Public Sub ExecuteSecureQuery(ByVal targetID As Long)
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs As DAO.Recordset
‘ CurrentDbを連呼せず、一度変数に格納する。
‘ これだけでコンテキストスイッチのオーバーヘッドを削減できる。
Set db = CurrentDb
‘ 事前に定義したパラメータクエリをセットアップ
Set qdf = db.QueryDefs(“qsel_BaseReport”)
‘ パラメータを明示的に指定（型安全性の確保）
‘ これによりSQLインジェクションは構造的に不可能となる
qdf.Parameters(“prmID”).Value = targetID
‘ 明示的に型を指定することで、ACEの推論コストを排除する
Set rs = qdf.OpenRecordset(dbOpenSnapshot)
‘ — ここに業務ロジック —
‘ オブジェクトの解放は「即座に」行う
‘ メモリリークは塵も積もればシステムダウンを招く
rs.Close
Set rs = Nothing
Set qdf = Nothing
Set db = Nothing
End Sub
—
3. チーフアーキテクトの視点：メモリ管理とパフォーマンスの真実
オブジェクトの明示的解放の意義
VBAのガベージコレクションを信用してはならない。特に`DAO.Recordset`や`DAO.QueryDef`は、COMラッパーを通じてメモリを確保している。ループ内でこれらを生成・破棄する場合、`Set = Nothing`を怠ると、Accessのメモリ使用量は階段状に上昇し、最終的に「システムリソース不足」という名の死を迎える。
システム間連携におけるチューニング
もしバックエンドにSQL Serverを配置しているなら、`dbSeeChanges`オプションを忘れてはならない。これは、データ更新時の同時実行制御を強制し、レガシーなAccess環境でも現代的なRDBMSの挙動を担保する重要な定数だ。
‘ SQL Server連携時のベストプラクティス
Set rs = qdf.OpenRecordset(dbOpenSnapshot, dbSeeChanges)
—
4. Windows APIを活用した高負荷対策（応用編）
極めて巨大なデータセットを扱う場合、`DoEvents`を乱発してCPUを空転させるのはアマチュアのやり方だ。真のエンジニアは、Windows API `Sleep` を利用し、OSレベルでのスレッド制御を行うことで、バックグラウンド処理の「呼吸」を整える。
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
‘ 長大なループ処理の合間に挟む
If i Mod 100 = 0 Then
Sleep 10 ‘ 10ミリ秒の休止でCPU負荷を劇的に下げる
DoEvents
End If
—
最後に：エンジニアとしての矜持
コードは書いた瞬間から「遺産」になる。
あなたが書いたパラメータ管理一つで、未来の保守担当者は救われるかもしれないし、あるいは地獄を見るかもしれない。
`QueryDefs`を単なる文字列格納庫として扱うのではなく、「型定義された実行可能なオブジェクト」として敬意を払うこと。それが、Accessという老練なシステムと長年付き合ってきた者だけが到達できる、洗練されたアーキテクチャの境地だ。
さあ、今日のコードをリファクタリングしてこい。妥協なき設計こそが、最強の防壁になる。
