>>sqlsetprop(lnConnectionHandle,'Asynchronous', .T.) = 1 >> >>store 0 to lnZaehler, lnAnzahl, lnModulo >>lnModulo = 60 >> >>* SQL Komando schicken >>lnOK = sqlExec(lnConnectionHandle, tcSQLStatement, tcCursorname) >> >>do while lnOk = 0 >> lnOK = sqlExec(lnConnectionHandle) >> lnZaehler = lnZaehler + 1 >> >> if mod(lnZaehler,lnModulo)=0 >> lnAnzahl = 0 >> else >> lnAnzahl = lnAnzahl + 1 >> endif >> >> set message to "Abfrage wird ausgeführt "+replicate(chr(19),lnAnzahl) >> inkey(0.5, "H") >>enddo >> >>set message to "Abfrage beendet" >> >>sqlsetprop(lnConnectionHandle,'Asynchronous', .f.) >> >>set message to >> >>wait time = default = 100 milliseconds