>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 > >