spamito
Messages postés183Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention30 mars 2013
-
3 oct. 2008 à 13:38
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
3 oct. 2008 à 16:39
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.