|
例子:
'开始事务,标识从这里开始后面的ExecuteNonQuery()、智能部件.SaveData()、SaveDataTable、以及调用的存储过程等将同时成功和失败。
BeginTrans()
网格部件1.SaveData()
记录部件1.SaveData()
ExecuteNonQuery("insert语句或者Update语句")
'用CommitTrans提交执行事务
dim b= CommitTrans()
'判断是否正常处理,如果执行错误,将会把包涵在事务中的处理过的语句全部回滚
if b=false then
'显示事务执行错误的信息
showerror(GetTransMessage())
end if
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.