Discussion :

[philguio]

Bonjour
Voila j'ai différentes combobox sur ma form, le probléme est que a chaque fois que je click dessus le nb d'items augmente, si il y en a 2 apres un deuxième click il a+2 si autre click +2 etc......

je passe par Private Sub ComboBox1_click( pour chaque combo car ma requète SQL est différente a chaque fois.

Merci @
Philippe

[ft035580]

Salut Phiguio,

Et donc .......Que cherches tu à faire?

Quel est ton problème ?

Merci d'être plus explicite.

[philguio]

Voila 1) je renseigne une bdd avec le formulaire form1
2) j'ouvre le Form2 ou il y a les combo qui sont effectivement bien rempli grace au différentes requète. par contre si je click sur le combo1 ou il y a pr exemple 4 noms, la pas de probleme les 4 noms sont dans la liste, par contre si je click une deuxième fois sur le combo1 la liste est doublé , c'est a dire qu'il y a 8 noms( 4+4). Et c'est pareil pour les autre combo.

Donc ce que je cherche a faire c'est quel que soit le nombre de click sur un combo, la liste des ideme ne doit pas augmenter( doubler, trippler, etc....)

@+
Merci

[ft035580]

Salut,

Voila j'ai différentes combobox sur ma form, le probléme est que a chaque fois que je click dessus le nb d'items augmente, si il y en a 2 apres un deuxième click il a+2 si autre click +2 etc......

Et par quel phénomène y arrive tu?

Cela me laisse coi

[philguio]

je te met si après le code que j'utilise pour un combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub ComboBox1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\gestionjoueurs.mdb;")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
 
        Mycommand.CommandText = "SELECT T_Joueur.IDJoueur,T_Joueur.Nom, T_Joueur.Prenom, T_Joueur.Dispo, T_Joueur.Pilier from T_Joueur where (T_Joueur.Dispo=1) and (T_Joueur.Pilier=true)"
 
        MyConnexion.Open()
        Dim strNomPrenom As String
        Dim strIdentifiant As String
        Dim intLong As Integer
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
        Do While myReader.Read()
 
            strIdentifiant = CStr(myReader.GetValue(0))
            intLong = strIdentifiant.Length
            strIdentifiant = ""
            If intLong < 4 Then
                Dim i As Integer
                For i = 1 To (5 - intLong)
                    strIdentifiant = strIdentifiant & " "
                Next
            End If
            strIdentifiant = strIdentifiant & CStr(myReader.GetValue(0))
            strNomPrenom = strIdentifiant & " :" & myReader.GetString(1) & " " & myReader.GetString(2)
 
            ComboBox1.Items.Add(strNomPrenom)
            ComboBox3.Items.Add(strNomPrenom)
        Loop
        myReader.Close()
 
        MyConnexion.Close()
 
    End Sub

Merci @
Philippe

[ft035580]

Oulaaaaaah....,


Désolé Philippe, mais j'ai eu beau me pencher sur ton problème mais là je sèche.

J'en suis venu à des semblants de réponse mais n'ayant aucune conviction je préfère laisser le relai à des Forummeurs plus inspirés et expérimentés que moi.

Dans tous les cas je vais "m'abonner à ton post" et te souhaite bon courage.

[philguio]

c'est sympa quand même
@+ et merci encore
Philippe

[philguio]

Bonjour
C'est bon j'ai trouvé il suffit d'ajouter la ligne qui suit (rouge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
'vider le ComboBox 
ComboBox22.Items.Clear()    
Do While myReader.Read()

et hop ça marche
@
Philippe