Problème avec TDBGrid

Voila j'ai un petit problème avec mon TDBGrid, certes pas très grave et qui n'empeche pas mon application de fonctionner mais bon c'est tout de meme pas propre.


En fait j'enregistre un visiteur via un formulaire crée avec des TEdit. Ensuite je l'envoi dans ma table (connectée à ma base de donnée) de la manière suivante :

- Code lorsque je clique sur le bouton Ajouter :

Code:

---

1 2 3 4 5 6 7 8 9

void __fastcall TForm1::AGGIUNGERE_VISITATOREClick(TObject *Sender) { TLocateOptions Option; if(TBVisit->Locate("cognome",cognome_visitatore->Text,Option)==true) return; TBVisit->Append(); aggiornare_visitatori(); ShowMessage("Visitatore aggiungere"); }

---

- puis fonction suivante pour ajouter le visiteur dans la table :

Code:

---

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

void __fastcall TForm1::aggiornare_visitatori() { TBVisit->Edit(); TBVisit->FieldByName("Cognome")->Value = cognome_visitatore->Text; TBVisit->FieldByName("Documento")->Value = documento_visitatore->Text; TBVisit->FieldByName("Motivo")->Value = motivo_visitatore->Text; TBVisit->FieldByName("Entrata")->Value = entrata_visitatore->Text; TBVisit->FieldByName("Uscita")->Value = uscita_visitatore->Text; TBVisit->Post(); TBVisit->Refresh(); }

---

Ce que je ne comprends pas, c'est que mon visiteur est bien rajouté UNE SEULE FOIS lorsque l'on verifie dans la table de la base de donnée (type ACCESS) par contre visuellement dans mon TDBGrid mon visiteur apparait 2 fois :
- une fois sur la première ligne du tableau
- une autre fois sur la dernière ligne

Si par la suite je modifie ce visiteur (à l'aide d'un bouton Modifier) le visiteur apparait cette fois ci normalement (soit une seul fois)

Si quelqu'un connait un moyen de remerdier a cela ?

Sinon question supplémenentaire : Est-il possible de trier un TDBGrid en fonction de la colonne où l'on clique. Par exemple si je clique une fois sur la colonne Nom il me trie par ordre croissant les nom, et si je reclique il le fait par ordre dècroissant et ceux pour toutes les colonnes ? Comme dans beaucoup d'applications d'ailleurs.


Merci pour vos futurs éclairages :-)

Voila un bout de code pour le trie des colonnes, attention il se fait que en croissant mais mettre dans l'ordre decroissant n'est pas compliqué.

Code:

---

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

void __fastcall TForm1::DBGridTitleClick(TColumn *Column) { ColonneEnCours=Column->FieldName; AfficheGrille(); } //--------------------------------------------------------------------------- void TForm1::AfficheGrille(void) { AnsiString Sql; DM->Query->Close(); DM->Query->SQL->Clear(); Sql="Select *from table Order by "+ColonneEnCours+" ASC"; DM->Query->SQL->Add(Sql); try { DM->Query->Open(); } catch (EDatabaseError& e) { } } //---------------------------------------------------------------------------

---

Pour ce qui est de l'affichage dans la DBGrid là je vois pas mais peut-etre qu'avec le code pour raffraichir ta DBGrid on pourrait te repondre.;)

pour le tri, j'irai même jusqu'à :

Code:

---

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

//--------------------------------------------------------------------------- void __fastcall DBTools::MyOrderBy(TColumn* Column) {   TDBGrid* cible = dynamic_cast<TDBGrid*>(Column->Grid); AnsiString newsql = dynamic_cast<TPSQLQuery*>(cible->DataSource->DataSet)->SQL->Text; AnsiString ordre; if (newsql.Pos("ASC") != 0 && newsql.Pos(Column->Field->DisplayName)!= 0) ordre = " DESC"; else ordre = " ASC"; newsql = DBTools::SQLSequenced(newsql," LIMIT"); newsql = DBTools::SQLSequenced(newsql," ORDER BY");   DBTools::execQuery(newsql + " ORDER BY " + Column->Field->DisplayName + ordre ,cible); cible->DataSource->DataSet->First();   }

---

Mon code s'applique à un composant de type Query, orienté postgresql...rest à adapter..il est pas fini, fini mais c pour que tu aies une idée.

Sinon, moi non plus je vois pas pour ton soucy là comme ça.En revanche, puisque tu as un datasource, pourquoi n'utilises-tu pas des controls orientés données comme les DBEdit?

Merci pour le code, je vais essayer.

Pour ce qui est de mon code pour le refresh, j'en ai pas j'ai juste une fonction afterRefresh() :

Code:

---

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

