Discussion :

[DOliv]

Core mouai
Bonjour à tous.tes et surtout à Sergio

J'aimerai exécuter un bloc de "update" sur plusieurs milliers de lignes.
Ma première idée était de les copier dans TEdit, séparé par un ";" et de les exécuter un par un dans une boucle Delphi.
Mais on m'a parlé du "Execute Block" qui pourrait accélérer la procédure.

Les réponses que je n'ai pas trouvées sont :
Sera ce vraiment plus rapide ?
et, surtout, y a t-il une limite du nombre d'ordres insérable dans un "Execute Block".

Merci d'avance.

[DOliv]

J'ai essayé avec 213 lignes de UPDATE, il me répond :
Too many Contexts of Relation/Procedure/Views. Maximum allowed is 255
What the f... does it mean ?

[SergioMaster]

Bonjour,

Alors, il y a confusion EXECUTE BLOCK c'est ok pour Flamerobin (en commençant par un SET TERM !; d'abord ) pas pour Delphi.
Pour Delphi tu veux sans doute plutôt parler de FDScript
comme je peux le faire sur cet écran où les diverses commandes sont générées à partir d'un fichier CSV dans un Tmemo

et une instruction de ce genre

Code Pascal :

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

 FDScript1.ExecuteScript(TexteScript.Lines);

sauf que, je suis en train de travailler dessus pour que l'utilisateur puisse suivre les commandes qui s'effectuent une à une genre

Code Pascal :

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
var S : String;
    l : TCaretPosition;
begin
try
 l.line:=0;
 l.Pos:=1;
 for S in TexteScript.Lines do
   begin
    TexteScript.BeginUpdate;
    TexteScript.Model.SelectText(l,length(S));  // ne fonctionne pas ?
    Inc(L.line);
    TexteScript.EndUpdate;
    Application.ProcessMessages; // ?? pas sûr 
    Datas.ConnexionUS.ExecSQL(S,true);
   end;
except
  // message
end;

[DOliv]

Bonjour Sergio,
Avant de lire ton msg :

J'ai essayé de voir la limite du nombre de caractères maximum.
J'ai trouvé, au plus près, 11340, et sûrement quelques uns.
Au-delà, FlameRobin pête.

[DOliv]

Non, je parlais bien dans FlameRobin. Donc avec SET TERME...
Mais je lance la requête depuis une appli Delphi.

[DOliv]

J'ai déjà fait une boucle pour lancer l'exécution de chaque ligne requête une à une, mais c'est trop long.
D'où le recours à EXECUTE BLOCK pour exécuter les requêtes bloc par bloc.
Mais au-delà d'un certain nombre de lignes et donc, d'environ 11340 caractère, ça pète.

[DOliv]

Je pense que je vais donc faire un compteur pour insérer des lignes de requête dans un tString quelconque sans dépasser 11340 caractères.
(sauf ton conseil éclairé )

[DOliv]

Tiens, mon FDQuery ne veux pas de "TERM"

Code :

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

1
2
3
4
 
    Qry.SQL.Text := 'SET TERM !; EXECUTE BLOCK AS BEGIN ' + SQLTxt + ' END! SET TERM ; !'
                    ;
    Qry.SQL.SaveToFile('D:\SQL.txt');

Quand je lance le SQL directement dans FlameRobin, ça marche.

Vous voyez où est l'erreur, vous ?

[SergioMaster]

Parce que ce doit être un FDScript pas un FDQuery et du coup, cela ne sert à rein d'utiliser un EXECUTE BLOCK totalement inutile

[DOliv]

Mais pourquoi ce déchainement de haine !
Pourquoi y peut pas juste transmettre l'ordre au SGBD qui sait quoi faire, lui

Bon, merci Sergio, je vais essayer avec ton exemple

[DOliv]

Oui, mais je suis assailli par un horrible doute :
Le script va t-il exécuter les ordres SQL 1 par 1 ou en bloc à la façon d'un "execute block" ?

J'ai l'impression que oui parce qu'il envoie un message de Lock conflicts on no wait transaction...

[SergioMaster]

Il est clairement spécifié dans la doc de FDScript quelques petits trucs à bien lire

Lorsqu'un script contient des commandes ou des blocs de langage de programmation de base de données, d'autres considérations doivent être prises en compte :
SGBD Commandes SQL Description
Firebird

CREATE FUNCTION
EXECUTE BLOCK <bloc de code>

Doit se terminer par '/', ou un séparateur différent de ';' doit être défini.

Par exemple, avec Firebird, utilisez le code suivant :

SET CMDSEP #;
EXECUTE BLOCK ... #
SET CMDSEP ;#
INSERT INTO Brands VALUES (3, 'Mercedes');

ISQL de Firebird fonctionne lorsque le mode Validation automatique est désactivé. Par défaut, le mode Validation automatique pour TFDScript/TFDConnection est activé. Pour améliorer la compatibilité, définissez FDConnection.TxOptions.AutoCommit sur False avant l'exécution du script. Ou exécutez la commande de script SET AUTOCOMMIT OFF.

[SergioMaster]

Bon, merci Sergio, je vais essayer avec ton exemple

Mon second code n'est pas bon, pour que l'utilisateur voie ce qui se passe j'ai fini par utiliser (merci FMX) un Layout qui bloque la saisie

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
29
30
31
32
33
34
35
36
procedure TFormAjustStocks.BtnApplyClick(Sender: TObject);
var S : String;
//    l : TCaretPosition;
begin
LayoutSQL.Visible:=True;
try
try
// l.line:=0;
// l.Pos:=1;
 for S in TexteScript.Lines do
   begin
      Ligne.Text:=(l.Line+1).ToString;
      Commande.Text:=S;
 
// tentative de mise en évidence du texte dans le mémo (ratée)
//   TexteScript.BeginUpdate;
//      TexteScript.Model.SelectText(l,length(S));
//      Inc(L.line);
//    TexteScript.EndUpdate;
    Application.ProcessMessages; // pas terrible mais efficace
 
    Datas.ConnexionUS.ExecSQL(S,true);
   end;
// FDScript1.ExecuteScript(TexteScript.Lines);
 
except
 on e:Exception do
    Datas.MessageService.MessageDialogSync('Erreur dans le script'+Slinebreak+E.Message,
                                            TMsgDlgType.mtError,
                                            [TMsgDlgBtn.mbOk],
                                             TMsgDlgBtn.mbOk,
                                            0);
end;
finally
 LayoutSQL.Visible:=False;
end;

J'ai pu remarquer que c'était rapide (plus que via Flamerobin)

D'un autre côté, il n'y avait que 262 commandes
Si je suis passé par un Tmemo au lieu de mettre les commandes directement dans le fdScript c'est pour pouvoir encore modifier "à la main" le texte avant exécution
Côté transaction, c'est de l'autocommit, dans le contexte du programme il n'est pas nécessaire d'englober les commandes, sinon plutôt qu'un execSQL direct je serai certainement passé par un fdQuery ou un FDCommand (découverte récente de ce composant)

[DOliv]

Merci, Sergio.
J'avais bien compris que ton code était en cours de chantier...

Il est clairement spécifié dans la doc de FDScript quelques petits trucs à bien lire

P.... ça ne s'invente pas On sait que ce qu'on cherche est sûrement noté quelque part, mais, soit on sait où chercher, soit on lit tout.
Du coup, rien ne vaut l'expérience, parce que pour ce qui est de tout lire...aujourd'hui

Merci encore
Je vais avancer...