請問在vb里,如何做事務啊

[yjgfounder]

請問在vb里,如何做事務啊?

我向數據庫里插入數據,如果報錯想讓其ROLLBACK

[faysky2]

请参考：

Private Sub Form_Load()
On Error GoTo OpErr '设置错误陷阱
cn.BeginTrans '开始事务
cn.Execute ("sql语句1")
cn.Execute ("sql语句2")
cn.Execute ("sql语句3")
'......
cn.CommitTrans '提交事务
Exit Sub
OpErr:
cn.RollbackTrans '回滚事务
End Sub

[僵哥]

ADOConnection.BeginTran
On Error Goto Errhandle
'Do Something
ADOConnection.Commit
Goto Ret
ErrHandle:
ADOConnection.RollBack
Ret: