PB TRI TABLE ACCESS DANS LISTBOX

Signaler
Messages postés
84
Date d'inscription
samedi 26 mai 2007
Statut
Membre
Dernière intervention
14 décembre 2016
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
Bonjour

Je suis confronté à un pb de tri d'une table access dans une listbox. Je travaille sous VB 6.

J'ai une table access composée des champs
Club
Nom
Prenom

Il y a plusieurs enregistrements dans cette table : exemple :

Club                  Nom         Prenom
Club A              Dupont      Albert
Club A              Marie         Line
Club B              Clavier       Azerty
Club A              Trombone    Louis
Club B              Jacques       Marcel

Dans une listbox, je veux faire afficher le contenu de ma table comme suit :

Club A
               Dupont Albert
               Marie Line
              Trombone Louis

Club B
               Clavier Azerty
               Jacques Marcel

Voici le code que j'ai fait :

With rst
    .MoveFirst
    tempoclub = rst!Club
    PRINCIPAL.Liste_Non.AddItem "Club : " & rst!Club
    Do Until rst.EOF
        If rst!Club = tempoclub Then
            PRINCIPAL.Liste_Non.AddItem "     " & rst!nom & " " & rst!prenom       
      Else
            PRINCIPAL.Liste_Non.AddItem ""
            PRINCIPAL.Liste_Non.AddItem "Club : " & rst!Club
            PRINCIPAL.Liste_Non.AddItem "     " & rst!nom & " " & rst!prenom
        End If
        .MoveNext
    Loop
End With

Mais le résultat obtenu n'est pas tout à fait ça : j'arrive a lister correctement les enregistrement du Club A, mais ensuite il me met une ligne pour chaque personne du club B. Ca donne ça :

Club A
               Dupont Albert
               Marie Line
              Trombone Louis

Club B
               Clavier Azerty

Club B
               Jacques Marcel
   

J'ai du mal à trouver mon erreur dans le code.
Merci pour votre aide.

2 réponses

Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
le pb vient surement de l'order by au niveau de ta requête
essayes de remplir ton combobox avec la rq suivante:
SQL = "SELECT Club, Nom, Prénom FROM Table Order BY Club, Nom, Prénom;"
Normalement il devrait ranger par club, puis par nom puis par prénom.
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

si tu utilises comme tu le dis une Listbox pour afficher tes données issues de ta base, mais la propriété Sorted de la ListBox sur : True

A+
Exploreur

 Linux a un noyau, Windows un pépin