Discussion :

[illuch]

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 :

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

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

[Ph. B.]

Bonjour,

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 :

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

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;

[illuch]

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 :

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

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

[Ph. B.]

Bonjour,

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

Je l'ai donc fermée en faisant

Code :

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

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 ?

[illuch]

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 :

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

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 :

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

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

[Ph. B.]

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 :

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

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 !

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.

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 :

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

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;

[SergioMaster]

Bonjour,

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

Code :

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

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;

[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" ?

[tourlourou]

Bonjour,

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