void __fastcall TForm1::TBVisitAfterRefresh(TDataSet *DataSet) { /* j'active ou non certains boutons */ AGGIUNGERE_VISITATORE->Enabled = true; stampare_visitatore->Enabled = false;     /* J'efface les TEdit */ documento_visitatore->Text= ""; cognome_visitatore->Text= ""; motivo_visitatore->Text= ""; entrata_visitatore->Text= ""; uscita_visitatore->Text = ""; }

---

Y a t'il quelque chose d'autre a faire d'autre pour que mon refresh soit efficace ?
Ce qui est bizard c'est que lorsque j'ajoute un visiteur il me fait le bug en rajoutant 2 lignes mais lorsque je le modifie, il n'y a aucun problème alors que j'utilise la meme fonction (pour l'ajout et pour la modification) pour mettre a jour mes champs :

Code:

---

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

void __fastcall TForm1::aggiornare_visitatori() { TBVisit->Edit(); TBVisit->FieldByName("Cognome")->Value = cognome_visitatore->Text; TBVisit->FieldByName("Documento")->Value = documento_visitatore->Text; TBVisit->FieldByName("Motivo")->Value = motivo_visitatore->Text; TBVisit->FieldByName("Entrata")->Value = entrata_visitatore->Text; TBVisit->FieldByName("Uscita")->Value = uscita_visitatore->Text; TBVisit->Post(); TBVisit->Refresh(); }

---

Voila, merci d'avance

Pour les DBEdit je ne savais pas que ca existait :oops:

Je connais pas le logiciel depuis très longtemps (3 semaines environ)

Et ce composant DBEdit il fonctionne comme les Tedit habituels mais avec le datasource en plus ?

Merci

exactement...dans l'onglet ControlDB

Alors,

Pour mon tri, il prend bien en compte ma requete SQL mais le tableau ne s'ordone pas, est-ce normal.

Mon code est le suivant :

Code:

---

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

void __fastcall TForm1::DBvisitatoriTitleClick(TColumn *Column) { AnsiString Colonna; AnsiString sql;   Colonna=Column->FieldName;   sql = "SELECT * FROM visitatori ORDER BY " + Colonna + " ASC";   QRVisit->SQL->Clear(); QRVisit->SQL->Add(sql); QRVisit->ExecSQL();   TBVisit->Refresh(); }

---

J'ai pris exemple sur les codes que vous m'avait donné et sur un code du meme genre que j'utilise deja dans mon application (une requete pour supprimer le visiteur selectionné)

Mais la il ne veut pas l'executer, il n'y a pas de tri de tableau apparant

Merci

Bonjour,
Je ne sais pas si cela va resoudre ton probleme mais il est conseiller (d'apres l'aide borland) d'utiliser l'instruction Open() au lieu de ExecSQL() pour une requete de Selection.

lanonyme

Ok pour Open,
Je viens d'essayer mais le résultat est toujours le meme : mon TDBGrid ne change toujours pas d'apparence :?

tu es sur que ton DBGrid est bien lié sur ton QRVisit?

Normalement oui car dans mon application j'utilise deja QRVisit pour supprimer des elements (visiteurs) dans le tableau et sa fonctionne tres bien

C'est pour cela que je ne comprends pas ^^

Bonjour,

J'ai trouvé une solution a mon premier problème (l'affichage du visiteur dans mon TDBGird qui était doublé) :

- Je ferme puis je réouvre ma table apres avoir ajouté mon visiteur

Code:

---

1 2 3

TBVisit->Close(); TBVisit->Open();

---

Je pense pas que ce soit la meilleur méthode mais il a le merite de fonctionner

J'ai aussi essayé une methode proposé sur http://www.developpez.net/forums/sho...ghlight=DBGrid :

Code:

---

1 2	DBGrid1->DataSource->DataSet->Refresh();

---

qui adapté à mon application donne (normalement ^^):

Code:

---

1 2	DBvisitatori->DSVisit->TBVisit->Refresh();

---

Mais il me met l'erreur :

Code:

---

1 2	[C++ Error] Main.cpp(126): E2316 'DSVisit' is not a member of 'TDBGrid'

---

Si personne n'a d'idée c'est pas grave je garderais ma methode barbare sinon je suis preneur.


Pour ce qui est de mon 2ème probléme (le tri de mon TDBGrid en fonction de la colonne sur laquelle on clik) ca ne veut toujours pas fonctionner ; le tri ne s'effectue pas.
Voici le code :

Code:

---

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

