複数のSQL文を一つのトランザクションで行いたい(SQL Server)

質問

Visual Basic 2005 から SQL Server に接続してINSERTやUPDATE処理を行いたいのですが、トランザクション処理の記述方法が分かりません。

コネクションオープン

トランザクション開始

　クラスＡ呼び出し（INSERTやUPDATEの処理記述）

　クラスＢ呼び出し（INSERTやUPDATEの処理記述）

　…

コミット（またはロールバック）

トランザクション終了

コネクションクローズ

上記の様に、いくつかのクラスに分けて記述したINSERTやUPDATEの処理を、一つのトランザクションで行いたいです。
コネクションやトランザクションを引数とすればよいのでしょうか？

回答No.1

tomo316 · ベストアンサー

Option Explicit
Dim Cn As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim rst As New ADODB.Recordset

＞コネクションオープン

＞トランザクション開始
　　　　Cn.Execute "BEGIN TRANSACTION"
Cn.Execute "set implicit_transactions off"

＞　クラスＡ呼び出し（INSERTやUPDATEの処理記述）

＞　クラスＢ呼び出し（INSERTやUPDATEの処理記述）

　…

＞コミット（またはロールバック）
If 判定 Then
Cn.Execute "COMMIT TRANSACTION"
Else
Cn.Execute "ROLLBACK TRANSACTION"
End If

＞トランザクション終了
コミトまたはロールバックで終了
つまり、トランザクションはBEGIN TRANSACTIONで始まり、COMMIT TRANSACTIONで終わる。
＞コネクションクローズ
注：全角表記あり

できないことは無いですが、ストアードプロシジャで作ったほうが確実ですよ。
ＡＤＯだと途中でこけるとどうなるか保証できない。

トランザクションを意識するのであれば、ストアードが一番。

お礼

アドバイスありがとうございます。
参考になりました。

回答No.2

unamana19

Visual Basic 2005であれば、TransactionScopeを利用すると
あまり意識せずにトランザクションを実装できます。
ただし、MSDTCが起動されているのが前提になりますけどね。

お礼

アドバイスありがとうございます。
参考になりました。