如何获取 adoquery 的查询进度？

linghive 2009-07-04 12:19:18

...全文

62 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

mjp1234airen4385 2009-07-14

打赏
举报

据说需要数据库的支持，而现在的各种类型的数据库中，只有DB2据说是可以支持的。
其他类型的数据库都没有支持。

只是据说

wanghp1230 2009-07-14

打赏
举报

学习

yanele 2009-07-10

打赏
举报

我些方法我都试过,效果都不怎么好!

阿三 2009-07-07

打赏
举报

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取
end;
//ADOQuery的OnFetchProgress事件
procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
ProgressBar1.Position := Progress;
ProgressBar1.Max := MaxProgress;
end;
//ADOQuery的OnFetchComplete事件
procedure TForm1.ADOQuery1FetchComplete(DataSet: TCustomADODataSet; const Error: Error; var EventStatus: TEventStatus);
begin
ProgressBar1.Position := ProgressBar1.Max;
ShowMessage('OK');
end;

cxlll 2009-07-07

打赏
举报

行不行哦,看下,这个还能提示出来那是相当的厉害,谢谢

yuxueyou 2009-07-06

打赏
举报

学习下明天试试看看行不行

yanele 2009-07-06

打赏
举报

白费,这个问题我问过两次,最终都没有结果,最终还是做的一个假象
但肯定需要采用多线程,否则效果不怎么好!

scutLiu 2009-07-06

打赏
举报

学习了

lzy6204 2009-07-06

打赏
举报

加一个Adoconnection1并设置
ConnectOptions:=coAsyncConnect;
adoquery.connection:=Adoconnection1;

ADOQuery的 ExecuteOptions 改为 [eoAsyncFetchNonBlocking]，

procedure TForm1.ADOQueryFetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
progressbar1.Position:=progress;
end;

haochin 2009-07-06

打赏
举报

[Quote=引用 5 楼 lzy6204 的回复:]
加一个Adoconnection1并设置
ConnectOptions:=coAsyncConnect;
adoquery.connection:=Adoconnection1;

ADOQuery的 ExecuteOptions 改为 [eoAsyncFetchNonBlocking]，

procedure TForm1.ADOQueryFetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
progressbar1.Position:=progress;
end;
[/Quote]

这个有用吗？高手回答一下。