Ver Mensaje Individual
  #1 (permalink)  
Antiguo 09/01/2013, 13:50
gusanosxr
 
Fecha de Ingreso: junio-2012
Ubicación: Santiago de Chile
Mensajes: 164
Antigüedad: 14 años, 4 meses
Puntos: 1
Novato autodidacta

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