Visual Basic - Método Find y ¿nomatch?

Hola a todos: recién estoy comenzando a trabajar con ADO, y veo que para buscar un registro se utiliza el método Find, pero cómo se que mi búsqueda ha sido existosa o no? En DAO tengo el método nomatch que me devuelve verdadero o falso según se haya encontrado el registro o no, pero en este caso no comprendo cómo determino el resultado de la búsqueda. Ayuda por favor. Gracias.

hay un capitulo aparte para eso, el nomatch te aparecia cuando utilizabas el metodo findfirst, f... y demas, pero con el find cuando no encuentra el dato buscado produce espacio en blanco, asi que en vez de nomatch tendrias que ingeniartelas para saber si la busqueda resulto en en espacio en blanco, entonces es porque no lo encuentra, ahora estoy en un ciber y no tengo a manos ese material pero te buscare un ej. para orientarte mejor

Bueno, te lo agradecería mucho. Salu2.

Estimada Amalia, en ADO lo más optimo es utilizar sentencias SQL ya que tienen un mejor tiempo de respuesta, te doy un ejemplo de como buscar información de una BD en Access con ADO:

Sql.open "Select Nombre from personal where nombre like '% " & RAUL & "%'",cnn,adopenkeyset,adlockoptimistic,adcmdtext

if not sql.eof then
do while not sql.eof
lst_nombre.additem sql.fields(0)
sql.movenext
loop
end if
sql.close
set sql = nothing


'si tienes dudas escribeme, saludos

muchas gracias. salu2.

Para comprobar si ha tenido exito se puede usar esto:

If Not (Tabla.BOF Or Tabla.EOF) Then
datosactualizados.Recordset.Bookmark = Tabla.Bookmark

hola amalia puedes usar esto

rs.find ("campo='" & txtvar & "'")
if rs.eof() then
messagebox"No existe"
else
lo encontro y lo puedes mostrar ya q esta en esa linea no se detuvo el cursor
end if

salu2 y suerte

ch@osoft®

Yo tuve el mismo problema pero trabajando con ADO en VBA, y utilice un código parecido al tuyo, pero simplemente no me funcionaba y aunque no encontrara ningún registro, se saltaba esta condicion, entonces al querer comparar el field del recordset con un valor me daba el error '3021', ya que no hay ningún registro activo. Una forma que se me ocurrio (aunque poco ortodoxa) fué gestionar el error
Algo así como
On error goto line1
.............
.............
rst.find ("NOMBRE = VALORINICIAL")
IF rst.eof = true then
::::::::::
::::::::::
else
rst . fields (n) = otrorst.fields(m) (aqui me producia el error, no hay registro activo, entonces salta a la linea1 y ya se que no encuentra nada)
end if
exit sub
line1:
if err.number = 3021 then
.................
.................
end sub

Pero luego descubri que con la propiedad recordset . absoluteposition puedes resolver el problema, búscalo en la ayuda interactiva para comprobar que valores devuelve cuando no hay registro activo.

Quiza esto si funciona

rs.MoveFirst
rs.Find ("campo='" & txt.Text & "'")
If rs.EOF Then
Else
MsgBox "Registro encontrado", vbInformation + vbOKOnly, "Abonados"
'Puedes hacer lo que desees.
End If