TDBGrid TClientDataSet TQuery et ORDER BY
Bonjour,
Est-ce que quelqu'un a été déjà confronté au problème suivant :
J'ai des composants reliés de la manière suivante :
TDBGrid <-- TDataSetProvider <-- TClientDataSet <-- TQuery
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//Données à afficher
cds.Close;
Qy.SQL.Clear; Qy.SQL.Add(sql); Qy.Execute;
cds.Open;
//Taille & titre des colonnes
for i := 0 to DBG.Columns.Count - 1 do begin
DBG.Columns[i].Width := 100;
DBG.Columns[i].Title.Alignment := taCenter;
case i of
0 : DBG.Columns[i].Title.Caption := 'Titre 1';
1 : DBG.Columns[i].Title.Caption := 'Titre 2';
else DBG.Columns[i].Title.Caption := 'Col '+DBG.Columns[i].FieldName;
end;
end; |
Mon soucis : la requête sql contenu dans le composant TQuery contient des ORDER BY mais n'est jamais repercuté dans l'affichage du DBGrid.
J'ai regardé : pas de Index défini dans le ClientDataSet ni dans les propriétés du composant, ni dans le programme...
J'ai repris le même modèle de code que dans d'autres modules/tutoriels qui eux marchent !!! mais pas dans mon module ?!?!?
Avez-vous une idée ?
Merci
