先說明一下元件結構如下 Form1視窗 數據庫pm3d←ADOConnection1←ADOTable1←DataSource1←DBGrid1 ←ADOQuery1 數據庫用MS SQL SERVER資料為3萬多筆，查詢時數度非常快 但是當我儲存再開檔，並用DBGrid1重新顯示，速度卻特別慢，是否有別的方法 刪除的部份： 刪除後要等54秒才能繼續操作，是否有別的快速方法 procedure TForm1.SpeedButton7Click(Sender: TObject); var Emp_No: String; begin Emp_No := DataSource1.DataSet.FieldByName('A0').AsString; ADOTable1.Active:=True; ADOTable1.Locate('A0',Emp_No,[]); if messagedlg('確定要刪除?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin ADOTable1.Delete; ADOTable1.Active:=False; ADOTable1.Active:=True; DataSource1.DataSet :=ADOTable1; DBGrid1.DataSource := DataSource1; end; end; 發表人 - jawtair 於 2003/05/23 23:23:23

1. 用 Table Delete做完後不用關掉重開的    2. 用另一 SQL 做 另外做一個 TADOQuery2 SQL 輸入 'delete from pm3d where A0 = :A0'    Form 的 onCreate 或 onShow 加入 (非必要,但增加效率) : TADOQuery2.Prepare;    

procedure TForm1.SpeedButton7Click(Sender: TObject);
var
  Emp_No: String;
begin
  Emp_No := DataSource1.DataSet.FieldByName('A0').AsString;
  if messagedlg('確定要刪除?',mtConfirmation,[mbYes, mbNo], 0) = mrYes then
  begin
    ADOQuery2.Parameters.ParamByName('A0').AsString := Emp_No;
    ADPQuery2.ExecSQL;
  end;
end;

數據庫用MS SQL SERVER資料為3萬多筆，查詢時數度非常快    但是當我儲存再開檔，並用DBGrid1重新顯示，速度卻特別慢，是否有別的方法    刪除的部份： 刪除後要等54秒才能繼續操作，是否有別的快速方法    ------------------------------------------- 对于数据库的操作（INSERT、UPDTE、DELETE），请采用ADOQUERY写SQL的方法，这样就会很块的。    风花雪月 e梦情缘

------
风花雪月 e梦情缘

引言: 2. 用另一 SQL 做 另外做一個 TADOQuery2 SQL 輸入 'delete from pm3d where A0 = :A0'

本來想結案，但我始終不明白為什麼要另外開一個TADOQuery2，它有什麼原理嗎？是否能尚為解說一下，謝謝版主

只是給你多一種方法來參考 若使用 Table 的話,直接刪除後不用重開可算是最簡易的了。 但很多時資料不是一個 Table 可解決的，若你使用 TADOQuery 來選取不同數據庫的資料時，使用另一個 Query 來處理異動是一個較快及可行的方法。因為有些人喜歡使用同一個 TADOQuery 用不同 SQL 來讀取資料及異動資料，這樣反而慢又沒效率。