Hi!
Refering to the Fixed Bugs in VFP8 SP1
(
http://support.microsoft.com/default.aspx?scid=kb;en-us;824071&Product=Vfp8)
there should be fixed the Bug: Engine - SQL Pass-Through Asynchronous Batch mode fetches all result sets at the same time.
Bud it is not!
The Programm below shows this. In VF7 it functions well in VF8 not.
Its still a Bug in VFP8 SP1?!
Or I am Wrong?
Greetings from Germany
Jörg Schneider
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)
wait window transform(lnOK)
if lnOK > 0
browse
endif