Cargar textbox

[eduardo2009]

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

[tiger015]

claro ke no te funcionara si lo ke consultas es la propiedad ValueMember osea ke esta te devuelve el mismo valor ke le asignaste en este caso "id1"

la consultas la debes hacer asi:

SELECT * FROM generales WHERE id1 = ' " & cmbpacientes.SelectedValue & " ' "

asi te de devolvera el id seleccionado;

[eduardo2009]

Muchas gracias efectivamente ese era el problema, solucinado


Saludos!!!!!