Salut,
J'ai un combobox qui contient des données insérées par le biais d'une requête. À chaque fois quand je clique sur ce combobox, je choisi quelque chose. En me déplacant sur un autre composant, mon combo double ces données, c'est à dire, au lieu de deux données je trouve 4 et ainsi de suite. J'ai essayé de vider le combo mais cela ne marche pas. Voici mon code :
conn = New Connection
With conn
.Provider = "Microsoft.Jet.oledb.4.0"
.Open("data source=" & Application.StartupPath & "\BASE\BASE.mdb")
End With
rs = New Recordset
With rs
.ActiveConnection = conn
.CursorLocation = CursorLocationEnum.adUseClient
.Open("SELECT Fournisseurs.code_fourn,Fournisseurs.fournisseur FROM Fournisseurs ORDER BY Fournisseurs.fournisseur ASC", , CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockPessimistic)
End With
fournisseur.text=""
Do Until rs.EOF
fournisseur.Items.Add((rs.Fields("fournisseur").Value))
rs.MoveNext()
Loop
rs = Nothing
conn = Nothing
Avec "fournisseur.text=""" ça ne marche pas et la propriété Clear n'existe pas dans mon cas. Quel est le problème d'après vous ??
Merci.