Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP, ADO and internet
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Divers
Thread ID:
00330812
Message ID:
00339388
Vues:
15
Rick,

Thanks, I study that. At first glance it looks like exactly what I need.


>Look at the distributed examples in Web Connction 3.0. You can use the wwHTTPData class (or a manual implementation thereof), to send and update data on teh server. There's a sample of VFP client application online at:
>
>http://www.west-wind.com/wconnect/enterprise.htm
>
>Look for the 'VFP CLient Demos' and then select the HTTP Query example.
>
>Queries can pull data in pure VFP cursor format, XML, or as ADO recordsets. It works pretty much like SQL Passthrough. It's really straight forward (client code):
>
>
>o=CREATE('wwHTTPData')
>
>o.cServername = 'www.west-wind.com'
>o.cHTTPLink = '/wc.wc?wwHTTPData~Execute'
>
>*** Get this from the user
>o.cUserName = TRIM(THISFORM.txtUserName.value)
>o.cPassWord = TRIM(THISFORM.txtPassword.value)
>
>o.lSecure = THISFORM.chkHTTPS.Value
>
>o.nResultMode = 0    && 0 - Cursor  2 - XML  4 - ADO XML
>IF THISFORM.chkXML.value
>   o.nResultMode = 2  && XML
>ENDIF
>
>o.cSQLCursor = TRIM(THISFORM.txtSQLCursor.Value)
>
>lnSecs = SECONDS()  && Capture timing
>
>*** Run the request!
>o.Execute(THISFORM.edtSQL.Value)
>
>IF o.lError
>   MessageBox(o.cErrorMsg,48,THISFORM.Caption)
>ELSE
>   IF o.nResultMode = 0
>     *** Cursor was created for you
>     SELE (THISFORM.txtSQLCursor.value)
>     BROWSE
>   ELSE
>     *** Just display the XML returned in Notepad
>     ShowText( o.cXMLResult)
>
>     *** COnvert the XML into a cursor
>     oXML = CREATE('wwXML')
>     oXML.XMLToCursor(o.cXMLResult,"TQuery")
>     SELE TQuery
>     BROWSE
>   ENDIF
>ENDIF
>
>
>Of course this doesn't deal with data synchronization issues, just SQL commands over the wire, but you can use this to directly update data on the server by using SQL commands like INSERT and UPDATE from the client side.
>
>
>+++ Rick ---
>
Bud Wheeler
Vision Data Solutions, Inc.
Microsoft Partner

http://www.visionpace.com
Http://www.BudWheeler.com
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform