Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Looking for accounting system??
Message
 
To
06/08/1999 08:00:10
Steve Demartino
Dominance Software Development Inc.
Dayton, Ohio, United States
General information
Forum:
Visual FoxPro
Category:
Third party products
Miscellaneous
Thread ID:
00247908
Message ID:
00250645
Views:
34
>
>ODBC: I've been working with a way to help bring SBT tables into modern reality. In control panel, create ODBC data sources for your SBT directories, using FoxPro free tables. In VFP 5 (for Pro) or VFP 6 (for VP 10), create remote views to the ODBC data sources. Then, SBT tables can participate in DBC containers as remote views.
>
>Anyway, SBT is a viable approach if you put up with the strange coding, and use some creativity. You do get all source cheap.
>
>Steve DeMartino


Steve I use this code for my views :

OPEN DATA VES
CREATE SQL VIEW "LV_CUST_all" ;
AS SELECT * FROM f:\pro30\ardata\arcust01 ;
where arcust01.type< '99'
*and arcust01.custno= ?vp_custno

DBSetProp('lv_cust_all', 'View', 'UpdateType', 1)
DBSetProp('lv_cust_all', 'View', 'WhereType', 3)
DBSetProp('lv_cust_all', 'View', 'FetchMemo', .T.)
DBSetProp('lv_cust_all', 'View', 'SendUpdates', .T.)
DBSetProp('lv_cust_all', 'View', 'UseMemoSize', 255)
DBSetProp('lv_cust_all', 'View', 'FetchSize', 100)
DBSetProp('lv_cust_all', 'View', 'MaxRecords', -1)
DBSetProp('lv_cust_all', 'View', 'Tables', 'arcust01')
DBSetProp('lv_cust_all', 'View', 'Prepared', .F.)
DBSetProp('lv_cust_all', 'View', 'CompareMemo', .T.)
DBSetProp('lv_cust_all', 'View', 'FetchAsNeeded', .T.)
DBSetProp('lv_cust_all', 'View', 'FetchSize', 100)
DBSetProp('lv_cust_all', 'View', 'Comment', "")
DBSetProp('lv_cust_all', 'View', 'BatchUpdateCount', 1)
DBSetProp('lv_cust_all', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for lv_cust_all
* Props for the lv_cust_all.custno field.
DBSetProp('lv_cust_all.custno', 'Field', 'KeyField', .T.)
DBSetProp('lv_cust_all.custno', 'Field', 'Updatable', .F.)
DBSetProp('lv_cust_all.custno', 'Field', 'UpdateName', 'arcust01.custno')
DBSetProp('lv_cust_all.custno', 'Field', 'DataType', "C(6)")

all other fields are not shown.

This gets you out of that ODBC layer. That really slows things down in large data moving around.

I also have the parameter used for a specific customer in LV_CUST.

You can pass in a praram for company # if necessary. Thank God my current employer is only using a single company.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform