none
Como llenar combox con el evento Page_Load RRS feed

  • Pregunta

  • Hola, soy  nuevo programando y quisiera saber si me pueden ayudar con esta consulta que no se como resolver.

    Estoy tratando de cargar un formulario con valores de la base de datos pero no logro cargar el valor de la base de datos del segundo combobox (Municipio). No se si es por el tema que son combobox dependientes

    Protected Sub Page_Load(ByVal Sender As System.Object, ByVal e _
        As System.EventArgs) Handles MyBase.Load

            Dim cn As OleDbConnection
            Dim cmd As OleDbCommand
            Dim dr As OleDbDataReader
            Try
                cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Users\123\prueba\BD\ususer.mdb';Persist Security Info=False")
                cn.Open()
                cmd = New OleDbCommand("SELECT * from Usuario WHERE Usuario = '" + Usuario.Text + "'", cn)
                dr = cmd.ExecuteReader
                While dr.Read()
                    Estado.Text = dr(1)
                    Municipio.Text = dr(2)
           Colonia.Text = dr(3)
    End While
            Catch

            End Try
    End Sub

    lunes, 13 de febrero de 2017 4:36

Respuestas

Todas las respuestas

  • Hola,podrías revisar este enlace

    la idea es que cargues un combobox en el load y el segundo en el evento SelectedIndexChanged o SelectionChangeCommitted del primero



    Si la respuesta te fue útil vótala como tal,y si fue respuesta márcala. Solo dejo en el foro mis post si fueron útiles , de lo contrario y por mantener el orden los borro. Saludos. Lima-Perú.

    lunes, 13 de febrero de 2017 4:58
  • Me imagino que el segundo combobox (municipio) varia dependiendo el estado, deberás llenar primero el combobox de estado y dependiendo el valor seleccionado llenaras el combobox municipio.

            Dim cn As OleDbConnection
            Dim cmd As OleDbCommand
            Dim dr As OleDbDataReader
            Try
                cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Users\123\prueba\BD\ususer.mdb';Persist Security Info=False")
                cn.Open()
                cmd = New OleDbCommand("SELECT * from ESTADO WHERE ESTADO = '" + COMBOBOX_ESTADO.Text + "'", cn)
                dr = cmd.ExecuteReader
                While dr.Read()
                      Municipio.Text = dr(1)
           Colonia.Text = dr(3)
    End While
            Catch

            End Try

    VISITA: http://vbpuntonet.blogspot.mx/

    lunes, 13 de febrero de 2017 17:52