void __fastcall TForm1::DBvisitatoriTitleClick(TColumn *Column) {   AnsiString Colonna; // Déclaration d'une variable colonne AnsiString sql; // Déclaration de la variable accueillant la requete sql   Colonna=Column->FieldName; // Enregistre le nom de la colonne cliquée   /* Enregistre la requete de tri */ sql = "SELECT * FROM visitatori ORDER BY " + Colonna + " ASC";   QRVisit->Close(); QRVisit->SQL->Clear(); // Efface la précédente requete QRVisit->SQL->Add(sql); // Ajout de la nouvelle requete QRVisit->Open(); // Execute la requete   TBVisit->Refresh(); // Mise à jour de la table }

---

Merci

Citation:

---

Envoyé par Furlaz

J'ai aussi essayé une methode proposé sur http://www.developpez.net/forums/sho...ghlight=DBGrid :

Code:

---

1 2	DBGrid1->DataSource->DataSet->Refresh();

---

qui adapté à mon application donne (normalement ^^):

Code:

---

1 2	DBvisitatori->DSVisit->TBVisit->Refresh();

---

Mais il me met l'erreur :

Code:

---

1 2	[C++ Error] Main.cpp(126): E2316 'DSVisit' is not a member of 'TDBGrid'

---

Si personne n'a d'idée c'est pas grave je garderais ma methode barbare sinon je suis preneur.

---

J'ai dis une betise pour ca, effectivement il faut garder :

Code:

---

1 2	DBvisitatori->DataSource->DataSet->Refresh();

---

Je me susi confondu entre les methodes et les name de mes composants.

Maintenant la compilation fonctionne bien mais avec cette derniére technique meme problème de doublement d'affichage

Donc pour le moment je garde la méthode barbare

;)

Citation:

---

Envoyé par BOUBOU81

Voila un bout de code pour le trie des colonnes, attention il se fait que en croissant mais mettre dans l'ordre decroissant n'est pas compliqué.

Code:

---

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

void __fastcall TForm1::DBGridTitleClick(TColumn *Column) { ColonneEnCours=Column->FieldName; AfficheGrille(); } //--------------------------------------------------------------------------- void TForm1::AfficheGrille(void) { AnsiString Sql; DM->Query->Close(); DM->Query->SQL->Clear(); Sql="Select *from table Order by "+ColonneEnCours+" ASC"; DM->Query->SQL->Add(Sql); try { DM->Query->Open(); } catch (EDatabaseError& e) { } } //---------------------------------------------------------------------------

---

---

Dans ton code je voulais juste savoir à quoi correspondait "DM" car moi j'ai réalisé un code très proche (forcement j'ai pris exemple sur celui-ci ;) ) mais j'ai directment fait

Code:

---

1 2	Query->....

---

et non :

Code:

---

1 2	DM->Query->...

---

Et puisque ca ne fonctionne pas chez moi je me dis que l'erreur vient peut etre de la ?

non en fait le DM->, c'est que mon Query est dans un DataModule et non sur la fiche.
ton souci ne vient pas de là.
mais qu'est ce qui ne fonctionne pas exactement,
Tes donnée s'affiche bien, pas de message d'erreur...

est-ce que tu as exactement copier mon code, as tu bien l'evenement
TitleClick a ton DBGrid;)

Voici exactement le code que j'ai :

Code:

---

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

