Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
View to cursoradapter
Message
From
13/11/2002 17:33:16
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00722392
Message ID:
00722420
Views:
32
The following from message #720757 by DougH...
start-----------------
>all is well as long as your select statement is not to long to fit into the “SelectCmd” property of the cursoradapter object.

That's been changed too. Because VFP limits properties entered in the Property Sheet or through a builder to 255 characters, the CursorAdapter Builder now generates code that sets this property instead.
end-------------------

Does that give you any clue?

good luck



>Yes I know, but I was just dreaming I was able to paste the CURSORGETPROP() result.
>
>Did you know a tool in to transform a local View into a CursorAdapter code ?
>
>Tks
>
>
>>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