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