Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Recordset to cursor
Message
De
03/11/2016 22:04:26
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Recordset to cursor
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Desktop
Divers
Thread ID:
01642703
Message ID:
01642703
Vues:
57
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
Répondre
Fil
Voir

Click here to load this message in the networking platform