displaying a progress bar that shows the execution of a tadoquery 
Author Message
 displaying a progress bar that shows the execution of a tadoquery

I am looking for displaying a progress bar that shows the execution of a
tadoquery. I have found something useful, capturing the OnFetchProgress
event, but I don't know why it is not workking at all.

This is the code I wrote

procedure TForm1.ADOQuery2FetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  Caption := 'Percent complete: ' +
  IntToStr(Trunc(Progress / MaxProgress * 100)) + '%';
  Application.ProcessMessages;
  progressbar1.Max:=MaxProgress;
  progressbar1.position:=PROGRESS;
  Application.ProcessMessages;
end;



Mon, 02 Jan 2006 21:22:55 GMT
 
 [ 1 post ] 

 Relevant Pages 

1. How do I display a progress bar showing progress for database replication

2. display the status of execution thru progress bar

3. Showing the % done on a progress bar...

4. Need progress bar to show when db is compacted

5. displaying a progress bar for a dao query

6. Showing progress of package execution

7. Displaying Query Progress Bar

8. Execution Plan shows seek, trace shows scans

9. How do I use a Progress Bar / Status Bar

10. Progress bar on a status bar

11. Execution Plan shows seek, Profiler shows scan

12. Progress Bar when Backup Command is in Progress


 
Powered by phpBB® Forum Software