Programación General > Visual Basic 6.0 e inferiores

 Re: Ayuda con ADO...

(1/1)

rravi:
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!!

Navegación

[0] Índice de Mensajes