Discussion :

[lilimilou29]

Bonjour,
J'ai un problème avec une ComboBox dans Visual Studio. En fait, je fais une requête sur une base de données ACCESS.
C'une liste de regions. Quand je selectionne une region, ca m'affiche dans des listBox toutes les informations relatives aux hippodromes situés dans cette region. Mais lorsque je inseres un nouvel hippodrome avec une region deja existante, il m'affiche la région autant de fois qu'il y a d'hippodromes dans la region. Je voudrais savoir comment on fait pour la region n'apparaisse qu'une seule et unique fois dans la combobox.
Merci pour votre aide

[alaa_85]

faut juste supprimer le comboBox et le recharger à nouveau :
ComboBox.clear
faire l'appel du methode qui faire le remplissage du comboBox
Bonne chance

[SaumonAgile]

Hmm, on pourrait te proposer des tas de solutions, mais tant qu'on n'a pas le code que tu utilises, ça ne sert à rien.
Peux tu poster ton code ?

[lilimilou29]

Private Sub CbNomRegion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbNomRegion.SelectedIndexChanged
'MsgBox("ca marche")
'Mise en place de la requete SQL
Dim reqSql As String
Dim cmd As System.Data.OleDb.OleDbCommand


'declaration du jeu d'enregistrement
Dim JeHippo As System.Data.OleDb.OleDbDataReader

'declarations
'Dim i As Integer
'Dim msg As String
'Dim nbligne As Integer

'Construction des Objets
'la connexion à la BD
Connect = New OleDbConnection(chaine)
Connect.Open()

CbNomRegion.Refresh()

'La requete
reqSql = " Select distinct Hregion "
reqSql = reqSql & " From hippodrome "
reqSql = reqSql & " Where Hregion = '" & CbNomRegion.Text & "' ; "

'La commande
cmd = New OleDbCommand(reqSql, Connect)

ListNum.Items.Clear()
ListNom.Items.Clear()
ListRegion.Items.Clear()
ListAdresse.Items.Clear()

Try
'Execution de la requete SQL
JeHippo = cmd.ExecuteReader
'test du nb de ligne restant
If JeHippo.HasRows Then
LbNum.Text = "Numéro"
LbNom.Text = "Nom"
LbReg.Text = "Région"
LbAdress.Text = "Adresse"
While JeHippo.Read
'affichage des valeurs dans les listes correspondantes
ListNum.Items.Add(JeHippo.Item("Hnum"))
ListNom.Items.Add(JeHippo.Item("Hnom"))
ListRegion.Items.Add(JeHippo.Item("Hregion"))
ListAdresse.Items.Add(JeHippo.Item("Hadresse"))
End While
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
JeHippo.Close()

[Pol63]

tu edites ton message, avant le code tu mets
code entre []
et apres le code tu mets
/code entre [] aussi

[lilimilou29]

merci mais a quel endroit??