您的位置:首页 > 编程语言 > Delphi

Delphi三层的事务处理方法

2009-05-14 13:27 323 查看
写一个远程方法

形式为:

procedure trandelta(data1,data2,data3:olevariant);

begin

adoconnection1.begintran;

datasetprovider1.as_applyupdates(data1,...);//可以用ado控件直接完成数据更新

datasetprovider1.as_applyupdates(data2,...);

datasetprovider1.as_applyupdates(data3,...);

if adoerrors.item.count=0 then

adoconnection1.commit

else begin

adoconnection1.roolback;

sysutls.abort;

end;

end;

注: 若同时更新多条记录,可参考midas的处理方式

逐条处理

内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: