Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Filtering remote view
Message
De
27/04/2009 09:06:03
Chaim Halevy
DorYes
Jerusalem, Israél
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Filtering remote view
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01396479
Message ID:
01396479
Vues:
114
Hi all

Help please

I have 'remote view' inside my dbc for to retrieve filtered data from Microsoft Access tables ('view' code - following).
When I run this view, VFP ask for 'view parameter', take my input and running well.

But how can I use with this in my project (openning it in form without 'view parameter' message and update my as per VFP veriable)?

The 'View' code:

SELECT Data.ImageId, Data.Coments, Data.Kit, Data.Date, Data.Field2,;
  Data.Nomber, Pictures.ID, Pictures.Image;
 FROM ;
     Data Data ;
    INNER JOIN pictures Pictures ;
   ON  INT(VAL(Data.imageid)) = Pictures.ID;
 WHERE  Data.Nomber LIKE ( ?cnomber )

DBSetProp(ThisView,"View","SendUpdates",.T.)
DBSetProp(ThisView,"View","BatchUpdateCount",1)
DBSetProp(ThisView,"View","CompareMemo",.T.)
DBSetProp(ThisView,"View","FetchAsNeeded",.F.)
DBSetProp(ThisView,"View","FetchMemo",.T.)
DBSetProp(ThisView,"View","FetchSize",100)
DBSetProp(ThisView,"View","MaxRecords",-1)
DBSetProp(ThisView,"View","Prepared",.F.)
DBSetProp(ThisView,"View","ShareConnection",.F.)
DBSetProp(ThisView,"View","AllowSimultaneousFetch",.F.)
DBSetProp(ThisView,"View","UpdateType",1)
DBSetProp(ThisView,"View","UseMemoSize",255)
DBSetProp(ThisView,"View","Tables","Data,pictures")
DBSetProp(ThisView,"View","WhereType",3)

DBSetProp(ThisView+".imageid","Field","DataType","C(50)")
DBSetProp(ThisView+".imageid","Field","UpdateName","Data.ImageId")
DBSetProp(ThisView+".imageid","Field","KeyField",.F.)
DBSetProp(ThisView+".imageid","Field","Updatable",.T.)

DBSetProp(ThisView+".coments","Field","DataType","M")
DBSetProp(ThisView+".coments","Field","UpdateName","Data.Coments")
DBSetProp(ThisView+".coments","Field","KeyField",.T.)
DBSetProp(ThisView+".coments","Field","Updatable",.T.)

DBSetProp(ThisView+".kit","Field","DataType","C(50)")
DBSetProp(ThisView+".kit","Field","UpdateName","Data.Kit")
DBSetProp(ThisView+".kit","Field","KeyField",.F.)
DBSetProp(ThisView+".kit","Field","Updatable",.T.)

DBSetProp(ThisView+".date","Field","DataType","C(50)")
DBSetProp(ThisView+".date","Field","UpdateName","Data.Date")
DBSetProp(ThisView+".date","Field","KeyField",.F.)
DBSetProp(ThisView+".date","Field","Updatable",.T.)

DBSetProp(ThisView+".field2","Field","DataType","C(50)")
DBSetProp(ThisView+".field2","Field","UpdateName","Data.Field2")
DBSetProp(ThisView+".field2","Field","KeyField",.F.)
DBSetProp(ThisView+".field2","Field","Updatable",.T.)

DBSetProp(ThisView+".nomber","Field","DataType","M")
DBSetProp(ThisView+".nomber","Field","UpdateName","Data.Nomber")
DBSetProp(ThisView+".nomber","Field","KeyField",.T.)
DBSetProp(ThisView+".nomber","Field","Updatable",.T.)

DBSetProp(ThisView+".id","Field","DataType","I")
DBSetProp(ThisView+".id","Field","UpdateName","pictures.ID")
DBSetProp(ThisView+".id","Field","KeyField",.T.)
DBSetProp(ThisView+".id","Field","Updatable",.T.)

DBSetProp(ThisView+".image","Field","DataType","W")
DBSetProp(ThisView+".image","Field","UpdateName","pictures.Image")
DBSetProp(ThisView+".image","Field","KeyField",.F.)
DBSetProp(ThisView+".image","Field","Updatable",.T.)


Thank you
Chaim
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform