Autor Tema: Re: Ayuda con ADO... (Leído 1856 veces)

rravi · « **en:** Jueves 14 de Febrero de 2002, 01:38 »

Hola Amigos, tengo un problema con la busqueda de un registro en particular a traves de ado, es decir, mi indice(clave) es el rut, el usuario ingresa su rut en txtrut.text, y deseo buscar ese registro cuyo valor es txtrut.text, no se como preguntar si existe o no, para enviar los datos al usuario o bien un mensaje de error. Si alguien me ayudara, agradecido de ante mano.

Socotroco

pregunta por el conector que estes usando si llego a EOF: (SI ES CON TECNOLOGIA ADO)
IF RS.EOF THEN MSGBOX "REGISTRO NO, EXISTE"
(DAO, RDO, DATACONTROL):IF conector.NOMATCH THEN.....
ESPERO HABER ACLARADO TU DUDA
SOCOTROCO

joviedo

Si el nombre que tu text box es "txtrut.text" y suponiendo que tu recordset sea rs en ado:

Private sub cmdBuscar_Click()
dim rut as string
rut="rut"
rs.movefirst
rs.find rut & "='" & txtrut.text & "'"
if rs.eof=true then
msgbox "codigo no encontrado"
else
'aqui implementas las opciones de busqueda
end if
End Sub

el string "rut" es una ayuda para buscar los registro aunque si pones rs.find podrias escribirlo directamente.
Espero que sea de ayuda
Saludos

John Oviedo

Mellileo

Apreciación:

La búsqueda que propone el amigo Joviedo esta muy bien, pero recuerda que de esta manera se tendrá que recorrer todo el RecordSet para poder encontrar una similitud que cumpla el criterio de búsqueda del .Find (Criterio), algo que podría tomar mucho tiempo en caso de que el RecordSet sea de muchos registros.

Yo te recomendaría que utilizaras una Sentencia Sql que sólo te cargara el registro que cumpla esa condición, esto ahorraría tiempo y es mucho más versátil.

mSql = "Select * From Tablas Where Campo = txtrut.text

Data.Refresh

Y listo!!

espero te sirva.

Saludos Mellileo!!