FiveTech Support Forums

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

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

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.