FiveTech Software tech support forums

Hola.
Estoy viendo las busquedas en xbrowser y siguiendo un ejemplo de Biel, me topo con esto:

oRs:Find( "CliDes LIKE '"+cBuscar+"*'",,1)

Pero al ejecutar mi aplicacion me dice:

ADODB.RecordSet/6 DISP_E_UNKNOWNNAME: FIND
Args:
[ 1] = C cliDes LIKE 'd*'
[ 2] = U
[ 3] = N 1

Pueden por favor darme una mano. gracias.

Se me ocurre que tendrias que probar así

oRs : Movefirst()
oRs : Find( ......

Saludos

termino de probar eso pero no me funciona.

A mi se me presentaba el mismo error y pasaba por la definicion del Recordset, ahora lo tengo de la siguiente manera:

oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := adOpenDynamic
oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oRs:ActiveConnection(oConnection)
oRs:Source := "EXEC sp_Menu '0', '' "
oRs:Open()
oRs:MoveFirst()
oRs:Find("CNIVOPC = '" + nopc2 +"'")

Saludos

el mismo problema.

Prueba con esta cadena para la búsqueda oRs : Find( "iDes Like '" + Alltrim( cBuscar ) + "%'" ).
saludos

gracias este ultimo soluciono, ahora estoy viendo donde esta el problema en mi codigo.

muchas gracias.

MI ERRRORRRRRRR

tengo definido el campo como NOMBRE y en el find ponia NOMBRES (la s al final)

// 1.- Verificar si hay registros
--------------------------------------------
If Data:RecordCount > 0
// 2 Posicionarse al comienzo del archivo
Data1:MoveFirst()
// 3 Buscar el campo teniendo en cuenta su tipo

Do While !Data1:Eof()
If Data1:Fields("Nombre"):Value = xNombre //
MsgAlert("Encontrado...")
Exit
EndIf
Data1:MoveNext()

EndDo

If Data1:Eof()
MsgAlert(" No Esta en el archivo ")
EndIf


EndIf



// Esto Funciona asi de facil

si senior. asi es.
me dieron una mano con esto los amigos del foro y funciono.

nada mas que pense utilizar el LIKE porque me parecia mas comodo u flexible, pero lo termine haciendo a pata.


gracias.