Help !!! remplir ComboBox ADO.NETRésolu

Question

Bonjour!

Je voudrais lier plusueur Combo a plusieur table d'une DB access
puis enregistrer tous dans une autre table de la meme DB

avec ADO.NET

(il n y a aucune mise a jour a faire sur les table lier aux Combo)
Merci a+

ASEM67   :)

asem67 · Accepted Answer

Voila je me repond pour ce qui aurai besoin


Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim INI As New INIReader(Application.StartupPath.ToString() & "\GRDv1.ini")
        Dim rqNom, rqSemaine, rqAtelier, Base As String
        Dim Cmd, cmdS, cmdA As OleDbCommand
        Dim Dread, drsemaine, dratelier As OleDbDataReader

        'Lecture fichier ini pour le chemin BD + MS JET 4.0
        Base = INI.ReadString("cheminbd", "strconnection", "")
        'Mes requetes
        rqNom = "SELECT * FROM Tnom"
        rqSemaine = "SELECT * FROM Tsemaine"
        rqAtelier = "SELECT * FROM Tatelier"
        'initialisation des obj datareder et connections
        Cmd = New OleDbCommand(rqNom, New OleDbConnection(Base))
        cmdS = New OleDbCommand(rqSemaine, New OleDbConnection(Base))
        cmdA = New OleDbCommand(rqAtelier, New OleDbConnection(Base))
        'Ouverture des connections
        Cmd.Connection.Open()
        cmdS.Connection.Open()
        cmdA.Connection.Open()
        'Connections et gestion err de conn.
        Try
            Dread = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
            drsemaine = cmdS.ExecuteReader(CommandBehavior.CloseConnection)
            dratelier = cmdA.ExecuteReader(CommandBehavior.CloseConnection)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        'Je rempli mes combobox avec mes datareader
        Do While Dread.Read
            cmbNom.Items.Add(Dread.GetString(1))
        Loop

        Do While drsemaine.Read
            cmbSemaine.Items.Add(drsemaine.GetValue(1))
        Loop

        Do While dratelier.Read
            cmbAtelier.Items.Add(dratelier.GetString(1))
        Loop

        'On ferme les connections
        Dread.Close()
        drsemaine.Close()
        dratelier.Close()

        'Si on veut que les combos se position a la 1er ligne
        'Try
        '    'cmbNom.SelectedIndex = 0
        '    'cmbSemaine.SelectedIndex = 0
        '    'cmbAtelier.SelectedIndex = 0
        'Catch ex As Exception

        'End Try

    End Sub


PS: Un grand MERCI a YOUS (S.R) pour les sources sur son site, la base du code vient de lui  :) 

ASEM67   :)

asem67 · Answer

J'oublier si qq1 a un truc pour simplifier le code 

Je prend 

parce que dans mon prog j'aurai un 10 combo 
la dans le test il y a que 3 combo
ca vas faire loooonnnng tous ça et + le reste

merci !

ASEM67   :)