Hi Sergey

thanks for testing it. I have Installed the SP1. My VFP Version Number is: 08.00.0000.3117. Bud the Program won't work as expected. It runs to the line

lnOK = sqlExec(lnConnectionHandle)

and waits here until all the Data comes from the SQL Server, so my Progressbar wont work.

Is it still a bug?

Greetings from Germany
Jörg Schneider

B&R DV Informationssysteme GmbH

>Hi Jörg,
>
>I run you code against 'Order Details' table in NorthWind DB w/o any problem in VFP8SP1 under WinXPSP1. Double check that you've SP1 installed (including SP1 runtimes if you've this problem at runtime).
>
>>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