Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to make the cursor read write in VFP 6.0
Message
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
01114851
Message ID:
01114898
Views:
14
>Hi
>Can anyone just forward me the prg to make the cursor read write in vfp6

Below is a sample function you can use to make a cursor RW. You may want to add more error checking and adjust it in some other areas.
SELECT ... INTO CURSOR crsResult NOFILTER
= MakeCrsRW()
...
FUNCTION MakeCrsRW
	LPARAMETERS tcCursor
	LOCAL lcCursor, lcTempAlias
	lcCursor = IIF( Empty( tcCursor) Or VarType(tcCursor) <> "C", ALIAS(), tcCursor)
	lcTempAlias = SYS(2015)
	USE DBF(lcCursor) AGAIN ALIAS (lcTempAlias) IN 0
	USE IN (lcCursor)
	USE DBF(lcTempAlias) AGAIN ALIAS (lcCursor) IN 0
	USE IN (lcTempAlias)
	SELECT (lcCursor)
RETURN
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform