BeginTrans
トランザクションの開始
文法
Connectionオブジェクト.BeginTrans
機能説明
トランザクション開始
CommitTrans実行で内容が反映
RollbackTrans実行で破棄
使用例
<%
Dim objConn
'オブジェクト作成
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "test"
'トランザクション開始
objConn.BeginTrans
'データ追加
objConn.Execute("insert into test(name,state) values('渡部','HighTension')")
If objConn.Errors.Count > 0 Then
'エラー発生時トランザクションロールバック
objConn.RollbackTrans
Response.Write "エラー!!"
Else
'正常処理時
objConn.CommitTrans
Response.Write "データ追加"
End If
'オブジェクト開放
objConn.Close
Set objConn = Nothing
%>
Topへ