[SOLUCIONADO] Obtener valores en dropdownlist desde consulta a mysql

[maialenlopez]

Hola,

estoy programando en vb.net y necesito cargar un dropdownlist a partir de una consulta a mysql.
Hago lo siguiente pero no se si esta bien echo ya que si le doy a ejecutar me dice que donde pongo el Me.cargarComboS1.DataSource = ds.Tables(0) y Me.cargarComboS1.DataValueField = "DI" este no genera ningun valor.

Código vb.net:

Protected Sub cargarComboS1()
       Dim conn As New MySqlConnection
        'se apunta a la cadena de conexion guardada en el archivo Web.config
        conn.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings("conexionMySQL156").ConnectionString
        Dim da As MySqlDataAdapter
        Dim ds As New DataSet
        Dim Sql As String
        Dim cm As MySqlCommand
 
        conn.Open()
 
        Sql = "select distinct DI from operario"
 
        da = New MySqlDataAdapter(Sql, conn)
        ds = New System.Data.DataSet
 
        Try
            da.fill(ds)
            Me.cargarComboS1.DataSource = ds.Tables(0)
            Me.cargarComboS1.DataValueField = "DI"
        Catch ex As Exception
 
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
            If conn.State = ConnectionState.Open Then
 
                conn.Close()
                conn.Dispose()
            End If
        End Try
    End Sub
 

¿Alguien me puede decir el porque de esto?

Gracias

[maialenlopez]

Ya está solucionado, no me estaba dando cuenta que en el momento que cargo los valores en el Me.cargarComboS1.DataSource = ds.Tables(0) y Me.cargarComboS1.DataValueField = "DI" estaba llamando de nuevo a la misma funcion en vez de poner el nombre correcto del combo.

Quedaria así:

Código vb.net:

Try
            da.Fill(ds)
            If IsPostBack = False Then
                [B]Me.DropDownListS1.DataSource = ds.Tables(0)
                Me.DropDownListS1.DataValueField = "DI"
                Me.DropDownListS1.DataTextField = "DI"
                Me.DropDownListS1.DataBind()[/B]
            End If
        Catch ex As Exception
 
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
            If conn.State = ConnectionState.Open Then
 
                conn.Close()
                conn.Dispose()
            End If
        End Try