提高AdoQuery的速度

最新推荐文章于 2024-05-30 09:20:17 发布

转载最新推荐文章于 2024-05-30 09:20:17 发布 · 142 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/m0488/p/3800523.html

文章标签：

#数据库

本文介绍了如何通过调用TDataSet类的DisableControls方法来提高数据库查询速度，尤其是在数据量大的情况下，这种方法可以将查询时间从30到40秒减少到1秒到2秒。

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

如果TDataSet类没有与数据感知控件相连，通过调用DisableControls可以极大地提高查询速度

特别是在数据比较多的情况下。

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

不调用DisableControls时需要执行30到40秒，

调用DisableControls后只需要1秒到2秒。

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;