遍历TADOQuer的每一条记录(大概40000条)为什么要30多秒呢? 遍历TADOQuer的每一条记录(大概40000条)为什么要30多秒呢?有什么方法可以快一点? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TADOQuery游标游得慢。如果连接Grid更加慢 试试这样:ADOQuery1.DisableControls;ADOQuery1.First;while not ADOQuery1.Eof dobegin //do something ADOQuery1.Next;end;ADOQuery1.EnableControls; 或者这样 ADOQuery1.Recordset.MoveFirst; while not ADOQuery1.Recordset.EOF do begin //do something; ADOQuery1.Recordset.MoveNext; end; 楼上方法可以试试,如果让dbgrid每次都定位显示是很慢,单独遍历应该会快点. 我的代码什么都没有干只是while not ADOQuery1.Eof dobegin ADOQuery1.Next;end;而已,也一样的慢呀!! gobiz(拔剑容易收剑难) 谢谢你,你的两种方法都可以,很好! 问问智能手机的主要构成 为什么一列中有的值是null有的值是‘’ 请问这个问题怎么解决????在线等======== delphi数据库应用的问题.(问题如解决,开贴加分,绝不食言!) 865主板不能装NT4? 一个有关SQL语句执行之后的问题,看一下吧! 拖拉求助 delphi7里边没有QuickReport组件了么? 今年过节,咱不收礼呀。今年高兴,送分了! 在DELPHI中怎样调VB的DLL? label控件有提示属性吗? 已知窗体Handle, 检测子窗体数目?
ADOQuery1.DisableControls;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
//do something
ADOQuery1.Next;
end;
ADOQuery1.EnableControls;
ADOQuery1.Recordset.MoveFirst;
while not ADOQuery1.Recordset.EOF do
begin
//do something;
ADOQuery1.Recordset.MoveNext;
end;
while not ADOQuery1.Eof do
begin ADOQuery1.Next;
end;而已,也一样的慢呀!!