FireBird Tri dans DBgrid

Version imprimable

Bonjour à tous,

Une question qui va vous sembler triviale, mais sur laquelle je bute depuis un certain temps (je suis novice en base de données);

J'ai créé une base de données avec FireBird. Elle comporte plusieurs champs.
Je l'affiche sans problème dans un dbGrid.
Mais j'aimerais indexer cette base selon le champ "CAT" et l'afficher dans ce dbGrid
voici le code utilisé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.Button1Click(Sender: TObject); begin try IBQuery1.Close; IBQuery1.SQL.Clear; IBQuery1.SQL.Text := 'SELECT * FROM MaTable ORDER BY CAT DESC ' ; IBQuery1.Open; IBTransaction1.Commit; except IBTransaction1.Rollback; end; end;
Je n'ai pas d'erreur.
Mais rien ne se passe au niveau du DbGrid. Il reste dans son état initial avec tous ses enregistrements non triés.

Où ai-je fait une erreur ?

Merci de votre aide.
Jl

Bonjour,

Citation:

Envoyé par illuch

Mais rien ne se passe au niveau du DbGrid. Il reste dans son état initial avec tous ses enregistrements non triés.

Par ce que l'ensemble de données était déjà ouvert au lancement, je présume. ;)

Supprimez le commit de votre transaction. Cette commande (idem pour rollback) ne doit être appelée qu'en fin de traitement.
En l'occurrence si la grille ne sert qu'à la visualisation, c'est totalement inutile...
Code:

1 2 3 4 5 6 7 procedure TForm1.Button1Click(Sender: TObject); begin IBQuery1.Close; // IBQuery1.SQL.Clear; // inutile du fait de l'affectation directe de la propriété Text IBQuery1.SQL.Text := 'SELECT * FROM MaTable ORDER BY CAT DESC ' ; IBQuery1.Open; end;

22/04/2016, 14h26
illuch
Citation:

Par ce que l'ensemble de données était déjà ouvert au lancement, je présume. ;)

Oui la base est ouverte.
Je l'ai donc fermée en faisant
Code:

1 2 3 4 IBDatabase1.connected:=True; IBQuery1.Close; IBQuery1.SQL.Text := 'SELECT * FROM MaTable ORDER BY CAT DESC ' ; IBQuery1.Open;
mais je n'arrive toujours pas à visualiser ma base triée. J'ai toujours l'affichage non trié.
Une idée serait la bienbenue.

Merci

JL
22/04/2016, 18h05
Ph. B.
Bonjour,

Citation:

Envoyé par illuch

Oui la base est ouverte.

