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
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
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 :)
0