Discussion :

[illuch]

Bonjour à tous,

J'ai une base de données (FireBird).
Pour la visualiser, la modifier ..., j'ai sur ma Form les composants suivants :
IBQuery1, Datasource1, IBTable1, IBTransaction1, IBDatabase1, DBGrid1, DBnavigator1
J'ai configuré tout ça de la manière suivante :

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
 IBDataBase1.Params.Clear;
  with IBDatabase1 do begin
   DatabaseName:='MaBase';
   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;
 Form1.DBNavigator1.DataSource:=DataSource1;
 Form1.DBGrid1.DataSource:=DataSource1; 
 
 IBQuery1.Database:=IBDataBase1;
 IBQuery1.DataSource:=DataSource1;

Jusqu'à là, tout fonctionne parfaitement.

Je veux faire ensuite du tri sur cette base de données. Pour cela (et surtout pour ne pas prendre de risque, car je suis vraiment novice en base de données), j'ai rajouté les composants suivants :
IBQuery5, Datasource5, IBTable5, IBTransaction5, IBDatabase5, DBGrid5, DBnavigator5
J'ai configuré le tout comme çà (suite à un précédent post):

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
 IBDataBase5.Params.Clear;
 with IBDatabase5 do begin
  DatabaseName:=Nom_Base;
  Params.Add('user_name='MaBase'); 
  Params.Add('password='MonMotdePasse'); 
  Params.Add('PAGE_SIZE 4096');
  LoginPrompt:=False;               
  DefaultTransaction:=IBTransaction5;
 end;
 
 IBTransaction5.defaultDatabase:=IBDatabase5;
 IBDatabase5.connected:=True;          
 IBTransaction5.active:=True;
 
 with IBTable5 do begin
  database:=IBDatabase5;
  TableName:='MaTable';
 end;
 DataSource5.DataSet:=IBQuery5;
 
 IBTable5.Active:=True;
 
 DBGrid5.DataSource:=DataSource5;
 
 IBQuery5.Database:=IBDataBase5;

Je fais ensuite mon tri de la manière suivante

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form3.IBQuery5.Close;
 IBQuery5.SQL.Text := 'SELECT * FROM MaTable where CAT = 5 ' ;
 IBQuery5.Open;
end;

La requête s"exécute parfaitement et le DBGrid5 m'affiche bien les enregistrements pour lesquels la condition 'CAT=5' est vraie.

Mais là où ça se gâte, c'est si je rajoute dans la base un (ou plusieurs) enregistrement (dans lequel CAT=5), et que je réexécute ma requête précédente, alors dans ce cas les enregistrements que j'ai ajoutés ne sont pas affichés dans le DBGRID5. L'affichage du DBGrid5 n'est donc pas mis à jour.
Si je quitte l'application et que je la relance, et si je réexécute ma requête, alors je retrouve tous les enregistrements attendus.

Qu'ai-je oublié ?
Merci de votre aide, car je ne vois vraiment pas.

JL

[heart100]

ajouter un edit sur form et un boutton aussi
selectioné le quiery et va a la proprieté params
nouveau params
nomde params p
datatype:asinteger .
va à la proprieté SQL
et ecri ceci:

Code :

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

 SELECT * FROM MaTable where CAT =:p

active =true
sur le bouton écri ceci :

Code :

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

1
2
3
4
 
query1.close;
query1.parambyname('p')asinteger:=strtoint(edit1.text);
query1.open;

[ShaiLeTroll]

Il n'y aurait pas une confusion entre Form3.IBQuery5 et IBQuery5 qui est en réalité Form1.IBQuery5

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
 // Form3.IBQuery5.Close; // ce n'est pas le bon qui est fermé du coup celui a rafraichi reste ouvert et ne se recharge pas !
 IBQuery5.Close; 
 IBQuery5.SQL.Text := 'SELECT * FROM MaTable where CAT = 5 ' ;
 IBQuery5.Open;
end;

Faudrait mettre les Query dans des DataModule
Et faire un nommage plus propre, comment veux-tu t'y retrouver avec les noms automatiques

Sinon ce n'est pas un Tri ce que tu fais
le titre approprié aurait du être "Rafraichissement d'une Sélection après modification de la base"

[illuch]

Voilà ce que j'ai fait en m'inspirant de la réponse de heart100

Code :

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

1
2
3
4
5
6
7
  IBQuery5.Close;
  IBQuery5.Sql.Clear;
  IBQuery5.SQL.Text := 'SELECT * FROM MaTable where CAT =:categorie';
  IBQuery5.Params.Clear;
  IBquery5.Params.CreateParam(ftinteger,'categorie', ptUnknown);
  IBQuery5.ParamByName('categorie').AsInteger := 5;
  IBQuery5.Open;

Je ne vois toujours pas les derniers enregistrements que je viens d'ajouter à ma table.
Il faut toujours que je ferme l'appli et que je la relance pour voir les modifications.
J'en suis donc toujours au même point (j'avais également essayé avec les composants tels que préconisés par heart100, mais ça ne marche pas non plus )

@ShaiLeTroll

Il n'y aurait pas une confusion entre Form3.IBQuery5 et IBQuery5 qui est en réalité Form1.IBQuery5

Non, il n'y a pas de confusion. La confusion est venue lors de la rédaction du post (pb de copier/coller )

Merci de vos lumières

JL

[illuch]

Je viens d'arriver à faire fonctionner mon tri.
Je dis bien "faire fonctionner" car je ne comprends pas pourquoi.
Si quelqu'un peut me donner une explication, ce serait bien.

Voici un petit résumé pour ceux qui auraient manqué les épisodes précédents.

J'ai une fiche avec les composants suivants Dbgrid1, DBnavigator1, IBQuery1, IBTable1, IBTransaction1 et IBTable1. Cet ensemble qui me sert à modifier, ajouter, supprimer des enregistrements, est configuré de la sorte :

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
 IBDataBase1.Params.Clear;
  with IBDatabase1 do begin
   DatabaseName:='MaBase';
   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;

Sur cette fiche, j'ai également les composants suivants : Dbgrid5, IBQuery5, IBTable5, IBTransaction5 et IBTable5. Cet ensemble qui me sert visualiser les tris effectués sur cette même base, est configuré ainsi :.

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
 IBDataBase5.Params.Clear;
 with IBDatabase5 do begin
  DatabaseName:=Nom_Base;
  Params.Add('user_name='MaBase'); 
  Params.Add('password='MonMotdePasse'); 
  Params.Add('PAGE_SIZE 4096');
  LoginPrompt:=False;               
  DefaultTransaction:=IBTransaction5;
 end;
 
 IBTransaction5.defaultDatabase:=IBDatabase5;
 IBDatabase5.connected:=True;          
 IBTransaction5.active:=True;
 
 with IBTable5 do begin
  database:=IBDatabase5;
  TableName:='MaTable';
 end;
 DataSource5.DataSet:=IBQuery5;
 
 IBTable5.Active:=True;
 
 DBGrid5.DataSource:=DataSource5;
 
 IBQuery5.Database:=IBDataBase5;

Pour effectuer mon tri, je faisais :

Code :

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

1
2
3
4
5
6
7
 IBQuery5.Close;
  IBQuery5.Sql.Clear;
  IBQuery5.SQL.Text := 'SELECT * FROM MaTable where CAT =:categorie';
  IBQuery5.Params.Clear;
  IBquery5.Params.CreateParam(ftinteger,'categorie', ptUnknown);
  IBQuery5.ParamByName('categorie').AsInteger := 5;
  IBQuery5.Open;

Le tri s'effectuait, mais si je rajoutais un enregistrement (avec CAT=5) et que je réexécutais le même tri , je ne le voyais pas. Il me fallait relancer l'appli.

Finalement, voici ce que j'ai fait

Code :

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

1
2
3
4
5
6
7
8
  IBDatabase5.connected:=False;   <= c'est cette ligne que j'ai rajoutée 
  IBQuery5.Close;
  IBQuery5.Sql.Clear;
  IBQuery5.SQL.Text := 'SELECT * FROM MaTable where CAT =:categorie';
  IBQuery5.Params.Clear;
  IBquery5.Params.CreateParam(ftinteger,'categorie', ptUnknown);
  IBQuery5.ParamByName('categorie').AsInteger := 5;
  IBQuery5.Open;

Avec cette ligne (IBDatabase5.connected:=False), ça fonctionne.
Pourquoi ?

Merci si quelqu'un peut m'expliquer.

JL

[SergioMaster]

Bonjour,

le code est vraiment "illisible" tous ces noms par défauts cela n'arrange pas la lecture !
sans parler qu'il y en a trop d'instructions !
par exemple :

Code :

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

1
2
3
 
 IBQuery5.Sql.Clear; // inutile puisque il y a l'instruction du dessous 
  IBQuery5.SQL.Text := 'SELECT * FROM MaTable where CAT =:categorie';

*
ensuite , j'ai l'impression que IBQuery5 ne sert qu'au tri donc :
1- pourquoi toujours re-renseigner la requête
2- pourquoi n'avoir pas mis un code fixe dans la propriété
3- pourquoi ne pas l'avoir "préparer" (prepare)
enfin un SELECT * est couteux, il vaut mieux dresser la liste des champs

Avec cette ligne (IBDatabase5.connected:=False), ça fonctionne.

AMHA il s'agit d'un problème de transaction (très) mal géré ! le fait de fermer la connexion, qui se rouvre par défaut en réouvrant la requête, clôture une transaction non validée (commit)

vu la méthode

J'ai une fiche avec les composants suivants Dbgrid1, DBnavigator1, IBQuery1, IBTable1, IBTransaction1 et IBTable1. Cet ensemble qui me sert à modifier, ajouter, supprimer des enregistrements, est configuré de la sorte :

je dirais qu'il y a une erreur importante : utiliser un IBTable (donc toute la table) pour faire ce genre d'opération va à l'encontre de l'objectif ! il ne devrait n'y avoir qu'un seul enregistrement concerné .

La "bonne méthode" pour moi serait d'utiliser la Query de tri (celle qui est liée avec la DBGrid) comme MasterSource (avec uniquement les champs nécessaires dont la clé) et une requête sélectionnant un seul enregistrement (Query1 à la place de Table1)

mais bon, comme les IBxxxxx ne sont pas ma tasse de thé, que tout est vague, que je fait le pont etc... j'en reste là