VBScriptでデータベースを操る極意：ADODBを完全掌握するトランザクション制御術
こんにちは。自動化の現場でVBScriptと長年向き合ってきたエンジニアです。
「マクロの記録」で自動化を始めた皆さんが、次にぶつかる壁が「外部データとの連携」です。Excelの中にデータを溜め込む時代は終わりました。これからはSQL Serverという堅牢な基盤と直接対話し、安全にデータを更新するスキルが、あなたの自動化ツールを「おもちゃ」から「業務システム」へと昇華させます。
今日は、VBScriptの真骨頂である`ADODB`（ActiveX Data Objects）を使いこなし、トランザクション制御までを実装する「現場の鉄則」を伝授しましょう。
—
1. なぜ「ADODB」なのか？その正体を知る
VBScriptにおいてデータベースと通信するための「翻訳機」がADODBです。OS（Windows）に標準搭載されているため、追加インストールなしで、今日からすぐにSQL Serverへ接続可能です。
接続の3つの柱
1. Connectionオブジェクト: データベースへの「開通工事」。接続情報を握る心臓部です。
2. Command/Recordsetオブジェクト: 実際にSQLを投げ、結果を運ぶ「運び屋」。
3. Transaction: 「全部成功するか、全部なかったことにするか」を決める、データ整合性の守護神です。
—
2. 【実務直結】ADODBトランザクション実装モジュール
以下のコードは、現場でそのまま使えるテンプレートです。コピーして、接続文字列（ConnectionString）を書き換えてみてください。
‘ — DB接続・更新モジュール —
Option Explicit
Dim conn, strConn
Set conn = CreateObject(“ADODB.Connection”)
‘ 1. 接続文字列の定義 (ServerName, DatabaseNameを適宜変更)
strConn = “Provider=SQLOLEDB;Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=SSPI;”
On Error Resume Next ‘ エラー発生時に自前で制御するため
‘ 2. 接続開始
conn.Open strConn
If Err.Number <> 0 Then
WScript.Echo “接続失敗: ” & Err.Description
WScript.Quit
End If
‘ 3. トランザクション開始（ここからが重要！）
conn.BeginTrans
‘ 4. SQL実行（例：在庫を減らす）
conn.Execute “UPDATE Inventory SET Stock = Stock – 1 WHERE ItemID = ‘A001′”
‘ 5. エラーチェック
If Err.Number <> 0 Then
WScript.Echo “更新エラー発生！ロールバックします。”
conn.RollbackTrans ‘ 変更をなかったことにする
Else
‘ 6. 確定（コミット）
conn.CommitTrans
WScript.Echo “処理完了！”
End If
‘ 7. 後始末（リソースの解放はエンジニアの嗜み）
conn.Close
Set conn = Nothing
—
3. ここを抑えれば「脱・初学者」！3つの重要ポイント
① `On Error Resume Next` との付き合い方
VBScriptはエラーで止まると、そこで全てが終了します。しかし、DB更新中にエラーで止まると、データが中途半端な状態（不整合）になる恐れがあります。上記のコードのように、エラーをキャッチした瞬間に`RollbackTrans`を呼び出す設計が、プロの最低条件です。
② `Integrated Security=SSPI` の魔法
パスワードをスクリプト内に書くのはセキュリティ上の大罪です。Windows認証（SSPI）を使えば、現在PCにログインしているユーザー権限でDBに接続できます。パスワード管理から解放される、最も賢いやり方です。
③ 「接続解除」は必ず行う
VBScriptのオブジェクトは、スクリプト終了時に自動開放されることもありますが、複雑な処理ではメモリを食いつぶします。`Set conn = Nothing` を最後に書く癖をつけましょう。これは、君のコードが長期間安定して稼働するための「おまじない」です。
—
4. 陥りやすい罠：文字コードとSQLインジェクション
- 文字コード: SQL Serverとのやり取りでは、日本語（マルチバイト文字）で文字化けすることがあります。接続文字列に `Charset=utf-8` を付与するか、DB側の照合順序（Collation）を意識してください。
- SQLインジェクション: もし変数をSQL文に組み込む場合、絶対に文字列連結で記述してはいけません。`Parameters` コレクションを使用する癖をつけましょう。これについては、また別の機会に深く解説しますね。
—
最後に：自動化エンジニアへのステップ
ここまで理解できれば、君はもう単なるスクリプト利用者ではなく、「データ管理者」の一歩を踏み出しました。
「なぜ動かないのか？」と悩んだとき、エラーメッセージを読み解く力こそが、君を一段上のエンジニアに引き上げてくれます。まずはこのコードを動かし、データベースのレコードが変わる感動を味わってください。
ここをクリアすれば、VBScriptの基本はバッチリです。自信を持って、次の自動化プロジェクトに挑みましょう！
