Discussion :

[mathieu31]

Bonjour,

Voilà mon problème, je fais une connexion en ADO sur ma base Access, j'execute une requete puis je charge le recordset obtenu dans le recordset de mon listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
rsListBox.Open qSQL, cnn, adOpenStatic
lstPersonnes.RowSourceType = "table/query"
Set lstPersonnes.Recordset = rsListBox

Tout se déroule bien.

Sauf qu'à l'affichage de mon formulaire, les colonnes de mon listbox n'apparaissent pas dans le même ordre que celui de la requete.
Après avoir bien fait attention au résultat, les colonnes se retrouves afficher progressivement de façon alphabétique

Par exemple si ma requete est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT ID, NOM, PRENOM, CLASSE ....

Alors je vais me retrouver avec :

CLASSE | ID | NOM | PRENOM


Quelqu'un voit d'où peut venir ce problème.

Merci d'avance
Mathieu

[Gado2600]

Bonjour,
Appliques un ORDER BY dans ta requête SQL.
Cordialement,

[mathieu31]

Bonjour,

Je me doutais que j'allais avoir ce type de réponse.

Le problème ne vient pas du résultat de la requête mais du placement des colonnes dans la listbox

Je répète, ma requête est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT id, nom, prenom, classe ....

et je me retrouve dans mon listbox avec les colonnes dans un ordre différent (classé par ordre alphabétique).

Merci à vous

[RobiPMS]

Bonjour.

Personnellement, voici comment je procède, et l'ordre des colonnes est dans ce cas respecté : j'utilise la propriété RowSource de la liste et je la définis au moment de la réception du focus. Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ListeCodes_GotFocus()
Me.ListeCodes.RowSource = "SELECT Elèves.Numéro, Elèves.Nom, Elèves.Prénom, Elèves.[Date/nais], Elèves.[Code/élève] FROM Elèves WHERE (((Elèves.Inscrit)=True)) ORDER BY Elèves.Nom, Elèves.Prénom; "
End Sub

Cordialement.

[mathieu31]

Vous utilisez la propriété RowSource en DAO, là je suis en ADO.

[mathieu31]

Ok j'ai trouvé, je vous en fait profité dans le cas où cela vous arrive :

cnn.CursorLocation = adUseClient