Tri sur DBgrid

**julien41** · 18/02/2004, 08h47

Salut à tous,

J'ai un DBgrid dans mon application avec 8 colonnes.

En cliquant sur les différents titres de colonnes, je voudrais que les informations se tries automatiquement par ordre croissant.

J'ai fais une requete 'Order By' pour chaque colonne que j'utiliserais sur l'évènement OnTitleClick du DBgrid. Par contre je ne sais comment utiliser cette méthode.

Si quelqu'un pourrais me donner un coup de main svp.

Merci

**Bloon** · 18/02/2004, 14h56

Voici le principe, à adapter (notament si la requête comporte déjà un order by ou si des zones sont renommées dans le select et comportent des espaces) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
private
  qry : string;
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  qry := query1.SQL.Text;
end;
 
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  query1.SQL.Text := qry + ' ORDER BY ' + column.FieldName;
  query1.Open;
end;

Bloon

**star** · 18/02/2004, 19h30

Une solution serait aussi, de redéfinir l'indexe en cours de l'ensemble de données au lieu de fermer et réouvrir.
Dans le cas d'1 TClientDataSet, redéfinir la propriété IndexFieldNames.

**julien41** · 19/02/2004, 08h34

Salut,

En utilisant la méthode de Bloon, j'ai une erreur a l'éxécution.

Le problème est que j'ai une requete différente par colonne, et je ne sais pas faire la différence entre les colonnes.

Je suis débutant.

**Bloon** · 19/02/2004, 09h43

Regarde dans l'aide les propriétés de TColumn. Par contre je ne vois pas bien ce que tu entends par "une requête différente par colonne"

Bloon

**julien41** · 19/02/2004, 10h15

Chaque colonne a un nom différent, donc un champ différents dans les tables. Mon DBGrid est basé sur plusieurs tables.

J'ai 8 requêtes avec un champ différent a chaque fois et un order by différent.

**ejaecker** · 19/02/2004, 10h21

Salut,

Pourrais tu expliquer comment tu fait pour lier ton dbgrid à plusieurs tables STP. ?

**julien41** · 19/02/2004, 10h35

avec une requete...

**ejaecker** · 19/02/2004, 10h51

Ok,
c'est bien ce que je pensais aussi.. mais comme tu disais que tu avais 8 requètes avec un champ différents je ne comprenais plus..

Pourrais tu donner le message d'erreur à l'exécution pour y voir plus clair.

Le problème est que j'ai une requete différente par colonne, et je ne sais pas faire la différence entre les colonnes.

La méthode de Bloon me semble bonne pourtant.
Quant tu es dans l'évènement OnTitleCLick de ta DBGrib, l'objet Column accessible à ce moment t'indique sur quelle colonne de ta Grid tu as cliqué, dont la propriété Column.FieldName te donne le champ de ta requète su lequel tu vas pouvoir trier.
Il faut par contre peut être faire un query1.close avant de changer le SQL.text..à voir.
Par contre si tu as déjà une clause ORDER BY dans ta requète initiale, il faudra comme le disait bloon adapter un peu sa solution (peut-être en sachant par avance dans quelle ligne de ton SQL.strings[xx] se situe ta clause ORDER BY pour pouvoir la remplacer.

Code :

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

query1.SQL.string[xx] := ' ORDER BY ' + Column.FieldName

En espérant t'avoir aidé.

**julien41** · 19/02/2004, 11h05

J'écris peut etre mal le code mais voici le message d'erreur a l'éxécution

<<Le projet a provoqué une classe d'exeption EAccessViolation avec le message 'Violation d'accès à l'adresse 004BD79C dans le module Projet.exe. Lecture de l'adresse FFFFFFFF'. Processus stoppé. Utiliser ....>>

**ejaecker** · 19/02/2004, 11h25

Après vérification ma méthode fonctionne.
Peut-être pourrait tu coller ici le code qui provoque cette exception.

**julien41** · 19/02/2004, 11h33

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
private
    qry : string;
 
procedure TForm.FormCreate(Sender: TObject);
begin
     qry := DataModule.Query.SQL.Text;
end;
 
procedure TForm.DBGridTitleClick(Column: TColumn);
begin
        DataModule.Query.SQL.Text := qry + ' ORDER BY ' + column.FieldName;
        DataModule.Query.Open;
end;

**ejaecker** · 19/02/2004, 12h18

Salut,

Vérifie que Ton datamodule est bien créé avant ta Form.
Va dans Projet/options et vérifie que ton datamodule est bien placé avant ta Form dans la liste, sinon tu prends le datamodule et tu le fais glisser au dessus.
Cette erreur vient sûrement du fait que, dans le Oncreate de ta form, tu essaie de manipuler des objets du datamodule alors que lui même n'est pas encore créé.

Amicalement.

**julien41** · 19/02/2004, 14h03

Effectivement, ejaecker a raison, je n'ai plus l'erreur a l'exécution mais une autre erreur se produit lorsque je clique sur le titre de la colonne.

Est ce que cela pourrait venir du fait que j'ai delphi 4 et access ?

**ejaecker** · 19/02/2004, 14h33

Envoyé par julien41

Effectivement, ejaecker a raison, je n'ai plus l'erreur a l'exécution mais une autre erreur se produit lorsque je clique sur le titre de la colonne.

Est ce que cela pourrait venir du fait que j'ai delphi 4 et access ?

Tout dépend du message d'erreur que tu obtient..
Il faut être plus explicite quand tu réponds en mettant les messages d'erreurs et en donnant le bout de code qui semble poser problème.

**julien41** · 19/02/2004, 14h44

Le code est le même que plus haut...

Erreur SQL générale....Erreur de syntaxe dans la clause ORDER BY.

Requête : SELECT * FROM table ORDER BY champ

**Bloon** · 19/02/2004, 16h00

Quelle est la requête obtenue après l'ajout du order by ? fais un showMessage(DataModule.Query.SQL.Text)

Si la requête comporte déjà un order by, ça ne marchera pas, de même s'il y a des espaces dans le nom de la colonne (dans ce cas, encadrer le nom avec des ")

Bloon

**julien41** · 19/02/2004, 16h32

J'ai donc enlevé le order by de ma requete, je n'ai pas d'espace dans les noms des colonnes et là plus de message d'erreur.

Par contre il n'y a rien qui se passe en cliquant sur les colonnes du DBGrid.

J'ai fais un showMessage(DataModule.Query.SQL.Text) et le message me renvois bien la bonne requete.

merci a tous de votre aide.

**ejaecker** · 19/02/2004, 16h41

Envoyé par julien41

Par contre il n'y a rien qui se passe en cliquant sur les colonnes du DBGrid.

C'est normal puisque c'était le role du ORDER BY...

J'ai fais un showMessage(DataModule.Query.SQL.Text) et le message me renvois bien la bonne requete.

Hé bien au moins fais nous voir le texte de cette requète Sans et Avec le ORDER BY si tu veux qu'on arrive à régler ton problème !!

il y a peut être juste un problème d'espace avent le order by si ça se trouve. mais là avoue que l'on navigue un peu à vue hein !

A plus.

**julien41** · 19/02/2004, 16h59

Je recommence...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
private
    qry : string;
procedure TForm.FormCreate(Sender: TObject); 
begin 
     qry := DataModule.Query.SQL.Text; 
end; 
 
procedure TForm.DBGridTitleClick(Column: TColumn); 
begin 
        DataModule.Query.SQL.Text := qry + ' ORDER BY ' + column.FieldName; 
        DataModule.Query.Open;
        showMessage(DM_parc_informatique.SQL_OrderBy_serie.SQL.Text); 
end;