Doublons ComboBox VB6 Résolu

Question

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

KenouiK · Answer

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

Polux31 · Answer

Bonjour,

Tu peux également en faisant "SELECT DISTINCT" dans ta requête.

Si ton problème est résolu, mets "résolu" ...

;o)

polux

Consty · Answer

comment ecrire un code de msg pour eviter les doublons sous vb6 avec une connection 
data environment?

bousdraoui · Answer

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

Doublons ComboBox VB6

4 réponses

Discussions similaires

Newsletters