Table的结构为： Ord Int <-------------- 从1增长到10000 Status SmallInt <--------------恒等于-1 使用的是ADO Access, 大概要30秒钟。 各位有无快速的方法？如采用一条SQL语句执行 请高手帮忙解决

您好﹗    方法一﹕

Var
  I : Integer;
begin
  I := 1;
  ADODataSet1.CommandType := cmdTable;
  ADODataSet1.CommandText := 資料表名稱;
  While I < 10000 do
    begin
      ADODataSet1.Close;
      ADODataSet1.Open;
      ADODataSet1.Insert;
      ADODataSet1.FieldByname('Ord_Int').Value := I;
      ADODataSet1.FieldByName('Status_SmallInt').Value := -1;
      ADODataSet1.Post;
      I := I 1;
    end;
end;

方法二﹐因為TADODataSet元件不能使用無回傳值的SQL指令﹐如Insert, Delete等等﹐所以﹐在使用方法二時﹐您可選擇ADOCommand或ADOQuery元件﹕

Var
  I : Integer;
begin
  I := 1;
  While I < 10000 do
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('Insert Into 資料表名稱 (Ord_Int, ');
      ADOQuery1.SQL.Add('Status_SmallInt) Values (:Ord, :Status)');
      ADOQuery1.ParamByName('Ord').Value := I;
      ADOQuery1.ParamByName('Status').Value := -1;
      ADOQuery1.ExecSQL;
      I := I 1;
    end;
end;

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

也參考這篇中 Justmade 大大的一些說明: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27177 --- Everything I say is a lie. @>---

问号的关键是如何提速

您好﹗    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=42397 這篇也是您提問的喔 ><>===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

引言: 问号的关键是如何提速

能有效提升速度的方法就是使用 stored procedure, 但是 access 並不支援, 所以比較沒辦法用這種方法, 但是也可能因為你使用的是 access, 所以本來效能就不高, 所以會造成速度緩慢.

引言: Table的结构为： Ord Int <-------------- 从1增长到10000 Status SmallInt <--------------恒等于-1

我將ord 欄位採用access 主索引(識別碼 自動編號)方式，只需要建立好Status欄位，以ADO 寫入只需要14 sec procedure TForm1.Button1Click(Sender: TObject); var I:Integer; str:string; begin try Label1.Caption:=DateTimeToStr(now);//start time ADOConnection1.Connected:=true; with ADOQuery1 do begin Close; sql.Clear; str:='insert into test (status) values (-1)' ; SQL.Add(str); for I := 1 to 10000 do begin ExecSQL; end; Label2.Caption:=DateTimeToStr(now);//End time end; except on E:Exception do begin showmessage(E.Message); halt; end; end; end;