winvsmac
Messages postés84Date d'inscriptionsamedi 26 mai 2007StatutMembreDernière intervention14 décembre 2016
-
29 mai 2007 à 14:11
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 2016
-
29 mai 2007 à 14:50
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.
tbbuim1
Messages postés940Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention 3 février 20119 29 mai 2007 à 14:31
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.