各位前輩.. 我有一個Log Table,但它會一直成長 可是我希望當Table 的筆數已到五萬筆時 就將最舊的那一筆刪除,加入最新一筆. 一直保持五萬筆 之前的我做法是 //先取出總筆數 Tmp.Close; Tmp.CommandText := 'select Count(*) TotalCount from ' TableName; Tmp.Open; if (Tmp.FieldByName('TotalCount').AsInteger <= Max_Recordcount) then begin Result := True; end else begin case Overwrite_Type of 0: begin // 最佳化成長 Command.CommandText := 'Delete ' TableName ' Where Log_Serial = (SELECT TOP 1 Log_Serial FROM ' TableName ')'; Command.Execute; Result := True; end; 1: begin //不成長 Result := False; end; end; end; 可是 SELECT TOP 1 不能適用在每個資料庫 不知各位先進,在限制大小都是如何做..(自認為自己的法方不好)

改為這樣試看看

case Overwrite_Type of
0: begin // 最佳化成長
Command.CommandText := 'Delete '   TableName   ' Where Log_Serial = (SELECT MIN(Log_Serial) FROM '   TableName   ')';
Command.Execute;

TRY TRY SEE