DAO.QueryDefの深淵：型不一致を撲滅し、実行計画を掌握せよ
Access VBAの現場において、`QueryDef`オブジェクトは単なるSQLの格納庫ではない。それは、Jet/ACEデータベースエンジンと対話するための、最も低レイヤーに近いインターフェースの一つだ。
多くの初学者が「とりあえず文字列連結でSQLを生成する」という禁忌を犯し、パフォーマンス低下とセキュリティリスク、そして最も厄介な「型不一致エラー」の泥沼に足を踏み入れる。今日は、この泥沼を回避し、堅牢なシステムを構築するための「明示的キャスト術」を伝授する。
—
なぜ「型不一致」は発生するのか？
DAOの`Parameters`コレクションに値を代入する際、Accessは内部的に型変換を試みる。しかし、Accessの`Variant`型と、SQLエンジンのデータ型との間には、暗黙的な変換ルールによる「解釈の揺らぎ」が存在する。
特に、以下のケースでこの問題は爆発する。
- 空文字（vbNullString）とNullの混同：SQL側で`NOT NULL`制約がある場合、変換過程での型エラーが直撃する。
- 日付型（Date）のロケール依存：OSの地域設定に依存し、`MM/DD/YYYY`と`DD/MM/YYYY`が競合して実行時エラーを吐く。
- 通貨型（Currency）と浮動小数点数（Double）の精度欠損：計算結果の比較時に発生する微小な誤差によるマッチング失敗。
これらを解決する唯一の方法は、「パラメータ代入前に、型をSQLエンジンが解釈可能な形へ決定論的に変換すること」である。
—
【実装】汎用パラメータキャスト関数 `SetParamSafe`
以下のコードは、あらゆるデータ型を飲み込み、確実に`QueryDef`へ渡すためのアーキテクト専用のユーティリティである。
‘ @description: QueryDefパラメータへ安全に値を注入するためのキャスト関数
‘ @param qdf: 対象のDAO.QueryDef
‘ @param paramName: パラメータ名
‘ @param value: 代入する値
Public Sub SetParamSafe(ByRef qdf As DAO.QueryDef, ByVal paramName As String, ByVal value As Variant)
Dim p As DAO.Parameter
‘ オブジェクトの存在確認
Set p = qdf.Parameters(paramName)
‘ Null値の厳密なハンドリング
If IsNull(value) Or IsEmpty(value) Then
p.Value = Null
Exit Sub
End If
‘ 型に応じた明示的変換
Select Case VarType(value)
Case vbDate
‘ 日付はISO 8601形式（YYYY-MM-DD）に強制変換して渡すのが鉄則
p.Value = Format$(value, “yyyy-mm-dd hh:nn:ss”)
Case vbDouble, vbDecimal, vbCurrency
‘ 数値精度を維持しつつ変換
p.Value = CDec(value)
Case vbString
‘ 空文字はNullとして扱うのがデータベース設計の定石
If Len(value) = 0 Then
p.Value = Null
Else
p.Value = CStr(value)
End If
Case Else
p.Value = value
End Select
End Sub
—
メモリ最適化とオブジェクトのライフサイクル
伝説的なエンジニアは、オブジェクトの「残滓」を残さない。`QueryDef`を動的に生成する場合、必ずメモリリークを考慮する必要がある。
特に、`CurrentDb.CreateQueryDef`を使用して一時的なクエリを作成する場合、明示的に削除しなければ、そのクエリ定義は`.accdb`ファイル内にゴミとして残り、インデックスの再構築（最適化）を阻害する。
オブジェクト解放の作法
Public Sub ExecuteDynamicSQL(ByVal sql As String, ByVal paramDict As Object)
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
‘ 一時クエリとして定義（名前を空にすることで一時的領域に生成）
Set qdf = db.CreateQueryDef(“”, sql)
‘ パラメータ注入
Dim key As Variant
For Each key In paramDict.Keys
SetParamSafe qdf, CStr(key), paramDict(key)
Next
‘ 実行
qdf.Execute dbFailOnError
‘ オブジェクト解放の儀式
‘ qdfを閉じただけでは不十分な場合がある。明示的にCloseを呼び出す。
qdf.Close
Set qdf = Nothing
Set db = Nothing
End Sub
—
チーフアーキテクトの視点：なぜこれが必要か
Accessは一見すると「初心者向けのRADツール」に見える。しかし、その裏側にあるJetエンジンは、適切に扱えば極めて高い並行処理性能と堅牢性を示す。
「型不一致エラー」を「たまたま動いたから良し」とするのか、それとも「型変換のメカニズムを掌握し、エラーの発生源を物理的に遮断する」のか。この差が、数年後に保守フェーズで泣きを見るか、あるいは伝説的なシステムとして生き残り続けるかの分かれ道となる。
API仕様の背後にある「データ型の厳格性」を尊重せよ。それこそが、技術者としての誇りであり、最強の自動化を実現するための唯一の道である。
「動くコードを書くな、死なないシステムを設計せよ。」
この言葉を、日々のVBA開発の指針として胸に刻んでほしい。
