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