给大家来个事务的使用方式

dim sql="insert into ceshishiwu1(ID, 自动编号) values('" + guid() + "','abc')"

'开始事务
BeginTrans()

'之间是处理数据的方法，包括ExecuteNonQuery、部件.SaveData()、SaveDataTable、存储过程四种。
网格部件1.SaveData()
ExecuteNonQuery(sql)

'用CommitTrans提交数据到服务器处理
dim b= CommitTrans()

'判断是否正常处理，如果未处理正常，可用GetTransMessage()获取出错信息。
if b=false then
showerror(GetTransMessage())
end if

事物使用，主要用于一个操作多次操作数据库的，好处就是一个失败，全部失败。

原文地址:http://bbs.delit.cn/thread-516-1-1.html
转载请注明出处:
撰写人:度量科技http://www.delit.cn