Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to make the cursor read write in VFP 6.0
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
01114851
Message ID:
01114898
Vues:
13
>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--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform