Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Still BUG VFP8 SP1?
Message
 
 
To
19/11/2003 05:31:39
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00851320
Message ID:
00851381
Views:
16
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
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform