Cargar un Combobox

[oaru_aguila2911]

Que tal buenas tardes, soy nuevo en el foro y en la programación con .Net, estoy desarrollando un sistema en el cual deseo llenar un combobox a través de otro combobox, es decir tengo un combobox que se llama "Actividad" en el cual cuando selecciono una actividad me busca en la base de datos el nombre del entrenador, el lugar en donde se lleva a cabo la actividad seleccionada. El problema es que no me aparecen los diferentes entrenadores dependiendo la Actividad. Por que cuando selecciono la Actividad "fútbol" en el combobox del entrenador en lugar de que aparezcan los dos entrenadores nada mas me aparece uno como le puedo hacer aquí esta el codigo.

Private Sub ComboBoxActividad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxActividad.SelectedIndexChanged
Dim comando As New SqlCommand("SELECT nombre_entrenador,nombre_lugar FROM Entrenador, Actividad, Lugar_Actividad WHERE Entrenador.id_actividad = '" & ComboBoxActividad.SelectedValue.ToString & "' AND Lugar_Actividad.id_lugar= Actividad.id_lugar And Actividad.nombre_actividad='" & ComboBoxActividad.Text & "'", conexion)
Dim dr As SqlDataReader
conexion.Close()
conexion.Open()
dr = comando.ExecuteReader
Try
If dr.Read = True Then
ComboBoxEntrenador.Text = dr(0)
TextBoxLugar.Text = dr(1)
End If
Catch ex As Exception
End Try
conexion.Close()
End Sub


Espero y me puedan ayudar

[SNAM]

hola lo que se me ocurre que pueda pasar siendo el caso de que tu campo EntrenadorId sea del tipo entero es convertir el ComboBoxActividad.SelectedValue.ToString a entero
aqui te dejo como quedaria y tambien cambiar el ComboBoxActividad.Text por ComboBoxActividad.Displaymember

Private Sub ComboBoxActividad_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
Dim comando As New SqlCommand(("SELECT nombre_entrenador,nombre_lugar FROM Entrenador, Actividad, Lugar_Actividad WHERE Entrenador.id_actividad = '" & Integer.Parse(ComboBoxActividad.SelectedValue.ToSt ring()) & "' AND Lugar_Actividad.id_lugar= Actividad.id_lugar And Actividad.nombre_actividad='") + ComboBoxActividad.Displaymember & "'", conexion)
Dim dr As SqlDataReader = Nothing
conexion.Close()
conexion.Open()
dr = comando.ExecuteReader
Try
If dr.Read = True Then
ComboBoxEntrenador.Text = dr(0)
TextBoxLugar.Text = dr(1)
End If
Catch ex As Exception
End Try
conexion.Close()
End Sub

espero que te sirva

[Aquaventus]

Hola SNAM este post es de hace 3 meses... y nosé si el usuario se vuelva a conectar... porque este fue su unico mensaje en todo el foro... procura no responder a estos casos... Seria un milagro si el usuario reviviese y te responda . Saludos!.