VBScriptでデータベースを制する：ADODBトランザクション制御の極意
VBScriptは、もはや「過去の遺物」ではない。Windowsの心臓部で今なお脈動し続ける、極めて軽量かつ堅牢な自動化エンジンだ。特に、レガシーシステムや社内インフラのバックエンドにおいて、ADODBを用いたデータベース連携は避けて通れない。
多くのエンジニアが犯すミスは、オブジェクトの「寿命」を軽視することにある。リソースリークが許されない環境下で、いかにして堅牢なトランザクションとメモリ管理を実現するか。本稿では、その技術的真髄を説く。
—
1. 接続の作法：コネクションプーリングと接続文字列
ADODB接続において最も重要なのは、接続文字列の最適化と、接続を「使い捨てない」ことだ。SQL Serverへの接続には、必ず `MSOLEDBSQL` (Microsoft OLE DB Driver for SQL Server) を推奨する。従来の `SQLOLEDB` はすでに非推奨であり、TLS 1.2以降の通信要件を満たせないからだ。
‘ 接続文字列の定数化（保守性の確保）
Const DB_CONN_STR = “Provider=MSOLEDBSQL;Server=YOUR_SERVER;Database=YOUR_DB;Integrated Security=SSPI;DataTypeCompatibility=80;”
`Integrated Security=SSPI` を用いることで、OSの認証情報を流用できる。パスワードのハードコーディングは厳禁だ。
—
2. トランザクション制御：BeginTransの「二面性」
トランザクションは、失敗した瞬間に「無かったこと」にするための魔法ではない。DBのインテグリティを守る最後の砦だ。VBScriptにおいてトランザクションを扱う際は、`Connection` オブジェクトの `BeginTrans` を使用するが、ここで重要なのは例外処理（On Error Resume Next）との連動である。
以下のモジュールは、実務でそのまま利用可能なテンプレートだ。
Sub ExecuteDataUpdate()
Dim conn, cmd
‘ オブジェクト生成
Set conn = CreateObject(“ADODB.Connection”)
‘ 接続タイムアウトの設定（極限環境では短めに設定せよ）
conn.ConnectionTimeout = 15
conn.Open DB_CONN_STR
‘ トランザクション開始
conn.BeginTrans
On Error Resume Next ‘ エラー発生時に即死せず、ステータスを判定する
conn.Execute “UPDATE Inventory SET Stock = Stock – 1 WHERE ItemID = ‘A001′”, , 1
If Err.Number <> 0 Then
‘ エラー発生時はロールバック
conn.RollbackTrans
WScript.Echo “Transaction Failed: ” & Err.Description
Else
‘ 全て正常ならコミット
conn.CommitTrans
WScript.Echo “Transaction Committed.”
End If
‘ 後始末（ここが重要）
On Error Goto 0
conn.Close
Set conn = Nothing
End Sub
—
3. メモリの極限管理：オブジェクトのライフサイクル
VBScriptのガベージコレクションを信じてはならない。特に、ループ処理の中で `Recordset` を生成する場合、明示的な解放を行わないと、プロセスは急速に肥大化し、最終的にサーバーのリソースを食い潰す。
- `Set obj = Nothing` の徹底: スコープを抜ける前に、必ず明示的に参照を解除すること。
- `Recordset` のカーソルタイプ: 特段の理由がない限り、`adOpenForwardOnly`（デフォルト）かつ `adLockReadOnly` を使用せよ。これが最速であり、メモリ消費が最も少ない。
‘ 正しいリソース解放のパターン
Dim rs
Set rs = conn.Execute(“SELECT FROM AuditLog”)
Do Until rs.EOF
‘ 処理内容
rs.MoveNext
Loop
‘ 順序：レコードセットを閉じてからNothing
rs.Close
Set rs = Nothing
—
4. 伝説のアーキテクトからの提言
VBScriptによるDB連携を構築する際、以下の3点を常に自問せよ。
1. 「そのクエリは最適か？」: VBScript側でデータをフィルタリングするな。SQL側で完結させろ。VBScriptは「加工」ではなく「制御」に徹するべきだ。
2. 「接続を占有していないか？」: トランザクション内での重い処理（外部API呼び出しやファイルI/O）は絶対に行うな。DBロックの時間は極小化せよ。
3. 「ログは残しているか？」: どんなに美しいコードも、エラー時に理由を語れなければゴミと同じだ。`EventLog` への書き込み機能、あるいはシンプルなテキストログ出力を必ず実装せよ。
VBScriptは、そのシンプルさゆえに、書き手の品格を映し出す鏡のような言語だ。保守性、堅牢性、そしてパフォーマンス。これらを高度にバランスさせたスクリプトこそが、真に「制御」された自動化と言える。
さあ、コードを開け。レガシーを、モダンな規律で書き換える時だ。
