>{timerclass.start}
>lnSqlFinished=0
>do while lnSqlFinished#1
> lnSqlFinished=SQLEXEC(lnConnectionNumber,lcSelectStatement)
> wait window 'Still Going...'+time() nowait
> {additional commands}
>enddo
>wait window 'Sql Finsihed' timeout 1
>{timerclass.stop}
>
>would work because the select statement is running on the server and the resources of VFP are free to run the timer. In this case the timer events either (randomly?!) do not fire at all or execute all at once just before the 'Sql Finished' wait window appears.
Maybe I didn't understand your problem... But it seems to me that you are not using a real timer. I don't see why do you need an DO WHILE. I thing that if you have a timer, all you need to do is:
YourTimer.Enabled=.t.
when you start the SQL and
YourTimer.Enabled=.f.
when it is finished.
Of course, YourTimer.Timer() must contain:
wait wind 'Still Going...'+time() nowait
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement