ALIMENTER UN COMBO AVEC DATASET SQL SERVER COMME UN DATACOMBO (ZONE CACHEE + ZONE VISIBLE)

        strConn = "Initial Catalog=NOM_DATABASE;Data Source=NOM_SERVEUR_SQL;User ID=sa;Password=;"
        strSql = "SELECT * FROM TABLE_SQL"

        'Instanciation d'un Objet Connexion
        conn = New SqlConnection(strConn)

        'Ouvrir la connexion
        conn.Open()

        'Instancer un objet Commande
        CmdS = New SqlCommand(strSql)

        'Instancer un objet Adapter
        da = New SqlDataAdapter(CmdS)

        'initialiser l'objet Command
        CmdS.Connection() = conn

        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        da.Fill(ds, "TABLE_SQL")

        'Mettre dans un Objet DataTable une table du DataSet
        dt = ds.Tables("TABLE_SQL")

        'Indiquer quelle colonne afficher
        ComboBox1.DisplayMember = "CHAMP1_TABLE_SQL"
        ComboBox1.ValueMember = "CHAMP2_TABLE_SQL"

        'Indiquer au combobox d'afficher la table "TABLE_SQL" (indiquer la source)
        ComboBox1.DataSource = ds.Tables("TABLE_SQL")
        ComboBox1.Refresh()

Télécharger le zip