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

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