FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ADO - Error description: Error ADODB.RecordSet/6 DIS
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
ADO - Error description: Error ADODB.RecordSet/6 DIS
Posted: Wed Nov 17, 2010 10:09 PM
Tengo una duda y lo voy a ser sencillo a ver si por ahi resuelvo el quilombete.

Code (fw): Select all Collapse
FUNCTION buscar(cBuscar, oRs, oBrw)
   cBuscar = AllTrim(cBuscar)

   oRs:MoveFirst() <----------- ACA ESTA MI DUDA!
   IF !Empty(cBuscar)
         oRs:find("nombre LIKE '%"+cBuscar+"%'",,1)
   ENDIF

   IF !(oRs:Eof .or. ors:Bof)
      oBrw:refresh()
   ENDIF
RETURN (nil)

Intuyo que el error del programa se debe a que primero lo mando al puntero al primer registro y luego lo hago buscar... no hay problema si lo encuentra.
Si hay problema cuando no lo encuentra, para mi " pierde" la sincronizacion con los bookMark, al querer retornar al browser no sabe donde quedo y larga el dichoso error

Error description: Error ADODB.RecordSet/6 DISP_E_UNKNOWNNAME: BOOKMARK
Args:


es esto asi?

he probado antes de hacer el movefirst() salvar el booMArk asi

Code (fw): Select all Collapse
 LOCAL bBookMarkActual:= oBrw:bBookMark


y luego restaurarlo asi:
Code (fw): Select all Collapse
 IF !(oRs:Eof .or. ors:Bof)
      oBrw:refresh()
   ELSE
      oBrw:bBookMark:= bBookMarkActual
      oBrw:refresh()
   ENDIF


pero sigue el error.

Que solucion puede tener esto?
gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: ADO - Error description: Error ADODB.RecordSet/6 DIS
Posted: Wed Nov 17, 2010 10:45 PM

Siempre que hagas una búsqueda es obligatorio poner el RecodSet en el primer registro. oRs : MoveFirst()
Te paso este enlace que está muy bueno

http://www.w3schools.com/ado/ado_ref_recordset.asp

Saludos

Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: ADO - Error description: Error ADODB.RecordSet/6 DIS
Posted: Wed Nov 17, 2010 11:22 PM

entonces que le estoy h/errando?

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion