Tri alphabetique d'un DBGrid

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

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:

---

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; }

---

Merci pour ta réponse...

J'ai mi ceci:

Code:

---

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"

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

Code:

---

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;   }

---

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

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

Ah oui mais ya un petit problème dans mon truc en fait,


Mon DBGrid est relié à ma table via un datasource donc ensuite je place un query pour la requête mais je peux pas relier le DBGrid au DataSource du Query parce que mon DBGrid est deja relié a un autre DataSource ( celui qui le connecte avec ma table ) ...
Sois je m'embrouille sois c'est pas possible non ?

Personnellement je n'utilise jamais le composant TTable, j'utilise toujours TQuery.

Il suffit que tu supprime ton TTable et que tu n'utilise que ton TQuery. A voir si c'est possible dans ton cas

Ok je suppose dans ce cas qu'il faut que je créé une requête SQL dans le Query pour afficher ce qu'il y a dans la table , je purge et je fais la requête de tri...
Je vais essayer je reviens vers toi si j'ai un prb ( surement ).

Bon en fait ça se complique par rapport à ce que je fais. Ce que je vais faire c'est créer un deuxième DBGrid qui contient les valeurs triées et quand je clique sur le champ du premier, le deuxième apparait et le première disparait... au moins ça me dépanne et je pense que ça va marcher ....

Tu aurais pas un exemple simple à m'envoyer par mail de d'utiliser TQuery à la place de TTable ? ça serait super...

bon je reviens si j'ai une question ...
merci à toi en tout cas pour ton aide précieuse!

Bon en fait ça marche mais je peux pas faire ça parce que si l'utilisateur souhaite ensuite cliquer sur une ligne pour la modifier, il va cliquer sur le DBGrid2 et pas sur le 1 ...:cry:


Bon je sais pas comment faire alors

Imaginons que tu ait un TTable sur une table Ma_Table.
Il suffit de le remplacer par un TQuery contenant:

Code:

---

SELECT * FROM MA_TABLE

---

Je garde ça sous la main car ça me sera utile, mais en fait on vient de me dire que je ne devais pas utiliser de base de donnée mais tout doit être stocké dans un simple fichier txt donc je recommence tout et je pense que je vais beaucoup plus galérer. Je comprends pas trop pourquoi, c'est tellement plus simple avec une BDD... pour faire des modifications/suppressions/ajouts.

Donc là j'ai un autre problème que j'ai déjà eu mais je ne trouve pas la solution.
Dans ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

void __fastcall TForm2::Button1Click(TObject *Sender) { strList = new TStringList(); strList->Add(Edit1->Text); strList->Add(Edit2->Text); strList->Add(Edit3->Text);   for (int ii=0 ; ii<strList->Count ; ii++) { Form1->AdvStringGrid1->Cells[ii+1][1]=strList->Strings[ii]; } Form2->Close();   }

---

j'ai cette erreur : [C++ Erreur] Unit2.cpp(28): E2451 Symbole 'Form1' non défini
Pourtant je suis bien obligé de mettre form1 pour préciser que mon AdvStringGrid1 est dans la fiche Form1.

Si tu as des idées ...
Merci encore

Code:

---

#include "Unit1.h"

---

Citation:

---

Envoyé par sat83

Imaginons que tu ait un TTable sur une table Ma_Table.
Il suffit de le remplacer par un TQuery contenant:

Code:

---

SELECT * FROM MA_TABLE

---

---

