Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to use ADO SHAPE programmatically ?
Message
 
To
26/10/1999 12:24:20
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00281566
Message ID:
00281742
Views:
29
Cetin:

Here is what you do:

(1) create DSN in ODBC setup to VFP Database
(2) create an msdatashape provider by right clicking desktop, file new MS Data Link, under connection tab add DSN to 'Data Source'. Test Connection.

oConn=createobject('adodb.connection')
oRs =createobject('adodb.recordset')
oConn.provider = 'msdatashape'
oConn.open('igcms')
shape = "shape {select * from cases order by caseno} " + ;
"append ({select * from people} relate pk_cases to fk_cases) as people"
oRs.open(shape, oConn)

The cases table is related to the people table on pk_cases = fk_cases

* get case fields
?oRs.fields('some_field_from_cases_table').value

* get matching people fields
x=oRs.fields('people').value
?x.fields('some_field_from_people_table').value

I just tried it for the first time and it worked.

Charlie
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform