Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
View to cursoradapter
Message
From
13/11/2002 17:05:58
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00722392
Message ID:
00722408
Views:
26
As always, string constants are limited to 255 characters - even if you put them on multiple lines. Split it into multiple shorter pieces, and you should be fine. e.g.
    UpdateNameList = ;
        [cust_id_a testdata!customer.cust_id, company testdata!customer.company, contact ;
        testdata!customer.contact, title testdata!customer.title, address  ;
        testdata!customer.address, city testdata!customer.city, region ]  ;
      +[testdata!customer.region, postalcode_a testdata!customer.postalcode, country  ;
        testdata!customer.country, phone testdata!customer.phone, fax  ;
        testdata!customer.fax, maxordamt testdata!customer.maxordamt, order_id ] ;
      +[testdata!orders.order_id, cust_id_b testdata!orders.cust_id, emp_id  ;
        testdata!orders.emp_id, to_name testdata!orders.to_name, to_address  ;
        testdata!orders.to_address, to_city testdata!orders.to_city, to_region  ];
      +[testdata!orders.to_region, postalcode_b testdata!orders.postalcode, to_country  ;
        testdata!orders.to_country, ship_count testdata!orders.ship_count, ship_via  ;
        testdata!orders.ship_via, order_date testdata!orders.order_date, order_amt ] ;
      +[testdata!orders.order_amt, order_dsc testdata!orders.order_dsc, order_net  ;
        testdata!orders.order_net, require_by testdata!orders.require_by, shipped_on  ;
        testdata!orders.shipped_on, freight testdata!orders.freight]
Rick

>Hi All,
>
>I just start to test the migration of my local views to CursorAdapter classes it seems there is a char size limit for properties !
>
>Here is the test code
>
>
>local loCursor as CursorAdapter
>
>open database ("C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 8\SAMPLES\DATA\TESTDATA.DBC")
>
>loCursor = createobject('TESTView')
>
>with loCursor
>    if .CursorFill()
>	browse
>	tableupdate(1)
>    endif .CursorFill()
>endwith
>
>close databases all
>
>DEFINE CLASS TESTVIEW AS CursorAdapter
>    Alias = [testview]
>    DataSourceType = [Native]
>    SelectCmd = ;
>        [SELECT Customer.cust_id, Customer.company, Customer.contact, Customer.title,  ;
>        Customer.address, Customer.city, Customer.region, Customer.postalcode,  ;
>        Customer.country, Customer.phone, Customer.fax, Customer.maxordamt,  ;
>        Orders.order_id, Orders.cust_id, Orders.emp_id, Orders.to_name,  ;
>        Orders.to_address, Orders.to_city, Orders.to_region, Orders.postalcode,  ;
>        Orders.to_country, Orders.ship_count, Orders.ship_via, Orders.order_date,  ;
>        Orders.order_amt, Orders.order_dsc, Orders.order_net, Orders.require_by,  ;
>        Orders.shipped_on, Orders.freight FROM  testdata!customer  INNER JOIN  ;
>        testdata!orders  ON  Customer.cust_id = Orders.cust_id]
>    Tables = ;
>        [testdata!customer, testdata!orders]
>    KeyFieldList = ;
>        [cust_id_a, order_id]
>    UpdatableFieldList = ;
>        [company, contact, title, address, city, region, postalcode_a, country, phone,  ;
>        fax, maxordamt, cust_id_b, emp_id, to_name, to_address, to_city, to_region,  ;
>        postalcode_b, to_country, ship_count, ship_via, order_date, order_amt,  ;
>        order_dsc, order_net, require_by, shipped_on, freight]
>    UpdateNameList = ;
>        [cust_id_a testdata!customer.cust_id, company testdata!customer.company, contact ;
>        testdata!customer.contact, title testdata!customer.title, address  ;
>        testdata!customer.address, city testdata!customer.city, region  ;
>        testdata!customer.region, postalcode_a testdata!customer.postalcode, country  ;
>        testdata!customer.country, phone testdata!customer.phone, fax  ;
>        testdata!customer.fax, maxordamt testdata!customer.maxordamt, order_id  ;
>        testdata!orders.order_id, cust_id_b testdata!orders.cust_id, emp_id  ;
>        testdata!orders.emp_id, to_name testdata!orders.to_name, to_address  ;
>        testdata!orders.to_address, to_city testdata!orders.to_city, to_region  ;
>        testdata!orders.to_region, postalcode_b testdata!orders.postalcode, to_country  ;
>        testdata!orders.to_country, ship_count testdata!orders.ship_count, ship_via  ;
>        testdata!orders.ship_via, order_date testdata!orders.order_date, order_amt  ;
>        testdata!orders.order_amt, order_dsc testdata!orders.order_dsc, order_net  ;
>        testdata!orders.order_net, require_by testdata!orders.require_by, shipped_on  ;
>        testdata!orders.shipped_on, freight testdata!orders.freight]
>    SendUpdates = .F.
>    CompareMemo = .T.
>    FetchAsNeeded = .F.
>    FetchMemo = .T.
>    FetchSize = 100
>    MaxRecords = -1
>    Prepared = .F.
>    UpdateType = 1
>    UseMemoSize = 255
>    WhereType = 3
>ENDDEFINE
>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform