1、运行事务
在Midas中在客户端使用TDataSetProvider的OnUpdateError,在客户程序端使用OnReconCileError就满足要求了。
DEVExpress的:
procedure TForm1.Button1Click(Sender: TObject);
var
TranDesc: TTransactionDesc;
begin
if not self.SQLConnection1.InTransaction then
begin
TranDesc.TransactionID := 1;
TranDesc.IsolationLevel := xilReadCommitted;
self.SQLConnection1.StartTransaction(TranDesc);
try
if SimpleDataSet1.ChangeCount > 0 then
SimpleDataSet1.ApplyUpdates(0);
if SimpleDataSet2.ChangeCount > 0 then
SimpleDataSet2.ApplyUpdates(0);
SQLConnection1.Commit(TranDesc);
except
on e:exceptiondo
SQLConnection1.Rollback(TranDesc);
end;
ShowChangeCount;
end;
end;
ADO:
ADOConnection1.begin
Trans
try
数据提交处理。。。
ADOConnection1.CommitTrans;
except
ADOConnection1.RollbackTrans;
end;
传输数据:
1、
你可以采取分段的方式设置TClientDataSet组件的PacketRecords为10或其它数据。
2、如果是有条件的处理可以使用TClientDataSet组件的CommandText语句
3、或使用TClientDataSet组件的DataRequest方法。