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