none
ANIDAR 2 COMBOBOX CON DATOS SQL RRS feed

  • Pregunta

  • Buenas tarde estoy cargando dos combobox uno anidado con el otro y traen datos de sql server 2012 ,lo que me pasa es que cuando carga el segundo me muestra la información del elemento seleccionado anteriormente del primer combo y no se como hacer que solo me muestre la información del dato  seleccionado,adjunto codigo

    FORM

    Imports System.Data.Sql
    Imports System.Data.SqlClient
    Public Class Form1
        Dim cliente As String
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            abrir()
            llenarcombox(cmbClientes)
            cmbClientes.SelectedIndex = 0
        End Sub

        Private Sub cmbClientes_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbClientes.SelectedIndexChanged
            llenarcombox1(cmbImplante)
            cmbImplante.SelectedIndex = 0


        End Sub
        Sub llenarcombox1(ByVal cb1 As ComboBox)
            abrir()
            cliente = cmbClientes.Text
            Try
                enunciado = New SqlCommand("Select distinct Implante FROM Clientes where cliente='" + cliente + "'", Conexion.conexion)

                respuesta = enunciado.ExecuteReader
                While respuesta.Read
                    cb1.Items.Add(respuesta.Item("Implante"))

                End While
                respuesta.Close()


            Catch ex As Exception

            End Try

        End Sub
    End Class

    MODULO

    Imports System.Data.Sql
    Imports System.Data.SqlClient


    Module Conexion
        Public conexion As SqlConnection
        Public enunciado, e As SqlCommand
        Public respuesta, r As SqlDataReader

        Sub abrir()
            Try
                conexion = New SqlConnection("Data Source=PCE45708-W71;Initial Catalog=INHOUSE2;Integrated Security=True")
                conexion.Open()
            Catch ex As Exception
                MsgBox("No conectado" + ex.ToString)
            End Try
        End Sub
        Sub llenarcombox(ByVal cb As ComboBox)
            Try
                enunciado = New SqlCommand("Select distinct cliente FROM Clientes", conexion)
                respuesta = enunciado.ExecuteReader
                While respuesta.Read
                    cb.Items.Add(respuesta.Item("cliente"))

                End While
                respuesta.Close()


            Catch ex As Exception

            End Try
        End Sub
    • Cambiado Enrique M. Montejo miércoles, 17 de mayo de 2017 6:12 Pregunta relacionada con controles de Windows Forms.
    jueves, 11 de mayo de 2017 17:19

Todas las respuestas

  • Paolo M M,

    ¿Cómo tienes configurado la propiedad DropDownStyle?

    ¿Has intentado llenar el desplegable dependiente capturando el evento 'SelectionChangeCommitted' (en lugar del evento SelectedIndexChanged)?


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    jueves, 11 de mayo de 2017 20:18