void __fastcall TForm1::DBvisitatoriTitleClick(TColumn *Column) { AnsiString Colonna=""; // Déclaration d'une variable colonne AnsiString sql=""; // Déclaration de la variable accueillant la requete sql   Colonna=Column->FieldName; // Enregistre le nom de la colonne cliquée   /* Enregistre la requete de tri */ sql = "SELECT * FROM visitatori ORDER BY " + Colonna + " ASC";   QRVisit->SQL->Close(); QRVisit->SQL->Clear(); // Efface la précédente requete QRVisit->SQL->Add(sql); // Ajout de la nouvelle requete QRVisit->Open(); // Execute la requete     TBVisit->Refresh(); // Mise à jour de la table }

---

Mes donnée s'affiche correctement dans mon DBGrid.
Je n'ai pas de message d'erreurs
J'ai bien un évenement OnTitleClick.
Mais lorsque je click sur une des colonne il ne se passe rien (elle ne sont pas triés, elle reste comme avant)

J'ai vérifié que la requete etait bien enregistré (sans espace, sans fautes,...) en la faisant afficher dans un edit et je n'y est vu aucun problème

J'avoue que je trouve tout cela curieux 8O

Si quelqu'un trouvé solution à mon problème :cry: ce serait génial,:D

C'est une dernières chose qu'il me manque pour mon projet de stage.

Merci.

C'est quoi ton TBVisit
Pourquoi un refresh
le code que je t'ai donné fonctionne sans ca.
si c'est ton DataSource es-tu sûr qu'il est lié à QRVisit?

Citation:

---

Envoyé par BOUBOU81

C'est quoi ton TBVisit
Pourquoi un refresh
le code que je t'ai donné fonctionne sans ca.
si c'est ton DataSource es-tu sûr qu'il est lié à QRVisit?

---

Mon TBVisit, c'est ma table visiteur relié à ma base de donnée.
Dans mon DataSouce, j'ai mis DataSet à TBVisit
et dans QRVisit j'ai bien mis mon DataSource

Le refresh j'ai fait ca comme ca, au cas où :roll:

Arf! Moi je fonctionne pas avec les tables, je ne saurai pas te dire

alors...si j'ai bien tout compris...
la source de ce que tu veux trié est une table, sur laquelle pointe ton DbGrid. Une table donc tu n'as pas accès à un SQL...Il faudrait spécifier une query à la place.
Là il se passe rien, puisque tu changes le SQL d'une query qui n'est pas la source de ton DBgrid.

Ds ton organisation, tu as :
DBGrid vers datasource vers TBVisit.
et tu dis avoir QVisit vers datasource...le datasource de ton query ne sert ici que dans le cas d'un relation maitres-details.

Donc..ce que je ferais...
Remplacé ton TBVisit par l'équivalent en Query..et ensuite tu fais le tri sur ce dataset là.

En espérant ne pas être à côté de la plaque..

Bon courage

Je vois ce que tu veux dire, il faudrait donc que je remplace toutes mes TTable par les Query avec pour requete sql "select * from matable"


Pourtant j'ai auparavent deja utilise mon query pour pouvoir supprimer un visiteur dont voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

void __fastcall TForm1::ELIMINARE_VISITATOREClick(TObject *Sender) { ELIMINARE_VISITATORE->Enabled = false; // Empeche 2 élimination à la suite MODIFICARE_VISITATORE->Enabled = false;// Empeche la modification   TLocateOptions Option; // Option de recherche pour le locate   /* Demande confirmation pour l'élimination */ if(TBVisit->Locate("cognome",cognome_visitatore->Text,Option)==false) return; int ok=Application->MessageBox(ConfElimVisit1,ConfElimVisit2,\ MB_OKCANCEL|MB_ICONQUESTION); if(ok!=1) return;   /* Ecriture de la requete */ AnsiString sql="";   sql = "Delete from visitatori where "; sql = sql + "cognome = '" + cognome_visitatore->Text + "'";   QRVisit->SQL->Clear(); // Efface la requete précédente QRVisit->SQL->Add(sql); // Ajoute de la nouvelle requete QRVisit->ExecSQL(); // execute la requete   TBVisit->Refresh(); // Mise à jour de la table   ShowMessage(ElimVisit); // Message de confirmation }

---

Et celle ci ne m'as jamais posée de problème, elle fonctionne très bien et le fait d'avoir en plus un composant TTable ne le gene pas.
C'est tout de meme curieux que celle-ci fonctionne et pas celle pour le tri !!

Et changer tout mes TTable par mes Query alors que j'ai environ 1000 lignes dans mon programme, ca risque de prendre un certain temps :? mais si c'est vraiment la solution 8O

Oui mais lorsque tu supprime tu lance une commande
puis tu rafraichis ta table
alors que pour le trie tu faie le trie sur ton Query et pas sur ta table

Ok alors je vais voir ca de plus pres :?

Et par hasard il n'y aurait pas une astuce de le faire en gardant mes TTable ?
car je suis moyennement chaud à modifier 1000 lignes de programmes 8O qui fonctionne bien a part ce tri qui n'est pas réalisé

honnetement, l'utilisation des Tables restreint vachement les possibilités mais ce n'est que mon avis perso.
Par ailleurs, je pense pas que ce soit si compliqué de changer...d'une part, ts les controles orientés sont liés au datasource qui lui ne va pas bougé..et puis 1000 lignes de code...c'est assez calme qd même ;)


Pour moi tu as tout intérêt à changer.
Une dernière chose...ne renseigne pas le datasource de ton query.

Bon courage, A+

oki merci, je vais voir tout ca :?

Pour ceux que ca interesse j'ai trouvé cela qui fonctionne :

Code:

---

1 2	((TTable*)(Column->Field->DataSet))->IndexFieldNames=Column->FieldName;

---

Par contre c'est juste pour le tri croissant.
Si quelqu'un connait une technique dans le genre pour le decroissant ce serait impec

Merci

Puisque que la réponse est compris dans ce post, Je met le Tag [Résolu].

Meme si ca marche pas exactement comme je voudrais chez moi ca pourra certainement en aider d'autres ;)

Ciao et :merci: