請問要如何刪除某個DataModule裡, 某table所有的資料??? 我用下列語法, 會出現錯誤, 可否幫我看一下問題出在那裡??? ================= 在程式中, 呼叫 --> deleteTable(dmLoader.ADOTableFBMRFF); procedure TfLogin.deleteTable(tb:TAdoTable); var len : integer; begin with tb do begin len := RecordCount; while RecordCount > 0 do Delete; end; end; 會出現, 鍵值欄位資訊不足, 影響太多列的錯誤!

你好： 直接使用 SQL 操作刪除的動作比較有效率也不易出錯。 下面的 Code 你參考看看 < class="code"> procedure deleteTable(tb:TAdoTable); Const SQL = 'Delete From %s'; var adoQ : TAdoQuery; begin if tb.Connection = nil then system.Exit; adoQ := TAdoQuery.Create (Nil); try adoQ.Connection := tb.Connection; adoQ.SQL.Text := format (SQL, [tb.TableName]); adoQ.ExecSQL; tb.Close; tb.Open; finally FreeAndNil (adoQ); end; end; procedure TForm1.Button1Click(Sender: TObject); begin deleteTable (ADOTable1); end;

您好﹗    如果你需要做到的結果單單是刪除資料表中所有的所有資料﹐可參考如下﹕

begin
  While Not tb.IsEmpry do //如果資料庫不是空的則執行Delete
    tb.Delete;
  end;
end;

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/09/04 14:09:57

------
忻晟

我試過 while tb.recordcount > 0 then tb.delete; 會出現, 鍵值欄位資訊不足, 影響太多列的錯誤! ==================================================== ha0009的方式是我後來用的另一個方式, 可以執行, 只是覺得奇怪, 為什麼上述的方法會有錯誤呢???

您的 Table 得設上 Key 或 Index 以防止類似錯誤的發生.    --- 歡迎光臨 KTop 研究院--<-<-<@

嗯~~~那我大概了解原因了! 謝謝大家的幫忙!