Que tal como esta, pues aqui con una consulta tengo el siguiente codigo el cual sirve para cargar un combo y al seleccionar un dato del combo me llene unos texbox pero el problema es que no me llena los textbox pero tampoco me marca error
Con este cargo el combo los datos
Código:
Private Sub CargaCombo()
Dim cad As String = "Database=Pacientes;Data Source=localhost;User Id=root;Password=utan"
Dim query As String = "select id1, apellidosnombres from apellidos order by apellidosnombres"
Dim cnn As New MySqlConnection(cad)
Dim da As New MySqlDataAdapter(query, cnn)
Dim dt As New DataTable
da.Fill(dt)
cmbpacientes.DataSource = dt
cmbpacientes.DisplayMember = "apellidosnombres"
cmbpacientes.ValueMember = "id1"
End Sub
Y con este es donde quiero llenar los texbox
Código:
Private Sub cmbpacientes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbpacientes.SelectedIndexChanged
Try
Dim cad As New MySqlConnection("Database=Pacientes;Data Source=localhost;User Id=root;Password=utan")
cad.Open()
Dim sql As String = "SELECT * FROM generales WHERE id1 = ' " & cmbpacientes.ValueMember & " ' "
Dim cmd As New MySqlCommand(sql, cad)
Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
While dr.Read
Dim value As Object = dr.Item("nombres")
If value IsNot DBNull.Value Then TextBox1.Text = CStr(value)
value = dr.Item("apellidos")
If value IsNot DBNull.Value Then TextBox2.Text = CStr(value)
End While
dr.Close()
Catch ex As MySqlException
Catch ex As Exception
End Try
De antemano gracias por el tiempo y la ayuda
Saludos!!!
