三层中，如何知道数据已提交Applyupdate成功呢？

Question

三层中，如何知道数据已提交ClientDataSet.Applyupdate（0）成功呢？
即如果提交数据成功则提示等。
Ado—dsp—cds

Answer 1

procedure TUpDataEmp.UpDataE(var vData: OleVariant; iMaxCount: Integer;
  var iErrorCount: Integer);
var
  MyUpdata:IBaseData;
  MyAppSer:IAppServer;
  OwnerData:OleVariant;
begin
  try
   OleCheck(ObjectContext.CreateInstance(CLASS_BaseData,IID_IBaseData,MyUpdata));
   MyAppSer:=MyUpdata as IAppServer;
   MyAppSer.AS_ApplyUpdates('DataSetProvider1',vData,iMaxCount,iErrorCount,OwnerData);
   SetComplete;
  except
   SetAbort;
  end;end;

Answer 2

var i:integer;i:=ClientDataSet.Applyupdate（0）;
if i>0 then
showmessage('提交错误')
else
showmessage('正确')
end;

Answer 3

楼上的对，还有一个 OnReconcleError 事件得到错误的具体内容

Answer 4

来迟了，如太可怕所言另问太可怕：最近在CSDN上赚了不少分吧？^_^