ADO的事务处理例子(Delphi)

ADO的事务处理例子(Delphi)

 ADOConnection1.BeginTrans;   //开始事务

try

with ADOCommand1 do

begin

 Connection:=ADOConnection1;

commandtext:='update [country] set [population]=10000 where [name=''Venezuela''';//正确的SQL语句

Execute;

 CommandText:='Wrong SQL Command';//错误的SQL Execute;

ADOConnection1.CommitTrans; //提交事务end;

 except on E:

Exception do

 begin

ADOConnection1.RollbackTrans; //如有异常，事务回滚ShowMessage(E.Message); end end;

end;