「EXEC」で呼び出すな。ADO CommandオブジェクトでSQL Serverとの「契約」を定義せよ
業務自動化の現場で、Access VBAを使いこなしているエンジニアと、単なる「コードの書き写し」で終わっているエンジニア。その決定的な差はどこに現れるか。
それは、「データベースとの通信を、単なる文字列の投げつけ（SQL発行）と考えているか、それとも厳格なインターフェース（プロシージャ呼び出し）として捉えているか」という設計思想の差だ。
もし君が、ストアドプロシージャを呼び出す際に `Recordset.Open “EXEC usp_MyProcedure @Param1 = …” ` といった書き方をしているなら、今すぐその習慣を捨ててほしい。それは、いつ爆発するか分からない時限爆弾をシステムに仕込んでいるのと同じだ。
本稿では、中級者への階段を登るために避けては通れない、ADOの`Command`オブジェクトを用いた、戻り値（ReturnValue）および出力パラメータ（Output Parameter）の完璧な制御手法を伝授する。
なぜ `Recordset.Open` では不十分なのか
多くの開発者が陥る罠は、ストアドプロシージャの結果を「単なるレコードセット」として扱おうとすることだ。しかし、プロフェッショナルなストアドプロシージャは、単にデータを返すだけではない。
1. Return Value: 処理の成否（0なら成功、それ以外はエラーコード）を返す。
2. Output Parameters: 採番された新IDや、処理後のステータスを返す。
3. Result Sets: 処理結果としてのデータ行を返す。
`Recordset.Open` による文字列実行では、これら「非レコードセット」の情報を取り出すことが極めて困難、あるいは極めて不安定になる。一方で、`Command` オブジェクトを使用すれば、これらを型定義された「パラメータ」として明示的に扱うことができる。これは、VBAとSQL Serverの間で「型と構造の契約」を結ぶことを意味する。
堅牢な実装のためのアーキテクチャ
`Command` オブジェクトを用いた実装には、黄金律がある。
1. パラメータの順序を遵守せよ
ADOの仕様上、`ReturnValue` は必ず `Parameters` コレクションの最初（インデックス0）に配置しなければならない。これを忘れると、出力パラメータのデータが戻り値に混入する、あるいは型エラーで即死する。
2. データ型の厳密なマッピング
VBAの `Variant` をそのまま投げ込むのは素人の仕事だ。`adInteger`, `adVarChar`, `adDate` といったADO定数を用いて、SQL Server側の型と完全に一致させること。これがパフォーマンスの最適化と、予期せぬ型変換エラーを防ぐ唯一の道だ。
3. トランザクションの境界線
ストアド内でトランザクションを完結させるのか、VBA側で制御するのか。実務レベルでは、ストアド内で `TRY…CATCH` を使い、VBA側ではエラーハンドリングを徹底した上で、接続のライフサイクルを管理する設計が求められる。
実践：プロダクション・グレードのコード例
以下に、SQL Server上のストアドプロシージャを呼び出し、戻り値と出力パラメータを安全に取得するための、そのまま現場に投入できる実装例を示す。
シナリオ
- Stored Procedure: `usp_CreateOrder`
- 入力: `@CustomerID` (Int), `@OrderDate` (DateTime)
- 出力: `@NewOrderID` (Int)
- 戻り値: 処理ステータス (Int)
Option Explicit
' ==============================================================================
' Module: modDatabaseAccess
' Description: SQL Serverとの高度な連携を実現するプロシージャ
' Author: Chief Architect
' ==============================================================================
' 参照設定: Microsoft ActiveX Data Objects x.x Library
' ※ プロジェクトの安定性のために、可能な限り最新のバージョンを使用すること
Public Sub ExecuteCreateOrderSample()
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim strConn As String
' --- 設定領域 ---
' 実際の実装では、環境変数や設定テーブルから取得すべき
strConn = "Provider=SQLOLEDB;Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=SSPI;"
On Error GoTo ErrorHandler
' 1. Connectionの確立
Set conn = New ADODB.Connection
conn.ConnectionString = strConn
conn.CursorLocation = adUseClient ' クライアントサイドカーソルを使用
conn.Open
' 2. Commandオブジェクトの初期化
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = conn
.CommandText = "usp_CreateOrder" ' プロシージャ名のみを指定
.CommandType = adCmdStoredProc ' 重要：ストアドであることを明示
End With
' 3. パラメータの定義 (ここがアーキテクチャの肝である)
' ※ 順番が極めて重要：ReturnValue -> Input -> Output
' [A] Return Value (戻り値)
' インデックス0に必ず配置する
.Parameters.Append .CreateParameter("@ReturnVal", adInteger, adParamReturnValue)
' [B] Input Parameters (入力パラメータ)
.Parameters.Append .CreateParameter("@CustomerID", adInteger, adParamInput, , 101)
.Parameters.Append .CreateParameter("@OrderDate", adDate, adParamInput, , Now)
' [C] Output Parameters (出力パラメータ)
' サイズ（Length）の指定が必要な型（VarChar等）には、必ず適切なサイズを渡すこと
.Parameters.Append .CreateParameter("@NewOrderID", adInteger, adParamOutput)
' 4. 実行
Debug.Print "Executing Stored Procedure..."
.Execute
' 5. 結果の取得
' 実行後、Parametersコレクションから値を吸い上げる
Dim retVal As Long
Dim newID As Long
retVal = .Parameters("@ReturnVal").Value
newID = .Parameters("@NewOrderID").Value
' 6. 判定ロジック
If retVal = 0 Then
MsgBox "注文作成成功！ 新ID: " & newID, vbInformation
Else
' 戻り値に基づいたエラーハンドリング
Err.Raise vbObjectError + 513, "usp_CreateOrder", "Stored Procedure returned error code: " & retVal
End If
CleanUp:
' オブジェクトの解放（ライフサイクル管理の徹底）
If Not cmd Is Nothing Then Set cmd = Nothing
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
Set conn = Nothing
End If
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました:" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical, "System Error"
Resume CleanUp
End Subアーキテクトからの助言：さらに高みを目指すために
このコードを読んだ君に、最後に二つの「重み」を伝えておく。
第一の重み：複数の結果セット（Multiple Result Sets）への対処
もしストアドが `SELECT` 文も実行する場合、`.Execute` の後に `Recordset` が返ってくる。その場合、`Parameters` の値を取得するタイミングに注意が必要だ。ADOの仕様では、すべてのレコードセットを読み終え、カーソルが末尾に到達するか、あるいは `NextRecordset` メソッドで最後まで進まないと、出力パラメータの値が正しく更新されないケースがある。
「パラメータが空で返ってくる」というバグに直面したら、まず「レコードセットを最後まで消費しているか」を疑え。
第二の重み：メモリと接続のライフサイクル
`Set conn = Nothing` を惜しむな。特に大量のループ内でこの処理を行う場合、Connectionオブジェクトの開放が遅れるだけで、SQL Server側のセッションが枯渇し、システム全体を停止させる。オブジェクトの生成は最小限に、破棄は確実に。これが、大規模システムを支えるエンジニアの規律だ。
「動けばいい」コードを書くのは、作業員だ。「壊れない」設計を書くのが、エンジニアである。
君が次に書くコードが、堅牢なシステムの礎となることを期待している。
