ado open 大量数据时 如何防止界面 无响应

Question

adoquery  adotable 
procedure TForm1.ADOTable1FetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  ShowMessage(IntToStr(MaxProgress ) );
end;怎么 代码就不进这里  不执行 
大家是怎么做的  ？

Answer 1

没有用过adoquery的execute options属性你看看好像是eoAsyncFetch=true,或者你调一下其它的选项看看

Answer 2

因为再 vb 里会有这种情况  可vb没有多线程
现在 delphi 开发 也要避免这些问题 以为我们数据量比较大 100W 做查询/统计 都要耗费多时间

Answer 3

[eoAsyncFetch]  为 true 后再执行报错了  我只是想 open  过程中    Application.ProcessMessages ;处理一下 消息  可我 不知道把代码放到哪里  ？

Answer 4

Application.ProcessMessages  效果不大,建议还是用线程