在徹底研究 delphi6中第11章有一個範例 procedure TTest113Server.ApplyUpdates(CustVar:OleVariant); var ErrCount:integer begin Database1.StartTranstraction; try if not VarIsNull(CustVar) then begin CustVar:=DataSetProvider1.ApplyUpdates(CustVar,0,ErrorCount); if ErrorCount>0 then SysUtils.Abort; end; Database1.Commit; except Database1.Rollback end; end; 關於這一行 CustVar:=DataSetProvider1.ApplyUpdates(CustVar,0,ErrorCount); 這樣是說每一個不同的交易都要寫個別的 ApplyUpdates 嗎 ? 這樣就會有很多個 ApplyUpdates 是不是 ?

引言: 關於這一行 CustVar:=DataSetProvider1.ApplyUpdates(CustVar,0,ErrorCount); 這樣是說每一個不同的交易都要寫個別的 ApplyUpdates 嗎 ? 這樣就會有很多個 ApplyUpdates 是不是 ?

不是，他是以傳進來的Delta參數去ApplyUpdate的，所以可以共用。而回傳的是不能被ApplyUpdate的，Delphi說明如下： ApplyUpdates returns a data packet of updates that could not be applied to the database as an OleVariant.

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

那假設我在 AppServer 中有 dspX, dspY 指到 Table X 及 Y dspZ 未指定 那麼 dspX 或 dspY 做Transaction 時, 都可以呼叫 上面那個 AppServer 的 ApplyUpdates(CustVar:OleVariant) 嗎

引言: 那假設我在 AppServer 中有 dspX, dspY 指到 Table X 及 Y dspZ 未指定 那麼 dspX 或 dspY 做Transaction 時, 都可以呼叫 上面那個 AppServer 的 ApplyUpdates(CustVar:OleVariant) 嗎

可以，但要改一下Function，如下：未測過

 
procedure TTest113Server.ApplyUpdates(ProviderNames,CustVar:OleVariant);
var
  ErrCount,i:integer
begin
  Database1.StartTranstraction;
  try
    for i := 0 to VarArrayHighBound(ProviderNames, 1) do
    begin
      if not VarIsNull(CustVar[i]) then
        CustVar[i]:=(FindComponent(ProviderNames[i]) as TDataSetProvider).ApplyUpdates(CustVar[i],0,ErrorCount);
      if ErrorCount>0 then
        SysUtils.Abort;
    end;
    Database1.Commit;
  except
    Database1.Rollback
  end;
end;

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

提問者您好:


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


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


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

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