Novato autodidacta

[gusanosxr]

TENGO ESTE CÓDIGO PARA LLENAR UN COMBOBOX Y NO ME SALTA AL SIGUIENTE RESULTADO, ALGUIEN QUE ME PUEDA AYUDAR???

DE ANTEMANO MUCHAS GRACIAS...

AHHHH ES PARA UN WINDOWS FORMS

Código PHP:

   
Private Sub principal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
 
        Try 
            conector.Open() 
        Catch ex As Exception 
            MsgBox(ex.Message) 
        End Try 
        Dim adaptor As New MySqlDataAdapter 
        Dim consulta = "SELECT sucursal FROM sucursal_ip" 
        Dim comando As New MySqlCommand 
        comando.Connection = conector 
        comando.CommandText = consulta 
        adaptor.SelectCommand = comando 
        Dim misdatos As MySqlDataReader 
        misdatos = comando.ExecuteReader 
        If misdatos.HasRows = True Then 
            misdatos.Read() 
            Do While Not misdatos.HasRows = False 
                sucursal.Items.Add(misdatos.GetValue(0)) 
                misdatos.NextResult() 
            Loop 
        End If 
    End Sub 
End Class  
   

[cristiantorres]

Hola.

Porque llenas el combobox asi, porque mejor no asignas un origen de datos al combo.

Código vb.net:

Using conn As New MySqlConnection("Connection string")
            Dim dt As New DataTable()
            Dim query = "SELECT sucursal FROM sucursal_ip"
            Dim cmd As New MySqlCommand(query, conn)
            Dim adap As New MySqlDataAdapter (cmd)
            adap.Fill(dt)
            comboBox1.DataSource = dt
            comboBox1.DisplayMember = "Campo a mostrar"
            comboBox1.ValueMember = "Campo que obtienes"
End Using
 

Como veras asignas un origen de datos(datasource) al combo en este caso un datatatable, en la propiedad DisplayMember indicas el nombre del campo que quieres mostrar y en la propiedad ValueMember indicas el campo que recuperas.

Para obtener el valor del item seleccionado solo arias.

Código vb.net:

comboBox1.SelectedValue
 

Saludos.