Hola a todos
Me gustar铆a saber si alguien me puede tirar una manita para seguir, al menos para los temas de buscar en el mismo recordset y en otras tablas de la base de datos.
Para no incordiar mucho al foro, pod茅is mandarme un email para contactar.
Gracias
Pedro,
Aqui tienes un ejemplo muy bueno que ha publicado Rick Lipkin:
viewtopic.php?p=127001#p127001
que ademas muestra como hacer una busqueda incremental. Mira mis respuestas en esa conversaci贸n para solucionar las busquedas incrementales que no le funcionaban 
Gracias Antonio
A煤n no he llegado a esa parte, pero llegar茅, de momento estoy intentando buscar los m茅todos del objeto recordset y ver como se usan, por ejemplo Find, Locate, Filter, etc.
Por cierto que encuentro poca informaci贸n que no sea para VB. 驴D贸nde podr铆a encontrar informaci贸n acerca de estos m茅todos?
Gracias Antonio
Por lo visto este adordd es mucho m谩s completo que el que viene en fwh.
Pedro,
Si, una vez se a帽adi贸 a Harbour y xHarbour, otros programadores colaboraron en su desarrollo.
*-------------------------------------------------------------------------------
METHOD BUSCA(xBuscar) class TRecordSet
*-------------------------------------------------------------------------------
Local lHay := .T.
::oRs:Find(xBuscar) <-------------- Aqui da el error
If oRs:Eof()
lHay := .F.
EndIf
return lHay* ------------------------------------------------------------------
FUNCTION BPacien(oDlg,nEvent)
* ------------------------------------------------------------------
Local cCodigo := Alltrim(oDbPacien:ID)
cCodigo := PADL(cCodigo,6,"0")
oRsPac:Find("oRsPac:ID = cCodigo")
If nEvent == ID_ALT
If !oRsPac:Eof()
MsgInfo("Ya existe el Paciente "+cCodigo,"ATENCION" )
Return(.f.)
EndIf
EndIf
oDbPacien:ID := cCodigo
oDlg:UpDate()
Return(.t.)Pedro,
Puede ser que el motor de bases de datos que est谩s usando con ADO no lo soporte. Que tipos de ficheros son los que estas usando ?
Ese es el problema principal que nos encontramos cuando estabamos construyendo el AdoRdd: que segun el motor de bases de datos, unas cosas estan soportadas y otras no.
Antonio he empezado con Acces, de forma sencilla, construyendo una base de Acces con varias tablas sencilla que ten铆a de un programa ya terminado.
Para abrir la base de datos :
oCone:=tOleAuto():new("ADODB.connection")
oCone:open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source="+cArea+"DIARIO.mdb"+";")
Como ya dije en el post anterior, la conexi贸n se efect煤a correctamente, el recordset con los datos me los muestra en un xBrowse, e incluso me trae a un di谩logo los datos de un registro, pero cuando intento hacer una b煤squeda del c贸digo de un paciente, por ejemplo, me da el error al usar el FIND
Pedro,
Has revisado el ejemplo de Rick Lipkin en el que muestra como aplicar un filtro din谩mico ? El tambien usa Access
y el ejemplo esta completo y funciona muy bien