Discussion :

[ideox]

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 :

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

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

[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 :

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

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

[ideox]

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

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
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.

[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"

[ideox]

Bonjour,
J'utilise cette forme

Code :

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

ComboChar.Items.Clear()

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

Code :

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

1
2
ComboChar.Items.Clear()
load_char()

Comme cela sa remet la Combo vide et sa re-load les données

Merci ^^