database1.starttransaction;
try
Query1.applyupdates;
Query2.applyupdates;
dmsl.Database1.Commit;
except
database1.Rollback;
Messagedlg('操作失败!',mtwarning,[mbOK],0);
end; query1 提交成功,query2提交出错,这个事务怎么不回滚。还有请问如何撤消这个事务。Tdataset的transaction,
try
Query1.applyupdates;
Query2.applyupdates;
dmsl.Database1.Commit;
except
database1.Rollback;
Messagedlg('操作失败!',mtwarning,[mbOK],0);
end; query1 提交成功,query2提交出错,这个事务怎么不回滚。还有请问如何撤消这个事务。Tdataset的transaction,
ADOQuery2.sql.Add('insert into table2(t1) values(1)');
ADOConnection1.BeginTrans ;
try
ADOQuery1.ExecSQL ;
ADOQuery2.ExecSQL ;
ADOConnection1.CommitTrans ;except
ADOConnection1.RollbackTrans ;
end;
end;