Tri sur DBgrid

Version imprimable

18/02/2004, 08h47
julien41

Tri sur DBgrid

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

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:

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

18/02/2004, 19h30
star

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.
19/02/2004, 08h34
julien41

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.
19/02/2004, 09h43
Bloon

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
19/02/2004, 10h15
julien41

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.
19/02/2004, 10h21
ejaecker

Salut,

Pourrais tu expliquer comment tu fait pour lier ton dbgrid à plusieurs tables STP. ? 8O
19/02/2004, 10h35
julien41

avec une requete...
19/02/2004, 10h51
ejaecker

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.

Citation:

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:

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

En espérant t'avoir aidé.
19/02/2004, 11h05
julien41

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 ....>>
19/02/2004, 11h25
ejaecker

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

Code:

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;

19/02/2004, 12h18
ejaecker

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.
19/02/2004, 14h03
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 ?
19/02/2004, 14h33
ejaecker

Citation:

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.
19/02/2004, 14h44
julien41

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
19/02/2004, 16h00
Bloon

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
19/02/2004, 16h32
julien41

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.
19/02/2004, 16h41
ejaecker

Citation:

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...

Citation:

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.

Je recommence...

Code:

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;

showMessage me renvoit

SELECT *
FROM table
ORDER BY champ

Ma requete dans mon DataModule est la suivante

SELECT * FROM table

Salut,

Si ton code est effectivement celui que tu as montré peut-être vaudrait t'il mieux le réécrire de la sorte :
Code:

1 2 3 4 5 6 procedure TForm.DBGridTitleClick(Column: TColumn); begin DM_parc_informatique.SQL_OrderBy_serie.Text := qry + ' ORDER BY ' + column.FieldName; DM_parc_informatique.SQL_OrderBy_serie.Open; showMessage(DM_parc_informatique.SQL_OrderBy_serie.SQL.Text); end;
c'est à dire en nommant le datamodule et la requète tels qu'ils sont nommés chez toi...
la syntaxe de Bloon était une syntaxe générique qu'il fallait adapter à TON code...

Tiens nous au courant.
Bon courage.

19/02/2004, 17h33
julien41

Oui bien sure c'est ce que j'avais fais.

Désolé je voulais aussi faire une syntaxe générique.