Bon j'ai un peu de temps devant moi là donc j'essaye ta méthode ( d'utiliser que des Query )...

Donc j'ai remplacé TTable par TQuery, j'ai fait les modifications qui s'imposent pour avoir le contenu de la table dans le TDBGrid, tout est ok, la requête SQL : " SELECT * from ma_table" marche mais je voulais savoir pour l'insertion d'un enregistrement que je dois maintenant faire avec Query ( comme j'ai plus de composant TTable, je peux plus utiliser append();

j'ai ceci:

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TForm2::Button1Click(TObject *Sender) { Form1->Query1->SQL->Clear() ;   Form1->Query1->SQL->Add( "INSERT INTO client ('NOM', 'NUMERO DE GSM', 'MATRICULE) VALUES ( 'QuotedStr( "%" + Form2->Edit1->Text + "%" )','QuotedStr( "%" + Form2->Edit2->Text + "%" )','QuotedStr( "%" + Form2->Edit3->Text + "%" )')");   Form1->Query1->Active = true; }

---

mais j'ai 1 erreur

[C++ Erreur] Unit2.cpp(22): E2087 Utilisation incorrecte de pointeur

Si tu vois quelque chose , fais moi signe
Merci à toi

Lorsque tu effectuer un INSERT, UPDATE ou DELETE dans une table, tu ne doit pas utiliser

Code:

---

Form1->Query1->Active = true; //uniquement pour les requête SELECT

---

mais

Code:

---

Form1->Query1->ExecSQL(); //pour les autres requêtes

---

Ensuite, ta requête d'insertion est incorrecte.
Un conseil, rédige là sur plusieurs ligne pour plus de clarté!
Exemple:

Code:

---

1 2 3 4 5

Query1->SQL->Add( "INSERT INTO client ('NOM', 'NUMERO DE GSM', 'MATRICULE)" ) ; Query1->SQL->Add( "VALUES ( " ); Query1->SQL->Add( QuotedStr( Form2->Edit1->Text ) + " , " ) ; Query1->SQL->Add( QuotedStr( Form2->Edit2->Text ) + " , " ) ; Query1->SQL->Add( QuotedStr( Form2->Edit3->Text ) + " ) " ) ;

---

Merci pour ces précisions, c'est plus clair dans ma tête. Il reste juste une simple erreur à l'execution:

Citation:

---

Erreur SQL générale. [MySQL][ODBC5.1DRIVER][mysqld-5.1.49-community-log]Erreur de syntaxe pr.

---

Le code est le même donc:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void __fastcall TForm2::Button1Click(TObject *Sender) { Form1->Query1->SQL->Clear() ; Form1->Query1->SQL->Add( "INSERT INTO client ('NOM', 'NUMERO DE GSM', 'MATRICULE')" ) ; Form1->Query1->SQL->Add( "VALUES ( " ); Form1->Query1->SQL->Add( QuotedStr( Form2->Edit1->Text ) + " , " ) ; Form1->Query1->SQL->Add( QuotedStr( Form2->Edit2->Text ) + " , " ) ; Form1->Query1->SQL->Add( QuotedStr( Form2->Edit3->Text ) + " ) " ) ; Form1->Query1->ExecSQL(); Form2->Close(); }

---

Comme l'indique l'exception, il y a une erreur de syntaxe SQL dans ta requête.
Est ce que tu sûr que le nom de ta table et le nom de tes champs sont correct? un champ comme 'NUMERO DE GSM' contenant des espaces me semble incorrect, non?

Vérifie ta requête juste avant l'exécution pour si elle te semble correcte, via par exemple:

Code:

---

1 2 3

//... ShowMessage( Form1->Query1->SQL->Text ) ; Form1->Query1->ExecSQL();

---

ça marche après avoir enlevé les simple quotes pour les champs après le INTO. my mistake : )

J'ai déjà une autre question mais je vais réfléchir un peu, c'est pour modifier une ligne d'un DBGrid, j'imagine que c'est une requête UPDATE mais comment il détecte quelle ligne est sélectionnée dans le DBGrid ( = celle à modifier ) car avant avec le composant table, j'utilisais Table1->Delete(); et il comprenait que je cherchais à supprimer celui qui était selectionné!
t'as un exemple?
Merci encore x100

Le plus simple c'est que ta table ait une clé primaire.
D'ailleurs, même si ce n'est pas obligatoire, je te conseille fortement de définir une clé primaire pour chacune de tes tables. Ainsi, chaque enregistrement dans ta base de donnée pourra être retrouvé de façon unique grâce à cette clé primaire. Par exemple dans ta table CLIENT, tu peux créer un champ NUMERO_CLIENT qui sera la clé primaire.

Ensuite pour modifier d'une ligne d'un DBGrid, il suffit d'exécuter une requête UPDATE en spécifiant quelle ligne tu veux modifier (via sa clé primaire)

Disons que ton DBGrid affiche les données d'un TQuery QSelect, et que tu as un second TQuery pour faire les update appelé QUpdate. Pour mettre à jour les champs NOM et MATRICULE de la ligne sélectionné dans le DBGRid:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

