請教各位先進: 目前小弟使用 MS-SQL 資料庫, 在多人同時使用資料庫的情況下, 想要使用 ADOQuery 正確查詢資料表所有的資料筆數, 以及符合特定 條件的資料及資料筆數, 以判別接下要更新的動作, 請問要如何指定 SQL 敘述, 以避免執行過程因他人更改資料造成計算錯誤的情況呢? 例如: var iCount,iTotal: integer; vData: variant; begin with ADOQuery1 do begin SQL.Add('select count(*) from Customer'); Open; iTotal := Fields[0].AsInteger; Close; SQL.Clear; SQL.Add('select * from Customer where Age >= 40'); iCount := RecordCount; vData := GetData(ADOQuery1); end; ... 如在程式已執行完 iTotal := Fields[0].AsInteger; 還未執行下面程式碼時有其他使用者刪除資料, 計算所得的總筆數就是錯誤的,請問要如何解決呢?

Hi, 這種狀況就得起 transaction 來包裝你的操作, 可以使用 ADOConnection 的 BeginTrans, RollbackTrans, CommitTrans 來將操作整個包起來, 但要注意你 lock 的時間, 若是時間過長會讓其他要讀 database 的 client 產生封鎖作用, 而無法存取, sample 如下,    

begin
  ADOConnection1.BeginTrans;
  // do something
  // your code here
  if(something wrong)
    ADOConnection1.RollbackTrans
  else
    ADOConnection1.CommitTrans;
end;  

timhuang 您好! 當程式開始交易,並查詢完資料總筆數後,還未完成交易前, 其他使用者有可能刪除某筆資料,這時之前所查到的總筆數就是 錯誤的,請問有辦法避免這種情況嗎? 我的需求是正確獲得某個 時間點上(比如交易期間) 取得符合條件的資料及筆數及資料表 總資料數.

請按以下方式執行：    

adoConnect := ADOQuery1.Connection;
adoConnect.BeginTrans
  with ADOQuery1 do begin
    SQL.Add('select count(*) from Customer (UPDLOCK)'); 
    Open;
    iTotal := Fields[0].AsInteger;
    Close; 
    SQL.Clear;
    SQL.Add('select * from Customer where Age >= 40');
    iCount := RecordCount;
    vData := GetData(ADOQuery1);
  end;
adoConnect.CommitTrans

這裡使用UPDLOCK是為了能達到最大的並行效果（其它用戶可以讀取數據，但是不能更改數據）。當然，也可以用更嚴格的鎖HOLDLOCK/SERIALIZABLE/XLOCK/TABLOCKX

參考 Arlung Miao 兄的建議, 應能解決你的問題, 但要注意鎖定時間的長短, 避免造成效能降低!

感謝 timhuang 及 Arlung Miao 的熱心解答, 測試過可以解決我的問題了,非常感謝!!