FiveTech Software tech support forums

Saludos a Todos

Agradecere si alguno de ustedes me indica porque la lines: reg1:=oRs:bookMark() muestra el siguiente error:
Error description: Error ADODB.Recordset/6 DISP_E_UNKNOWNNAME: BOOKMARK
Args:

Stack Calls
===========
Called from: source\rtl\win32ole.prg => TOLEAUTO:BOOKMARK(0)
Called from: C:\SCOW\MAINCMD.PRG => MAINCMD(16)

A la espera de su pronta respuesta

Saludos

Luis

#include "Ado.ch"
FUNCTION MainCmd()
LOCAL oConexionAdo := TOLEAUTO():New("adodb.connection")
LOCAL oComando := TOLEAUTO():New("adodb.command")
LOCAL oRecordset , reg1
LOCAL aDatos := {}
oConexionAdo:Open("Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=Martin;Initial Catalog=APPLOCAL;Data Source=PERLIM_SYS_LCH")
oComando:ActiveConnection(oConexionAdo)
oComando:CommandType:= 4
oComando:CommandText := "sp_Menu"
oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := adOpenKeyset
oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oRs:Open(oComando:Execute())
reg1:=oRs:bookMark()
DO WHILE .NOT. oRs:Eof()
AADD(aDatos,oRs:Fields(0):value)
oRs:MoveNext()
ENDDO
MsgList(aDatos)
RETURN (.T.)

Porque no retiras la linea
reg1:=oRs:bookMark()

Si te funciona tienes que colocar una condicion que si no es fun de archivo lo ejecute.

Hola Ruben

El punto es que al trabajar con Ado necesito capturar el registro(recno()) por lo cual necesito el metodo "bookmark", el problema es que muestra el error antes mencionado y no encuentro el porque.

Saludos

Luis