Como Llenar 3 combobox dependientes vb.net

Amigos buenos días me podrían ayudar con esto por favor.
Tengo 3 combobox: Departamentos, provincias, distritos. El problema es que a la hora de cargarlos para modificar los datos. Por decir si cargo los datos de un cliente por en los combobox quisiera que me aparezcan los datos que seleccione y guarde en la bd y claro también los combobox con los datos para seleccionar si deseo modificarlos, lo e logrado con el primero pero en los otros 2 ya no me funcionan me podrían dar una manito ahí les dejo los códigos. Gracias.

Sub BUSCA_DIRECCIONES()
        reconectar()
        Dim dt As New DataTable
        'Establecemos la cadena de conexion
        Dim enunciado = New MySqlCommand("Select *from Clientes " & _
                "INNER JOIN direcciones ON Clientes.id_cliente = direcciones.id_cliente " & _
                "INNER JOIN tipo_via ON direcciones.id_via = tipo_via.id_via " & _
                "INNER JOIN tipo_uso ON direcciones.id_uso = tipo_uso.id_uso " & _
                "INNER JOIN distritos ON direcciones.DISTRITO_ID = DISTRITOs.DISTRITO_ID " & _
                "INNER JOIN provincias ON direcciones.provincia_ID = provincias.provincia_ID " & _
                "INNER JOIN departamentos ON direcciones.departamento_ID = departamentos.departamento_ID " & _
               " where ID_direccion='" & Clientes.Lbl_IdDireccion.Text & "'", conex)
        Try
            Dim drd As MySqlDataReader
            drd = enunciado.ExecuteReader()
            If drd.Read Then
                Me.TextBox1.Text = drd.Item("Des_direccion").ToString()
                Me.ComboBox1.SelectedValue = drd.Item("ID_USO").ToString()
                Me.ComboBox2.SelectedValue = drd.Item("ID_VIA").ToString()
                Me.ComboBox3.SelectedValue = drd.Item("DEPARTAMENTO_ID").ToString()
                Drd. Close()
                Conex. Close()
            Else
                Me. Close()
                LIMPIAR()
                Drd. Close()
                Conex. Close()
            End If
        Catch ex As MySqlException
            MsgBox("ERROR DEL SISTEMA" + ex.ToString)
            conex.Close()
        End Try
    End Sub

1 Respuesta

Respuesta

Posiblemente no existen items con los valores consultados en el ComboBox por eso no los selecciona. Prueba asignándole el valor o directamente en la propiedad Text del ComboBox o cambia a la propiedad SelectedText...

¡Gracias! Por tu comentario los items si existen de hecho están guardados en la base de datos Te dejo todo el código a ver si me das una manito ya que no se para donde salir.

 Sub Llenar_Cbodepartamentos()
        reconectar()
        Try
            Dim acc As String = "SELECT * FROM DEPARTAMENTOS order by DEPARTAMENTO_descripcion asc"
            Dim Ds As New MySqlDataAdapter(acc, conex)
            Dim Dt As DataTable = New DataTable("DEPARTAMENTOS")
            Ds.Fill(Dt)
            'Dim dr As DataRow = Dt.NewRow
            'dr("DEPARTAMENTO_descripcion") = "SELECCIONE"
            'Dt.Rows.InsertAt(dr, 0)
            With ComboBox3
                .DataSource = Nothing
                .DataSource = Dt
                .DisplayMember = "DEPARTAMENTO_descripcion"
                .ValueMember = "DEPARTAMENTO_id"
                '.SelectedIndex = -1
                .AutoCompleteMode = AutoCompleteMode.Append
                .AutoCompleteSource = AutoCompleteSource.ListItems
            End With
            Llenar_CboProvincias()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub Llenar_CboProvincias()
        reconectar()
        Try
            Dim acc As String = "Select * from PROVINCIAS " & _
                "INNER JOIN DEPARTAMENTOS ON PROVINCIAS.departamento_id = DEPARTAMENTOS.departamento_id " & _
                "where departamento_DESCRIPCION='" & Me.ComboBox3.Text & "' order by provincia_descripcion asc "
            Dim Ds As New MySqlDataAdapter(acc, conex)
            Dim Dt As DataTable = New DataTable("PROVINCIAS")
            Ds.Fill(Dt)
            With ComboBox4
                .DataSource = Nothing
                .DataSource = Dt
                .DisplayMember = "provincia_descripcion"
                .ValueMember = "provincia_id"
                '.SelectedIndex = -1
            End With
            Llenar_CboDistritos()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub Llenar_CboDistritos()
        reconectar()
        Try
            Dim acc As String = "Select * from DISTRITOS " & _
                "INNER JOIN PROVINCIAS ON DISTRITOS.PROVINCIA_id = PROVINCIAS.provincia_id " & _
                "where PROVINCIA_DESCRIPCION='" & Me.ComboBox4.Text & "' order by distrito_descripcion asc"
            Dim Ds2 As New MySqlDataAdapter(acc, conex)
            Dim Dt As DataTable = New DataTable("distritos")
            Ds2.Fill(Dt)
            With ComboBox5
                .DataSource = Nothing
                .DataSource = Dt
                .DisplayMember = "distrito_descripcion"
                .ValueMember = "distrito_id"
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        Llenar_CboProvincias()
    End Sub
    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
        Llenar_CboDistritos()
    End Sub


    Private Sub Direcciones_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conectar()
        reconectar()
                LIMPIAR()
                Llenar_Cbodepartamentos()
                BUSCA_DIRECCIONES()
    End Sub

Prueba que funcionen las consultas; enviando los valores consultados a TextBox en vez de ComboBox... Otra cosa, los eventos SelectedIndexChanged puede que creen eventos no previstos (vuelven a cargar los datos)...

Poniéndolo solo como texto si funcionan, lo que no funcionan es cuando quiero que además de el departamento y el distrito seleccionado me muestre las opciones para elegir y por consiguiente me seleccione el dato guardado

Prueba cargar cada ComboBox independientemente en el evento Load del Form, algo así:

Conectar()
Reconectar()
LIMPIAR()
Try
   Llenar_Cbodepartamentos()
   Llenar_CboProvincias()
   Llenar_CboDistritos()
   BUSCA_DIRECCIONES()
Catch ex As Exception 
End Try

Y quita las referencias a las funciones en Llenar_Cbodepartamentos() y Llenar_CboProvincias() para que no se repita...

umm al parecer el error se genera aen el evento SelectedIndexChanged pero sin eso ya no me cargaría o filtraría las provincias y distritos

Crea una variable para el Form, al inicio del evento Load le das un valor a la variable y al finalizar el evento correctamente le das otro valor. Cuando se generen los eventos SelectedIndexChanged compruebas el valor de la variable, y dependiendo del valor ejecutas o no las funciones.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas