CONSULTA INCOMPLETA
Publicado por Miguel (88 intervenciones) el 27/03/2005 01:10:29
EN UNA CONSULTA ESTOY HACIENDO LO SIGUIENTE:
ComandoConsulta.CommandText = "SELECT id,nombre,direccion,telefono,celular,email FROM Agendita WHERE nombre='" & Me.txtNombre.Text & "'"
ComandoConsulta.Connection = conexion
Adapter.SelectCommand = ComandoConsulta
ComandoConsulta.Connection = conexion
ComandoConsulta.Connection.Open()
Adapter.Fill(Tabla) ' ejecuta el SELECT y guarda los datos en la Tabla
conexion.Close()
Me.txtNombre.Text = Tabla.Rows(0).Item("Nombre")
Me.txtDireccion.Text = Tabla.Rows(0).Item("Direccion")
Me.txtTelefono.Text = Tabla.Rows(0).Item("Telefono")
Me.txtCelular.Text = Tabla.Rows(0).Item("Celular")
Me.txtEmail.Text = Tabla.Rows(0).Item("Email")
LA PREGUNTA ES: ¿COMO HAGO PARA SABER SI SE ENCONTRÓ EL REGISTRO QUE INTENTO CARGAR EN LOS TEXTBOXS?
LO INTENTÉ HACER CON EL TRY CATCH PERO NO ME GUSTA PORQUE CUANDO OCURRE CUALQUIER ERROR ME SALTA LA VENTANA DE
"Nombre Incorrecto"
ESPERO QUE PUEDAN AYUDARME. LES MANDO SALU2 A TO2.
MIGUEL.
ComandoConsulta.CommandText = "SELECT id,nombre,direccion,telefono,celular,email FROM Agendita WHERE nombre='" & Me.txtNombre.Text & "'"
ComandoConsulta.Connection = conexion
Adapter.SelectCommand = ComandoConsulta
ComandoConsulta.Connection = conexion
ComandoConsulta.Connection.Open()
Adapter.Fill(Tabla) ' ejecuta el SELECT y guarda los datos en la Tabla
conexion.Close()
Me.txtNombre.Text = Tabla.Rows(0).Item("Nombre")
Me.txtDireccion.Text = Tabla.Rows(0).Item("Direccion")
Me.txtTelefono.Text = Tabla.Rows(0).Item("Telefono")
Me.txtCelular.Text = Tabla.Rows(0).Item("Celular")
Me.txtEmail.Text = Tabla.Rows(0).Item("Email")
LA PREGUNTA ES: ¿COMO HAGO PARA SABER SI SE ENCONTRÓ EL REGISTRO QUE INTENTO CARGAR EN LOS TEXTBOXS?
LO INTENTÉ HACER CON EL TRY CATCH PERO NO ME GUSTA PORQUE CUANDO OCURRE CUALQUIER ERROR ME SALTA LA VENTANA DE
"Nombre Incorrecto"
ESPERO QUE PUEDAN AYUDARME. LES MANDO SALU2 A TO2.
MIGUEL.
Valora esta pregunta
0