Doublons ComboBox VB6
Résolu
Bonjour, Avec ce Code, dans ma comboBox jai 2 foi la meme Marque.. comment faire pour quel ne s'afficher qu'une fois ??
Dim SQL As String
Dim Requete As Recordset
Dim vrai As Boolean
Dim x As String
CboModele.Text = "Modele"
CboMarque.Clear
SQL = "SELECT Marque_Bateau "
SQL = SQL & "FROM SousType "
SQL = SQL & "Order by Marque_Bateau asc"
Set Requete = CapArmor.OpenRecordset(SQL)
If Not Requete.BOF Then
Requete.MoveFirst
vrai = True
x = 0
While vrai = True
If Not Requete.EOF Then
CboMarque.List(x) = Requete.Fields(0)
Requete.MoveNext
x = x + 1
vrai = True
Else
vrai = False
End If
Wend
CboMarque.Text = "Selectionner le Bateau à Supprimer!!"
Else
CboMarque.Text = "Pas d'enregistrement"
End If
Dim SQL As String
Dim Requete As Recordset
Dim vrai As Boolean
Dim x As String
CboModele.Text = "Modele"
CboMarque.Clear
SQL = "SELECT Marque_Bateau "
SQL = SQL & "FROM SousType "
SQL = SQL & "Order by Marque_Bateau asc"
Set Requete = CapArmor.OpenRecordset(SQL)
If Not Requete.BOF Then
Requete.MoveFirst
vrai = True
x = 0
While vrai = True
If Not Requete.EOF Then
CboMarque.List(x) = Requete.Fields(0)
Requete.MoveNext
x = x + 1
vrai = True
Else
vrai = False
End If
Wend
CboMarque.Text = "Selectionner le Bateau à Supprimer!!"
Else
CboMarque.Text = "Pas d'enregistrement"
End If
Configuration: Windows XP Firefox 2.0.0.11
4 réponses
-
solution Trouvé avec :
si la requete n'est pas a la fin , alros on fait un "pour" pour revoir tout les code deja inseré et si il en trouve un identique alors on movenext!!
voila -
Bonjour,
Tu peux également en faisant "SELECT DISTINCT" dans ta requête.
Si ton problème est résolu, mets "résolu" ...
;o)
polux -
comment ecrire un code de msg pour eviter les doublons sous vb6 avec une connection
data environment? -
inserer ce code apres avoir rempli le combo :
For i = 0 To Combo.ListCount - 1
For j = Combo.ListCount - 1 To i + 1 Step -1
If Combo.List(i) = Combo.List(j) Then Combo.RemoveItem (j)
Next j
Next i
