Discussion :

[benitoo]

J'ai un petit pb avec l'ordre des champs dans une zone de liste.
Je fais ma requête sur une table (select * MATABLE) que je mets dans un objet recordset.
J'affecte ensuite cet objet à la propriété recordset de ma zone de liste.
L'ordre des champs à l'affichage de ma zone de liste n'est pas celui qu'on pourrait attendre (ordre classique de la table ...) et ne semble pas respecter de logique
Est ce que quelqu'un connait la cause de ce léger souci ...
Merci

[marot_r]

Désolé pas de solution mais une question, pourquoi passer par un objet recordset ? Tu peux mettre directement le nom de ta requète comme source de ta liste.

A+

[Faw]

salut, deux questions si tu permets:
1-que veux-tu dire par propriété recordset d'une zone de liste?
c'est la propriété contenu? (= RowSource).

2-qu'est ce qui t'empêche de mettre un order by monchamp dans ta source?

[benitoo]

je ne connais pas les champs (juste le nom de la table, je fais donc un "select *") : je ne peux donc pas poser une clause order by ...
et je ne peux passer la requete directement puisque c'est une base distante (ADO) ...

[lyxthe]

Je m'y connais pas des masses, mais je crois que c'est à cause de l'étoile "*". Il est nécessaire de connaitre les champs de la table et de les mettre clairement dans la requete (même si tu select tous les champs de la table) pour que les champs soient affectés toujours dans le même ordre dans tes colones.....enfin en esperant ne pas dire de grosses bêtises et si j'ai bien compris le problème.
PS : ça reste à confirmer

[marot_r]

je ne connais pas les champs (juste le nom de la table, je fais donc un "select *") : je ne peux donc pas poser une clause order by ...
et je ne peux passer la requete directement puisque c'est une base distante (ADO) ...

Peux-tu poster les propriétés de ton objet et le code associé ?

A+

[benitoo]

Voici à peu près le code ...
lstConsult étant le controle zone de liste, objConn ma connexion.
En fait je me suis rendu compte qu'il mettait les colonnes par ordre alphabétique ... Il y a donc bien un ordre ... :-)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim strReq As String
Dim rstRecords As New ADODB.Recordset

strReq = "SELECT * FROM MATABLE;"

rstRecords.Open strReq, objConn, adOpenStatic

lstConsult.ColumnHeads = True
lstConsult.ColumnCount = rstRecords.Fields.Count

Set lstConsult.Recordset = rstRecords

rstRecords.Close
Set rstRecords = Nothing