[D10.3] Applyupdate, commit avec Disablecontrols BUG ?

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:

---

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 ?

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

Citation:

---

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 ... :roll:
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

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

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

Citation:

---

Envoyé par ShaiLeTroll

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 :roll:
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:

---

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

Citation:

---

Envoyé par ShaiLeTroll

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 ... :roll:
:mouarf:
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]

Citation:

---

Envoyé par SergioMaster

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

Code:

---

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