Help !!! remplir ComboBox ADO.NET

Résolu
asem67 Messages postés 145 Date d'inscription mardi 3 septembre 2002 Statut Membre Dernière intervention 24 février 2008 - 2 sept. 2004 à 17:45
asem67 Messages postés 145 Date d'inscription mardi 3 septembre 2002 Statut Membre Dernière intervention 24 février 2008 - 5 sept. 2004 à 01:22
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 :)

2 réponses

asem67 Messages postés 145 Date d'inscription mardi 3 septembre 2002 Statut Membre Dernière intervention 24 février 2008
5 sept. 2004 à 01:17
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 :)
3
Rejoignez-nous