Discussion :

[dekalima]

Bonjour,
J'ai cherché dans le forum mais j'ai pas trouvé de réponse qui me convienne...

Voilà mon problème:

J'ai besoin de trier un DBGrid simplement en cliquant sur le nom du champ ( par exemple en cliquant sur le champ "nom", tout se trie par rapport au nom, ou encore en cliquant sur le champ "prenom", tout se trie par rapport au prénom ).

Je sais comment faire via une requête SQL mais le problème c'est qu'il me faut créer un deuxième DBGrid pour ensuite lui donner les valeurs triées et je ne dois pas utiliser deux DBGrid!

J'avais pensé à un composant : le AdvStringGrid qui est un composant amélioré du StringGrid et qui est payant, il permet via l'inspecteur d'objet de donner la possibilité de cliquer sur le nom du champ pour que ce soit trié sans aucune ligne de code...
Mais problème, il ne gère pas l'accès à la base de donnée ( pas de champ Datasource dans l'inspecteur d'objet ). Donc je suis un peu bloqué, personne a eu ce problème auparavant?
Thanks

[sat83]

Il suffit d'utiliser l'évènement OnTitleClick de ton DBGrid pour modifier ta requête SQL en fonction de la colonne cliquée. Par exemple:

Code :

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

1
2
3
4
5
6
7
8
void __fastcall TFOpenQuiz::DBGrid1TitleClick(TColumn *Column)
{
  AnsiString newOrderBy = " ORDER BY " + Column->FieldName ;        
  Query1->Active = false ;
//[...] réécrire ta requête SQL
  Query1->SQL->Add( newOrderBy  );
  Query1->Active = true;
}

[dekalima]

Merci pour ta réponse...

J'ai mi ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::DBGrid1TitleClick(TColumn *Column)
{
             AnsiString newOrderBy = " ORDER BY " + Column->FieldName ;
  Query1->Active = false ;
 
  Query1->SQL->Add("SELECT * FROM dockers");
  Query1->SQL->Add( newOrderBy  );
  Query1->Active = true;
 
}

Mais j'ai une erreur de classe d'exception ect ... quand je clique sur le champ
"Utilisation incorrect du mot clé élément. SELECT"

[sat83]

Il faut que tu purge ta requête (Clear) avant d'écrire la nouvelle

Code :

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

1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::DBGrid1TitleClick(TColumn *Column)
{
             AnsiString newOrderBy = " ORDER BY " + Column->FieldName ;
  Query1->Active = false ;
  Query1->SQL->Clear(); // <= A TOUJOURS AJOUTER AVANT D'ÉCRIRE UNE REQUÊTE
  Query1->SQL->Add("SELECT * FROM dockers");
  Query1->SQL->Add( newOrderBy  );
  Query1->Active = true;
 
}

[dekalima]

OK, bon j'ai plus le message d'erreur mais ça marche pas. Et j'ai pas contre le message d'erreur qui revient pour les deux autres colonnes (quand je clique dessus).

Je vais réfléchir, si tu as une idée de ton coté, hésite pas...
thanks en tout cas

[sat83]

Est ce que ton TQuery (Query1) et ton TDBGrid (DBGrid1) son reliés l'un à l'autre via un TDataSource? Sinon c'est normal que ca ne marche pas...