【テクニカル・上級編】Access VBAからSQL Serverのストアドプロシージャを呼び出す実践的アプローチ – Access VBA解析バイブル

Access VBAを掌握する極限の知見：SQL Serverストアドプロシージャの完全制覇

レガシーとモダンが交錯するシステムアーキテクチャの現場において、Accessを「単なるローカルデータベース」として扱う時代は終わった。Accessは、適切に武装すれば、堅牢なRDB（SQL Serverなど）のフロントエンドとして最高峰のパフォーマンスを発揮する。

とりわけ、膨大なデータ集計や複雑なトランザクションを伴う処理をAccess側のローカルクエリやVBAのループで処理するなど、システムに対する冒涜に等しい。処理はすべてSQL Server側のストアドプロシージャ（Stored Procedure）に委譲し、Accessは「指示と描画」に徹するべきだ。

本稿では、`QueryDef`オブジェクトを動的に生成・制御し、SQL Serverの計算リソースを極限まで引き出すパススルー・クエリの実装パターンを、メモリ管理とライフサイクルの最適化というプロフェッショナルの視点から解説する。

—

1. なぜ「動的パススルー・クエリ」なのか？

AccessからSQL Serverへ接続する手法として、リンクテーブルや通常のDAOクエリが一般的に知られている。しかし、これらはAccessのJet/ACEエンジンがSQLの構文解析や最適化を仲介するため、予期せぬ非効率なクエリ発行（N+1問題の発生など）を引き起こす原因となる。

一方、パススルー・クエリ（Pass-Through Query）は、AccessがSQL文の解釈を一切行わず、そのままの文字列をODBC経由でSQL Serverへ直撃させる仕組みだ。これにより、SQL Server側のインデックス、統計情報、そして強力なクエリプロセッサの恩恵を100%受けることができる。

さらに、これをVBAから動的に`QueryDef`として構築・破棄する手法を採用すれば、複雑なパラメータを持つストアドプロシージャの呼び出しを、堅牢かつ安全に制御することが可能となる。

—

2. 【実装パターン】極限まで最適化されたストアドプロシージャ呼び出し

以下に示すのは、トランザクション、動的パラメータの設定、そして確実にメモリリークを防ぐためのオブジェクトライフサイクル管理を網羅した実用コードだ。

Option Compare Database
Option Explicit

‘ =========================================================================
‘ 模範的実装: SQL Server ストアドプロシージャ実行エンジン
‘ =========================================================================
Public Sub ExecuteSqlServerStoredProcedure()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strConn As String
Dim strSQL As String
Dim queryName As String

‘ 一時的に使用するQueryDefの名前（コンフリクトを防ぐためプレフィックスを付与）
queryName = “tmp_PassThrough_Exec”

‘ 接続文字列の定義
‘ ※Trusted_Connectionを使用し、パスワードのハードコーディングを回避するセキュアな設計
strConn = “ODBC;Driver={ODBC Driver 17 for SQL Server};Server=SRV-DB01\INSTANCE01;Database=EnterpriseDB;Trusted_Connection=Yes;”

‘ 呼び出すストアドプロシージャの構文（T-SQL）
‘ SQL Server側でパラメータを受け取り、セットベースで処理を完結させる
strSQL = “EXEC dbo.usp_CalculateMonthlySummary @FiscalYear = 202X, @DepartmentCode = ‘SALES_DIV’;”

Set db = CurrentDb()

‘ 1. 既存の同名一時QueryDefが存在する場合は安全に削除（クリーンアップ）
Call DeleteExistingQueryDef(db, queryName)

On Error GoTo ErrorHandler

‘ 2. パススルー・クエリの動的生成
Set qdf = db.CreateQueryDef(queryName)

‘ 3. プロパティの設定（超重要：ReturnsRecords = False の設定）
‘ データを返さない（INSERT/UPDATE/EXEC等）場合は False にすることで、
‘ 不要なレコードセットのバッファリングを回避し、ネットワークとメモリの負荷を極限まで下げる。
qdf.Connect = strConn
qdf.SQL = strSQL
qdf.ReturnsRecords = False

‘ 4. クエリの実行（SQL Serverへ処理を丸投げ）
qdf.Execute dbFailOnError

MsgBox “ストアドプロシージャの実行が正常に完了しました。”, vbInformation, “処理成功”

CleanUp:
‘ 5. オブジェクトの明示的解放（メモリリークの根絶）
‘ VBAのガベージコレクションに依存せず、スコープを抜ける前に確実に破棄する
If Not qdf Is Nothing Then
db.QueryDefs.Delete queryName ‘ 一時クエリとして作成したため、システムカタログから物理削除
Set qdf = Nothing
End If
Set db = Nothing
Exit Sub

ErrorHandler:
‘ 異常系ハンドリング
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “Execution Error”
Resume CleanUp
End Sub

‘ =========================================================================
‘ ヘルパー関数: 安全なQueryDef削除
‘ =========================================================================
Private Sub DeleteExistingQueryDef(targetDb As DAO.Database, qryName As String)
Dim i As Integer
On Error Resume Next
For i = targetDb.QueryDefs.Count – 1 To 0
If targetDb.QueryDefs(i).Name = qryName Then
targetDb.QueryDefs.Delete qryName
Exit For
End If
Next i
On Error GoTo 0
End Sub

—

3. シニアアーキテクトが解説する「3つの極限知見」

① `ReturnsRecords = False` の圧倒的優位性

多くの開発者が犯す過ちは、データを返さないストアドプロシージャやデータ更新系クエリであっても、デフォルト（True）のまま実行することだ。これにより、Access側は「存在しない戻り値のレコードセット」を受け取るためのメモリ領域を確保しようとし、不要なODBCオーバーヘッドが発生する。
明確に `False` を指定することで、SQL Serverとの通信を「ファイア・アンド・忘却（Fire-and-forget）」に近い軽量なステートメント実行に昇華させることができる。

② 一時QueryDefの適切なライフサイクル管理

AccessのMDB/ACCDBファイルにおいて、VBAコード内で動的に `CreateQueryDef` を繰り返すと、システムテーブル（MSysObjectsなど）の肥大化とフラグメンテーションを引き起こす。
これを放置すると、アプリケーション全体の動作が徐々に重くなり、最悪の場合はデータベースの破損につながる。そのため、処理の完了時には必ず `QueryDefs.Delete` を実行し、Accessの内部構造をクリーンに保つことがプロフェッショナルの条件である。

③ 接続文字列とセキュリティのモダン化

レガシーなコードでは `UID=sa;PWD=password123;` のような平文の認証情報を接続文字列に直書きしている散々なシステムを見かける。
現代のインフラストラクチャにおいては、統合Windows認証（`Trusted_Connection=Yes;`）あるいはODBCのデータソース名（DSN）を介したセキュアな接続を強制すべきである。ソースコード内にクレデンシャルを残さないことは、セキュリティ監査における絶対要件だ。

—

4. 総括

Accessは、その手軽さゆえに「素人でも作れるツール」として扱われがちだが、内部アーキテクチャの挙動（DAOのメモリ管理、Jet/ACEエンジンとODBCの境界線）を深く理解したエンジニアが設計すれば、堅牢でハイパフォーマンスなエンタープライズ・クライアントへと変貌する。

データベースの計算能力はSQL Serverに極限まで行わせ、Accessは薄いプレゼンテーション層として振る舞う。この役割分担を徹底したとき、あなたの構築するシステムは、レガシーの殻を脱ぎ捨て、真の堅牢性を手に入れることになる。