//Récupération de la ligne sélectionnée dans le DBGrid: AnsiString numClient= QSelect->FieldByName( "NUMERO_CLIENT" )->AsString ; QUpdate->Active = false; QUpdate->SQL->Clear(); QUpdate->SQL->Add( "UPDATE CLIENTS" ) ; QUpdate->SQL->Add( "SET NOM = " + QuotedStr( Edi1->Text ) + " , " ) ; QUpdate->SQL->Add( " MATRICULE = " + QuotedStr( Edi3->Text ) ) ; //Dans la clause WHERE on indique quel enregistrement on veut modifier //Sans clause WHERE, tous les enregistrements de ta table seront modifiés! QUpdate->SQL->Add( "WHERE NUMERO_CLIENT= " + numClient ) ; QUpdate->ExecSQL() ;

---

Pour supprimer une ligne, c'est la même chose en effectuant une requête DELETE a la place de UPDATE:
SELECT => récupérer en lecture des données d'une ou plusieurs table
INSERT=> Insérer un ou plusieurs enregistrement dans une table
UPDATE => Mettre à jour un ou plusieurs enregistrement dans une table
DELETE => Supprimer un ou plusieurs enregistrement dans une table

Merci pour cette longue explication, ça résume parfaitement ce que j'ai besoin de savoir et tellement bien expliqué que je vais l'imprimer. Je bosse dessus et je reviens vers toi si j'ai un problème!

Ok donc j'ai bien compris ce que tu as écrit mais dans un première temps je dois importer les champs de la ligne d'enregistrement dans les 3 TEdit tels qu'ils sont, c'est après avoir cliqué sur un autre bouton de mise à jour que la requête UPDATE se fera.

Donc pour récupérer les infos, j'ai donc fait un simple SELECT:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void __fastcall TForm1::Button2Click(TObject *Sender) { AnsiString numClient= Query1->FieldByName( "NUMERO_CLIENT" )->AsString ; QModif->Active = false; QModif->SQL->Clear();   Form2->Edit1->Text=QModif->SQL->Add( "SELECT NOM FROM CLIENT WHERE NUMERO_CLIENT= " + numClient ) ; QModif->ExecSQL() ; Form2->Show();   }

---

* Mon Query1 est celui que tu appelles QSelect, je le renommerais plus tard

Il y a du progrès, maintenant au lieu de rien avoir dans le Edit1, j'ai "0".
Le code utilisé est ci-dessus.

Cette ligne est complètement incohérente, normal qu'elle ne donne rien:

Code:

---

Form2->Edit1->Text = QModif->SQL->Add( "SELECT NOM FROM CLIENT WHERE NUMERO_CLIENT= " + numClient ) ;

---

