try
MainDataModule.adocntMain .BeginTrans;
adorsmain.UpdateBatch;
MainDataModule.adocntMain .CommitTrans ;
except
adorsmain.CancelUpdates;
MainDataModule.adocntMain .RollbackTrans ;
raise;
end;
MainDataModule.adocntMain .BeginTrans;
adorsmain.UpdateBatch;
MainDataModule.adocntMain .CommitTrans ;
except
adorsmain.CancelUpdates;
MainDataModule.adocntMain .RollbackTrans ;
raise;
end;
adodataset.connection.BeginTrans;
adodataset.UpdateBatch;
adodataset.connection.CommitTrans ;
except
adodataset.CancelUpdates;
adodataset.connection.RollbackTrans ;
raise;
end;adodataset用缓存更新,在提交数据时开始事务。