Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Recordset to cursor
Message
From
03/11/2016 22:04:26
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Recordset to cursor
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Desktop
Miscellaneous
Thread ID:
01642703
Message ID:
01642703
Views:
56
Hello, I have the following problem I become a cursor a recordset using a method, it does well; but the fields of the concepts or long this short to 254 characters

here is the code
parameters calias,lorst
if used(calias)
	select (calias)
	use
endif
talias="CA"+sys(2015)
try
	ocursoradapter = createobject("CursorAdapter")
	ocursoradapter.alias=talias
	ocursoradapter.allowdelete    = .t.
	ocursoradapter.allowinsert    = .t.
	ocursoradapter.allowupdate    = .t.
	ocursoradapter.datasourcetype="ADO"
	ocursoradapter.cursorfill(,,,lorst)
	ocursoradapter.cursordetach()
catch to loerror
	messagebox(loerror.message)
endtry
select * from (talias) into cursor (calias) readwrite
select (talias)
use
Jose Manuel Ramirez
Reply
Map
View

Click here to load this message in the networking platform