rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Doublons ComboBox VB6

Posté par KenouiK, le dimanche 20 janvier 2008 à 17:37:29
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
Configuration: Windows XP
Firefox 2.0.0.11
Répondre à KenouiK  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
KenouiK, le dimanche 20 janvier 2008 à 18:34:03
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
Répondre à KenouiK

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Polux31, le dimanche 20 janvier 2008 à 20:50:27
Bonjour,

Tu peux également en faisant "SELECT DISTINCT" dans ta requête.

Si ton problème est résolu, mets "résolu" ...

;o)

polux
Répondre à Polux31
Logiciels pertinents trouvés dans les téléchargements
Télécharger Visual Basic 6 Runtime (VB6 DLL) 6.0 SP5Visual Basic 6 Runtime (VB6 DLL) - Le Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en...Catégorie: Librairies (DLL)
Licence: Freeware/gratuit
Télécharger AM-Deadlink 3.2AM-Deadlink - AM-DeadLink est un outil permettant de détecter les liens morts et les doublons dans les favoris ( bookmarks ) du ...Catégorie: Web
Licence: Freeware/gratuit
Télécharger K9 Web Protection 1.0K9 Web Protection - K9 Web Protection est un logiciel de contrôle parental permettant de contrôler et de limiter les accès à Internet de son...Catégorie: Contrôle parental
Licence: Freeware/gratuit
Télécharger Visual Basic Express 2005 2005Visual Basic Express 2005 - Le langage de programmation Visual Basic est historiquement dans les gènes de la société Microsoft. Avec plus de 30.000...Catégorie: Visual Basic
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Doublons ComboBox VB6 »