提高AdoQuery的速度

Uses   DateUtils, Math

用TDataSet及其派生类如TAdoQuery对数据库进行查找时，如果TDataSet类 

没有与数据感知控件相连，通过调用DisableControls可以极大地提高查询速度，特别是在数据比较多的情况下。

下面一段代码查询一个45000条记录的表，

不调用DisableControls时需要执行30到40秒，调用DisableControls后只需要1秒到2秒。

procedure TfTopDBei.LoadPKTizim;
var
  i: int64;
  ABeginTime: TTime;
begin

  mmSList_PKData := TStringList.Create;

  dConnector.OpenQuery(adqXXX,'SELECT 证件号码18, 脱贫属性 FROM fpData0805');

  //--- 提速  adqXXX
  adqXXX.DisableControls;
  adqXXX.First;

  ABeginTime := now();

  while not adqXXX.Eof do
  begin
    mmSList_PKData.Add(adqXXX.FieldByName('证件号码18').AsString + '=' + adqXXX.FieldByName('脱贫属性').AsString);
    adqXXX.next;//行移动
  end;
  adqXXX.EnableControls;

  ShowMsgToMemo(mmMsg, '记录数：' + vartostr(adqXXX.RecordCount) + ' , 所需时间：' + vartostr(ceil(SecondSpan(ABeginTime, Now()))) + ' 秒'); // uses  DateUtils, Math,

  ShowMsgToMemo(mmMsg,'总数: ' + vartostr(mmSList_PKData.Count));
  ShowMsgToMemo(mmMsg,'测试：653222194904013519: ' + mmSList_PKData.Values['653222194904013519']);

end;

 

 

procedure TForm1.Button2Click(Sender: TObject);
var 
    Time : DWORD;
begin
    Time := GetTickCount;
    AdoQuery1.Close;
    AdoQuery1.SQL.Clear;
    AdoQuery1.SQL.Add('select * from table');
    AdoQuery1.DisableControls;
    AdoQuery1.CacheSize := 1000; // 影响不是很大
    AdoQuery1.Open;

    while not AdoQuery1.Eof do
    begin
        AdoQuery1.Next;
    end;
    AdoQuery1.EnableControls; // 恢复，与DisableControls配对调用。
    Time := GetTickCount - Time;
    Label1.Caption := IntToStr(Time);
end;