Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Pass parameter to cursoradapter vcx include
Message
 
À
18/01/2005 12:22:09
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Database:
MS SQL Server
Divers
Thread ID:
00978162
Message ID:
00978178
Vues:
28
>test is a cursoradapter with a ?cssn in the select
>
>SET CLASSLIB TO test additive
>private oXC
>oXC = CREATEOBJECT('test')
>? what here for parameter
>m.error = oXC.Cursorfill()
>If !m.error
>*Wait WINDOW "Upload Failed.  Press a key..."
>   =Messagebox(Message(),64)
>Else
>   brow
>   oXC.RELEASE()
>endif
>return
>
>Is this the right way to do this?
SET CLASSLIB TO test additive
private oXC
oXC = CREATEOBJECT('test')
cssn = ValueForCssn && Do not declare cssn as LOCAL
m.error = oXC.Cursorfill()
If !m.error
   =Messagebox(Message(),64)
Else
   brow
   oXC.RELEASE()
endif
return
Other way
SET CLASSLIB TO test additive
private oXC
oXC = CREATEOBJECT('test', ValueForCssn)
m.error = oXC.Cursorfill()
If !m.error
   =Messagebox(Message(),64)
Else
   brow
   oXC.RELEASE()
endif
return
but If You use that method in Init Event of the CA You must have PARAMETER named cssn
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform