Discussion :

[zarbouine]

Bonjour à tous,

Je suis tombé sur un bon gag !
Je suis sur une base FB3.0 avec des Query Firedac. Détails est relié à commandes. Mon but est de remplir un nouveau champ de la table details (noligne)
Voilà ce que j'ai fait :

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
   commandes.DisableControls;
   details.DisableControls;
   commandes.First;
   while commandes.Eof=false do
   begin
     i:=0;
     while details.Eof=false do
     begin
       details.Edit;
       detailsnoligne.Value:=i;
       details.Post;
       details.Next;
       inc(i);
     end;
     details.ApplyUpdates();
     details.CommitUpdates;
     memo1.Lines.Add(commandesrefcom.asstring);
     commandes.Next;
   end;
   commandes.enableControls;
   details.enableControls;

Si je disable les contrôles, ça va très vite, mais les commit ne se font pas dans la base !!!
Si je ne les disable pas, évidemment c'est moins rapide puisque il faut tout afficher dans mes grid, mais les commit se font et ma table est bien mise à jour.
Incroyable non ? ou bien je passe à côté de quelque chose ?

[ShaiLeTroll]

details c'est TFDQuery ?



while commandes.Eof=false do pas très habituel comme écriture, je pratique plutôt le while not commandes.Eof do, je m'en suis d'ailleurs fait une template
Sinon, j'aurais remis un details.First() à chaque changement de commandes, c'est une relation Maitre-Detail entre TFDQuery, je suppose que details est paramétré et que c'est commandes qui bind automatiquement via la relation sauf que la documentation averti à ce sujet dans ces termes si l'on regarde cet extrait de la documentation de Data.DB.TDataSet.DisableControls

Si l'ensemble de données est le maître d'une relation maître/détail, l'appel de DisableControls désactive aussi la relation maître/détail. L'initialisation de BlockReadSize au lieu de l'appel de DisableControls actualise les ensembles de données détail pendant que vous faites défiler l'ensemble de données, mais n'actualise pas les contrôles orientés données.

C'est donc parfaitement en accord avec la documentation ...
Un petit Close Bind Open manuel de details à partir de commandes ne doit pas être bien difficile, je les sais pour l'avoir écrit en ADO

A tentez ce BlockReadSize, j'ignore si mettre 1 suffit ou si il faut mettre RecordCount pour lire d'un coup tout commandes sans que ça défile la grille

[SergioMaster]

Bonjour,

Je n'ai pas vu de starttransaction ?

et je trouve quand même que c'est beaucoup de code alors que cela pourrait se régler via Firebird plus directement via procedure ou SQL directement, surtout que ce doit certainement être du ponctuel

[ShaiLeTroll]

CommitUpdates c'est lié à CachedUpdates pour le BDE Like
Et ce n'est pas le Commit de la Connection lié à un StartTransaction, ce n'est pas au même niveau

[SergioMaster]

CommitUpdates c'est lié à CachedUpdates pour le BDE Like

Ah oui, zut j'ai pas fait gaffe, je ne suis pas très CachedUpdates faut dire
En plus comment est connecté details ? c'est une table, une query en tout cas un disablecontrol ça doit pas aider à mettre la liaison !

en tout cas, pur Firebird j'écrirai un EXECUTE BLOCK

Code SQL :

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
 
SET TERM !;
EXECUTE block as
DECLARE VARIABLE I BIGINT;
DECLARE VARIABLE NUMCMDE BIGINT;
DECLARE VARIABLE OLDCMDE BIGINT;
DECLARE VARIABLE K VARCHAR(17);
begin
  I=0;
  OLDCMDE=-1;
  FOR SELECT RDB$DB_KEY,COMMANDE FROM LIGNES ORDER BY COMMANDE INTO :K,:NUMCMDE DO
   begin
      IF (Oldcmde<>NUMCMDE) THEN 
       BEGIN
        I=0;
        OLDCMDE=NUMCMDE;
       END 
      I=I+1;
      UPDATE LIGNES SET NUMERO=:I WHERE RDB$DB_KEY=:K;
   end
 END !
 SET TERM ; !

je n'ai jamais essayé de EXECUTE BLOCK directement dans firedac ce pourrait être intéressant.

Un petit test s'imposait : avec un FDScript cela passe comme une lettre à la poste

[zarbouine]

en tout cas, pur Firebird j'écrirai un EXECUTE BLOCK

Code SQL :

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
 
SET TERM !;
EXECUTE block as
DECLARE VARIABLE I BIGINT;
DECLARE VARIABLE NUMCMDE BIGINT;
DECLARE VARIABLE OLDCMDE BIGINT;
DECLARE VARIABLE K VARCHAR(17);
begin
  I=0;
  OLDCMDE=-1;
  FOR SELECT RDB$DB_KEY,COMMANDE FROM LIGNES ORDER BY COMMANDE INTO :K,:NUMCMDE DO
   begin
      IF (Oldcmde<>NUMCMDE) THEN 
       BEGIN
        I=0;
        OLDCMDE=NUMCMDE;
       END 
      I=I+1;
      UPDATE LIGNES SET NUMERO=:I WHERE RDB$DB_KEY=:K;
   end
 END !
 SET TERM ; !

je n'ai jamais essayé de EXECUTE BLOCK directement dans firedac ce pourrait être intéressant.

Un petit test s'imposait : avec un FDScript cela passe comme une lettre à la poste

Je suis bien d'accord, mais ça faisait partie de mon apprentissage des query de Firedac, et je ne suis pas encore assez costaud en SQL. Ton exemple me fera progresser, c'est sur !
En tout cas, merci à tous les deux de votre soutien!

Pat

[zarbouine]

details c'est TFDQuery ?
oui



while commandes.Eof=false do pas très habituel comme écriture, je pratique plutôt le while not commandes.Eof do, je m'en suis d'ailleurs fait une template
Oui, bon...

Sinon, j'aurais remis un details.First() à chaque changement de commandes, c'est une relation Maitre-Detail entre TFDQuery, je suppose que details est paramétré et que c'est commandes qui bind automatiquement via la relation sauf que la documentation averti à ce sujet dans ces termes si l'on regarde cet extrait de la documentation de Data.DB.TDataSet.DisableControls

Damned ! j'étais tellement sur de moi que je n'ai pas jeté un oeil dans la doc. A posteriori, je ne l'ai pas trouvé dans la doc de la version CE.

C'est donc parfaitement en accord avec la documentation ...

Un petit Close Bind Open manuel de details à partir de commandes ne doit pas être bien difficile, je les sais pour l'avoir écrit en ADO
Je ne connais pas, je vais regarder...

A tentez ce BlockReadSize, j'ignore si mettre 1 suffit ou si il faut mettre RecordCount pour lire d'un coup tout commandes sans que ça défile la grille[/QUOTE]