ADO - Error description: Error ADODB.RecordSet/6 DIS

ADO - Error description: Error ADODB.RecordSet/6 DIS

Postby goosfancito » 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: Select all  Expand view  RUN
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: Select all  Expand view  RUN
LOCAL bBookMarkActual:= oBrw:bBookMark


y luego restaurarlo asi:
Code: Select all  Expand view  RUN
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/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: ADO - Error description: Error ADODB.RecordSet/6 DIS

Postby horacio » 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
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: ADO - Error description: Error ADODB.RecordSet/6 DIS

Postby goosfancito » 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/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 85 guests