Attention aux termes employés, je n'ai pas parlé de la base de données mais de l'ensemble de données, c.a.d. ce qui est retourné par la requête SQL (IBQuery1 en l'occurrence).
Citation:
Envoyé par illuch

Je l'ai donc fermée en faisant

Code:

1 2 3 4 IBDatabase1.connected:=True; IBQuery1.Close; IBQuery1.SQL.Text := 'SELECT * FROM MaTable ORDER BY CAT DESC ' ; IBQuery1.Open;

mais je n'arrive toujours pas à visualiser ma base triée. J'ai toujours l'affichage non trié.
C'est qu'il y a un problème ailleurs...:?
Il faudrait en savoir un peu plus sur ce que vous faites dans la fiche (Form) où se trouve votre grille (DBGrid).
Par exemple, y-a-t-il une liaison IBQuery1 <-> Datasource <-> DBGrid ?

Citation:

Envoyé par Ph. B.

Bonjour,
Attention aux termes employés, je n'ai pas parlé de la base de données mais de l'ensemble de données, c.a.d. ce qui est retourné par la requête SQL (IBQuery1 en l'occurrence).

C'est qu'il y a un problème ailleurs...:?
Il faudrait en savoir un peu plus sur ce que vous faites dans la fiche (Form) où se trouve votre grille (DBGrid).
Par exemple, y-a-t-il une liaison IBQuery1 <-> Datasource <-> DBGrid ?

Sur ma fiche, il y a :
un IBQuery, un Datasource, un IBTable, un IBTransaction et un IBDatabase.
Il y a aussi un TDBNavigator et un TDBGrid;
Le tout est configuré comme ça:
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 IBDataBase1.Params.Clear; with IBDatabase1 do begin DatabaseName:=Nom_Base; Params.Add('user_name=Moi'); Params.Add('password=MonMotdePasse'); Params.Add('PAGE_SIZE 4096'); LoginPrompt:=False; DefaultTransaction:=IBTransaction1; end; IBTransaction1.defaultDatabase:=IBDatabase1; IBDatabase1.connected:=True; IBTransaction1.active:=True; with IBTable1 do begin database:=IBDatabase1; TableName:='MaTABLE'; end; DataSource1.DataSet:=IBTable1; IBTable1.Active:=True; DBNavigator1.DataSource:=DataSource1; DBGrid1.DataSource:=DataSource1; IBQuery1.Database:=IBDataBase1; IBQuery1.DataSource:=DataSource1;
Dans le TDBGrid, je vois bien tous mes enregistrements,
Mon problème est lorsque je veux faire un tri , avec le code suivant, rien n'est modifié dans le TDBGrid
Code:

1 2 3 4 5 6 procedure TForm1.Button1Click(Sender: TObject); begin IBQuery1.SQL.Clear; IBQuery1.SQL.Text := 'SELECT * FROM MaTABLE ORDER BY CAT DESC ' ; IBQuery1.Open; end;
Merci de vos lumières

JLouis

Citation:

Envoyé par illuch

Sur ma fiche, il y a :
un IBQuery, un Datasource, un IBTable, un IBTransaction et un IBDatabase.
Il y a aussi un TDBNavigator et un TDBGrid;
Le tout est configuré comme ça:

Et incorrectement donc... ;)
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 IBDataBase1.Params.Clear; with IBDatabase1 do begin DatabaseName:=Nom_Base; Params.Add('user_name=Moi'); Params.Add('password=MonMotdePasse'); Params.Add('PAGE_SIZE 4096'); LoginPrompt:=False; DefaultTransaction:=IBTransaction1; end; IBTransaction1.defaultDatabase:=IBDatabase1; IBDatabase1.connected:=True; IBTransaction1.active:=True; with IBTable1 do begin database:=IBDatabase1; TableName:='MaTABLE'; end; DataSource1.DataSet:=IBTable1; // la grille est alimentée par l'ensemble de données IBTable1, non trié IBTable1.Active:=True; DBNavigator1.DataSource:=DataSource1; DBGrid1.DataSource:=DataSource1; IBQuery1.Database:=IBDataBase1; //IBQuery1.DataSource:=DataSource1; // NON !!! Inutile !
Citation:

Envoyé par illuch

Dans le TDBGrid, je vois bien tous mes enregistrements,

Normal, la grille est alimentée par le datasource qui lui est associé à l'ensemble de données IBTable1.

Citation:

Envoyé par illuch

Mon problème est lorsque je veux faire un tri , avec le code suivant, rien n'est modifié dans le TDBGrid

Toujours normal, votre grille est alimentée par le datasource qui lui RESTE associé à l'ensemble de données IBTable1, et pas à l'ensemble de données IBQuery1.
Après correction rapide, on a:
Code:

1 2 3 4 5 6 7 procedure TForm1.Button1Click(Sender: TObject); begin DataSource1.DataSet := IBQuery1; // la grille est maintenant alimentée par le datasource associé à l'ensemble de données IBQuery1, trié ! // IBQuery1.SQL.Clear; // Inutile, quand on renseigne la requête sql par affectation directe via la propriété Text ! IBQuery1.SQL.Text := 'SELECT * FROM MaTABLE ORDER BY CAT DESC ' ; IBQuery1.Open; end;

Bonjour,

je rajouterais un close à la procédure indiquée par Philippe, au cas où

Code:

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
 DataSource1.DataSet := IBQuery1; // la grille est maintenant alimentée par le datasource associé à l'ensemble de données IBQuery1, trié !
 // IBQuery1.SQL.Clear; // Inutile, quand on renseigne la requête sql par affectation directe via la propriété Text !
 IBQuery1.Close;
 IBQuery1.SQL.Text := 'SELECT * FROM MaTABLE ORDER BY CAT DESC ' ;
 IBQuery1.Open;        
end;

01/05/2016, 13h55
illuch

Après une petite absence, je reviens sur ce post pour vous remercier de vos explications.
Grâce à votre aide mon problème est résolu et surtout j'y vois un peu plus clair en bases de données

JL

PS : comment mettre le tag "résolu" ?
01/05/2016, 14h16
tourlourou

Bonjour,

Juste en dessous du dernier message, à gauche, 2 boutons : "répondre" et :resolu:
Un p'tit clic et hop !