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

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

转载请注明出处:

撰写人;度量科技 www.delit.cn