小弟之前跑delphi6徹底研究11_3的範例,裡面講3-tiers的架構,這個範例 會將clentdateset更新的資料delta傳到applaction server上的DataSetProvider,並呼叫其ApplyUpdates(),執行這一行時,會有missing data provider or data packet 錯誤,我接oracle或範例用的paradox都一樣..另外, 發生錯誤時ErrCount好像為0說,並直接跳至exception處理區段,並沒有執行if ErrCount > 0 then這段..請前輩幫忙,謝謝    

  procedure TTest113Server.ApplyUpdates(CustVar: OleVariant);
var
  ErrCount: Integer;
begin
  //Database1.StartTransaction;                // 啟動Transcation
  adoconnection1.BeginTrans;
  try
    if not VarIsNull(CustVar) then        // 判斷前端傳過來的DataSet是否有被異動
    begin                                // 如果有，則把異動部份寫入資料庫中
      CustVar := DataSetProvider1.ApplyUpdates(CustVar, 0, ErrCount);
      if ErrCount > 0 then                // 判斷資料庫寫入動作是否有錯誤
        SysUtils.Abort;                        // 如果有，則中斷
    end;
    //Database1.Commit;                        // 確認剛才的寫入動作
      adoconnection1.CommitTrans;
  except
    //Database1.Rollback                        // 恢復到寫入前的狀態
      adoconnection1.RollbackTrans;
  end;
end;
 

< >< >

------
星期一,二...無窮迴圈＠＠