Combobox n'affiche qu'une donnée

Version imprimable

Bonjour,
J'ai un problème avec ma combobox qui n'affiche qu'une donnée.
Je m'explique,
dbo.Chars
Panel

L'idée est que la personne entre un nom de compte (UserID) dans la partie account sa ressort un UserUID (chiffre unique par compte)
Qui après ma forme private sub load_char() se sert de cette userUID pour afficher dans ma combobox l'ensemble des personnage (voir screen 1 & 2) j'ai pourtant 2 perso mais ma combo n'en ressort qu'une donnée (voir screen 2)

Code de ma combo :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub load_char() Conn = New SqlConnection("Server=" & TextIpConn.Text & ";Database=PS_GameDefs;User Id=" & TextUserConn.Text & ";Password=" & TextPassConn.Text & ";") Conn.Open() Query = "Select * from PS_GameData.dbo.Chars where UserUID='" & GetUser.Text & "'" Cmd = New SqlCommand(Query, Conn) Rd = Cmd.ExecuteReader If Rd.Read Then Dim rchar = Rd("CharName") ComboChar.Items.Add(rchar) Else MessageBox.Show("TT") End If End Sub

24/10/2015, 13h06
Pol63
rd.read retourne true s'il a réussi à avancer d'une ligne

donc s'il y a plusieurs lignes, il faut faire une boucle
Code:

1 2 3 while rd.read ' code end while
pour savoir si tu n'as rien trouvé tu peux tester le combobox.items.count = 0

Ok merci cela marche, pour la vérification j'ai fait cela:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub load_char()
        Conn = New SqlConnection("Server=" & TextIpConn.Text & ";Database=PS_GameDefs;User Id=" & TextUserConn.Text & ";Password=" & TextPassConn.Text & ";")
 
        Conn.Open()
        Query = "Select * from PS_GameData.dbo.Chars where UserUID='" & GetUser.Text & "'"
        Cmd = New SqlCommand(Query, Conn)
        Rd = Cmd.ExecuteReader
 
        While Rd.Read
            Dim rchar = Rd("CharName")
            ComboChar.Items.Add(rchar)
        End While
        If ComboChar.Items.Count = 0 Then
            ComboChar.Text = "No Character"
        End If
    End Sub

Mais nada quand un compte n'a rien ça m'affiche les perso de l'ancien, il ne se met pas à jour.

25/10/2015, 13h32
rv26t

Bonjour,
Il faut effacer le contenu de la liste avant d'ajouter les nouveaux.
Cours : Philippe Lasserre - Les ListBox info complèmentaire Les comboBox
tu peux aussi utiliser la propriété "HasRows" pour déterminer la présence de lignes, puis faire le remplissage de la combo ou mettre "No Character"
26/10/2015, 12h23
ideox
Bonjour,
J'utilise cette forme

Code:

ComboChar.Items.Clear()

Pour le bouton refresh et à fin de mettre à jour style
Code:

1 2 ComboChar.Items.Clear() load_char()
Comme cela sa remet la Combo vide et sa re-load les données

Merci ^^ :)