
Show progress for ADO Recordset Open
I'm using VB 6.0/ADO to perform ad hoc queries with large resultsets.
As I open a recordset, I would like to show a progress bar to the user,
(e.g. 20% complete, 34% complete, etc...).
Here are my recordset options:
.CursorLocation = adUseServer
.Open strSQL, gdbConn, adOpenStatic, adLockReadOnly, adAsyncFetch
I declare my ADO recordset using WithEvents, but I don't get a
FetchProgress event. I've seen other posts that mention FetchProgress
problems. It seems that you don't get this event with server side
cursors.
I'm also binding the recordset to a DataGrid 6.0. (This takes more
time than the recordset.Open method, I think the entire recordset must
be retrieved from the server when you bind it to a DataGrid)
Is there a way to speed up this process? Or, how can I show a progress
indicator for the "Set DataGrid1.DataSource = madoQueryRS" method?
(I know that you can load a grid very quickly, because MS Access does
this. It displays the first xxxx number of records, and then if you
scroll down or click "movelast" it takes a while to get to the end.
This gives the user the impression that the load is faster than it
truly is.)
TIA,
Joe
Sent via Deja.com http://www.***.com/
Before you buy.