Regarde ce que retourne la fonction Add (via l'aide F1) et tu comprendra ton erreur. De plus, tu fais un ExecSQL sur un SELECT.

Mais si je comprend pas trop ce que tu essai de faire...

Si tu veux récupérer le contenu de la ligne sélectionnée dans un Edit:

Code:

---

Form2->Edit1->Text = Query1->FieldByName( "NOM" )->AsString;

---

En fait ce que je cherche à faire :


Quand l'utilisateur clique sur un bouton sur le form1, ça ouvre le form 2:
http://nsa20.casimages.com/img/2010/...5757477306.jpg

Et je voudrais que dans ces 3TEdit, s'affiche les 3 champs de la ligne sélectionnée dans le DBGrid.

Après, les modifications peuvent être faites et le user aura la possibilité de cliquer sur un autre bouton en dessous pour sauvegarder les modifications et les envoyer dans la table. ( mais ça, j'ai compris, c'est pour afficher dans les TEdit que je sais pas comment m'y prendre )

Donc il suffit de faire au moment où tu affiche ta Form2:

Code:

---

1 2 3

Form2->Edit1->Text = Query1->FieldByName( "NOM" )->AsString; Form2->Edit2->Text = Query1->FieldByName( "GSM" )->AsString; Form2->Edit3->Text = Query1->FieldByName( "MATRICULE" )->AsString;

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

void __fastcall TForm1::Button2Click(TObject *Sender) {   //Récupération de la ligne sélectionnée dans le DBGrid: //Query1->SQL->Clear(); AnsiString numClient2= Query1->FieldByName( "NUMERO_CLIENT" )->AsString ; QModif->Active = false; QModif->SQL->Clear(); QModif->SQL->Add( "SELECT * from client" ) ; QModif->SQL->Add( "WHERE NUMERO_CLIENT= " + numClient2 ) ; ShowMessage( Form1->Query1->SQL->Text ); ShowMessage( Form1->QModif->SQL->Text ); QModif->ExecSQL() ;   Form2->Edit1->Text = QModif->FieldByName( "NOM" )->AsString; Form2->Edit2->Text = QModif->FieldByName( "NUMERO" )->AsString; Form2->Edit3->Text = QModif->FieldByName( "MATRICULE" )->AsString;     }

---

Franchement, je comprend pas pourquoi ça marche pas, quand je relis, ça suit mais la logique mais on doit pas avoir la même avec le PC.

Query1 est l'équivalent de ton Qselect qui affiche dans le ShowMessage : select * from client order by nom
QModif est l'équivalent de ton QUpdate et affiche bien dans le ShowMessage:
Select * from client where NUMERO_CLIENT =11 ( par exemple )

Quand je clique sur le bouton qui declenche l'évènement de cette fonction, j'ai une erreur classe d'exception, il ne reconnait pas le champ "NOM" à cette ligne :

Code:

---

Form2->Edit1->Text = QModif->FieldByName( "NOM" )->AsString;

---

Alors que le champ NOM est bien correct evidemment...
Si tu vois pas, je crois que je vais laisser tomber...
thx

C'est normal!!! Tu mélange un peu tout.
=> pas de ExecSQL avec un SELECT
=> QModif doit te servir pour faire un UPDATE, pas pour faire un SELECT puisque tu as déjà Query1 pour le SELECT.
=> Les champs de la ligne sélectionnée dans ton DBGrid peuvent être récupérés directement via un FieldByName

Pour afficher les infos dans ta deuxième fenêtre:

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TForm1::Button2Click(TObject *Sender) { // POUR RECUPERER LA LIGNE SELECTIONNÉ DE TON DBGRID //(si bien sûr ton DBGrid est connecté à Query1!!!) Form2->Edit1->Text = Query1->FieldByName( "NOM" )->AsString; Form2->Edit2->Text = Query1->FieldByName( "NUMERO" )->AsString; Form2->Edit3->Text = Query1->FieldByName( "MATRICULE" )->AsString; }

---

Pour enregistrer les modifications:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

void __fastcall TForm1::BtnUpdateClick(TObject *Sender) { //Récupération de la ligne sélectionnée dans le DBGrid: AnsiString numClient= Query1->FieldByName( "NUMERO_CLIENT" )->AsString ; QModif->Active = false; QModif->SQL->Clear(); QModif->SQL->Add( "UPDATE CLIENTS" ) ; QModif->SQL->Add( "SET NOM = " + QuotedStr( Edi1->Text ) + " , " ) ; QModif->SQL->Add( " MATRICULE = " + QuotedStr( Edi3->Text ) ) ; QModif->SQL->Add( "WHERE NUMERO_CLIENT= " + numClient ) ; QModif->ExecSQL() ; }

---

Ok, c'est déjà plus clair dans ma tête.
En tout cas ça marche, et j'ai fait la suppression qui marche aussi.

Je crois que ce qui m'induit en erreur c'est FielByName: sur l'aide C++Builder, j'ai trouvé ça :

Citation:

---

Appelez FieldByName pour obtenir les informations sur un champ quand vous en connaissez le nom.
FieldName est le nom d'un champ existant.

---

Mais ce que je comprend pas trop c'est la manière dont il sait de quelle ligne on parle parce que "obtenir les informations sur un champ" ok , mais de quelle ligne ?
ça me parle pas trop leur définition.
C'est pour ça que je faisais un autre SELECT, j'étais convaincu qu'il fallait en faire un autre pour situer vraiment la bonne ligne.
Bon je bosse tout ça .
Thanks à toi une fois encore

C'est parce que ton DBGrid n'est qu'un affichage de ton TQuery.
Lorsque tu sélectionne une ligne dans ton DBGrid, en faite ton TQuery se place sur l'enregistrement correspondant, et c'est celui là que tu récupère via FieldByName.

Merci pour la précision,
Sinon, tu sais si il y a un moyen de virer le champ "NUMERO_CLIENT" du DBGrid car du coup il me l'affiche avec les 3 autres champs. Ce qui est normal d'un coté comme j'affiche les données du DBGrid grâce à un SELECT * sur ma table.
Mais si je fais un SELECT champvoulu1,champvoulu2 par exemple sans mettre le champ "NUMERO_CLIENT" il n'aime pas dans le code comme on l'utilise ce champ.


EDIT: pour cacher la colonne, j'ai trouvé j'utilise:

Code:

---

DBGrid1->Columns->Items[3]->Visible = false;

---

(3 est la colonne en question)