zoukankan      html  css  js  c++  java
  • 提高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;
  • 相关阅读:
    AES对称加密和解密
    Akka并发编程框架 -概念模型(Akka.net或者Orleans)
    .net经典书籍
    计算机专业经典著作(转载)
    windows创建定时任务执行python脚本
    数据库中为什么不推荐使用外键约束(转载)
    《SQL Server性能调优实战》知识点汇总
    数据库索引知识汇总
    ASP.NET常见异常处理示例
    MVC的HTTP请求处理过程(IIS应用程序池、CLR线程池)
  • 原文地址:https://www.cnblogs.com/m0488/p/9506961.html
Copyright © 2011-2022 走看看