hi
I have a dll a cap of data and want that this one returns a cursor and not recordset but not because he does not return the alone cursor to me he returns to me .t.
here code.
if type("nalias")='C'
ocursor=this.rstodbf(nalias,lors)
return ocursor
endif
procedure rstodbf(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
return (calias)
endpro
Jose Manuel Ramirez