in client,users have two different tables needed to be applyupdate in the same transaction for their integrity.these two table are not master detail relation.if applyupdates in client,then if internet connection lost,the transaction will dead.so I defined a method in middle layer which recieive the client's delta as parametre,this method then start transaction and call datasetprovider's applyupdates to do the real updates to the underlining database.the question is:if datasetprovider updates occur error,how to show these error and those un-updated records to the client?we know if we call clientdataset's applyupdates,these would work well with its onreconcile event. in middle,the interface method pesucode like: save(delta1:olevariant): begin starttransaction; try datasetprovider1.applyupdates(delta1,0,errorcnt); datasetprovider2.applyupdates(delta2,0,errorcnt); commit; except rollback; end; in client,call this method:appserver.save(clientadataset1.delta,cliendataset2.delta);

引言: the question is:if datasetprovider updates occur error,how to show these error and those un-updated records to the client?we know if we call clientdataset's applyupdates,these would work well with its onreconcile event. in middle,the interface method pesucode like:

save(delta1:olevariant) : String;
begin
  starttransaction;
  try
    datasetprovider1.applyupdates(delta1,0,errorcnt);
    datasetprovider2.applyupdates(delta2,0,errorcnt);
    commit;
    Result := '';
  except
    on E : Exception do
    begin
      Result := E.Message;
      rollback;
    end;
  end;    in client,call this method:
Error := appserver.save(clientadataset1.delta,cliendataset2.delta);
if Error <> '' then
  ShowMessage(Error);

Add Red Code

人生有夢，逐夢而行。 人若為善，福雖未至，禍已遠離。 人若為惡，禍雖未至，福已遠離。 http://www.taconet.com.tw/jieshu/

if You want to process reconcile Error in client ,you may redeclare your methord as  

 
In Server Tier    Procedure Save(Delta1,Delta2:OleVariant;
               Out vReconcile1,vReconcile2:OleVariant;
               Out ErrorCount:Integer);
var ec1,ec2:Integer;
begin
 starttransaction;
 try
  vReconcile1 :=Datasetprovider1.Applyupdates(Delta1,0,ec1);
  vReconcile2 :=Datasetprovider2.Applyupdates(Delta2,0,ec2);
  ErrorCount := ec1   ec2;//ec1 add ec2
  if ErrorCount = 0 then commit else rollback;
 except
  rollback;
  raise; 
 end;
end;    in Client
var
 vReconcile1,vReconcile2:OleVariant;
 errorCount:Integer;
begin
 ....
 xxx.AppServer.Save(ClientDataSet1.Delta,ClientDataSet2.Delta,
                    vReconcile1,vReconcile2,ErrorCount);
 if ErrorCount = 0 then
 begin
   ClientDataSet1.Reconcile(vReconcile1);
   ClientDataSet2.Reconcile(vReconcile2);
   ClientDataSet1.MergeChangeLog;
   ClientDataSet2.MergeChangeLog;
 end else begin
   if not VarIsNUll(vReconcile1) then  ClientDataSet1.Reconcile(vReconcile1);
   if not VarIsNUll(vReconcile2) then  ClientDataSet2.Reconcile(vReconcile2);
 end;     end;

then you may process reconcile error in OnReconcileError Event. 混心雜欲 棄修身~唉

------
唉~

Thanks JieShu and SpeedUp! pls logon http://www.3asoft.com to see my book "Guide for Interbase70 development" (kylixyao)writen for main China readers. welcome for comment.

Hi,SpeedUp    thanks for great help for me.may I ask you a private question?which company you work for(Borland)?and what's your profession?

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.