RollbackTrans
トランザクションをキャンセルし終了
文法
Connectionオブジェクト.RollbackTrans
機能説明
トランザクションをロールバックして終了
AttributesでadXactAbortRetainiingが設定されていると、自動でトランザクションが開始
使用例
<%
Dim objConn
'データベース接続
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "test"
'トランザクション開始
objConn.BeginTrans
objRS = objConn.Execute("select count(*) from test")
Response.Write "処理前 : " & objRS(0)
objCFonn.Execute("insert into test(name, status) values('渡部', 'Usually')")
'ロールバック
objConn.RollbackTrans
'insertをロールバックしたので件数は変わらず
objRS = objConn.Execute("select count(*) from test")
Response.Write "処理後 : " & objRS(0)
'オブジェクト開放
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>
Topへ