>lnConnectionHandle=sqlstringconnect("String To Connect to the server") >tcSQLStatement = "select * from x" >tcCursorname = "curTest" >lnOK = 0 > >if lnConnectionHandle > 0 > > if sqlsetprop(lnConnectionHandle, 'Asynchronous', .T.) = 1 > > local lnZaehler, lnAnzahl, lnModulo > store 0 to lnZaehler, lnAnzahl, lnModulo > lnModulo = 60 > > lnOK = sqlExec(lnConnectionHandle, tcSQLStatement, tcCursorname) > > do while lnOk = 0 > lnOK = sqlExec(lnConnectionHandle) > lnZaehler = lnZaehler + 1 > > * Nach lnModulo durchläufen den Balken wieder von vorne ausgeben > 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.1,"H") > enddo > > set message to "Abfrage beendet" > > > sqlsetprop(lnConnectionHandle,'Asynchronous', .f.) > > set message to > else > lnOK = - 1 > endif > >endif>? sqldisconnect(lnConnectionHandle)