Discussion :

[SergioMaster]

Bonjour,

je sèche un peu sur l'utilisation de ce composant et peut être de ses propriétés de plus je voudrais pouvoir en gérer les erreurs.

Voilà le topo je me réfère à la doc trouvée ici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with FDScript1 do begin
   SQLScripts.Clear;
   SQLScripts.Add;
   with SQLScripts[0].SQL do begin
     Add('INSERT INTO Brands VALUES (1, ''Audi'')');
     Add('INSERT INTO Brands VALUES (2, ''BMW'')');
   end;
   ValidateAll;
   ExecuteAll;
 end;

en reprenant cet exemple je voudrais faire ceci :

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
with FDScript1.SQLScripts do begin
   Clear;
   with Add do begin
     Name := 'root';
     SQL.Add('@Audi');  // explicitly call 'Audi' script
     SQL.Add('@BMW'); // explicitly call 'BMW' script
   end;
   with Add do begin
     Name := 'Audi';
     SQL.Add('INSERT INTO Brands VALUES (1, ''Audi'');');
   end;
   with Add do begin
     Name := 'BMW';
     SQL.Add('INSERT INTO Brands VALUES (2, ''BMW'')');
   end;
 end;
 FDScript1.ValidateAll;
 FDConnexion1.StartTransaction;
 FDScript1.ExecuteAll;
 FDConnexion1.Commit;

ce qui semblerait logique ?
et je voudrai par l'intermédiaire de l'événement OnError du TFdScript obtenir le nom du script en erreur au cas où

Code :

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

1
2
3
4
5
6
procedure TForm1.FDScript1r(ASender: TObject;
  const AInitiator: IFDStanObject; var AException: Exception);
begin
  showmessage(AInitiator.Name+slineBreak+AException.Message);
  FDConnexion1.Rollback;
end;

mais là , j'ai un problème, mon script ne fait ... rien !
bien évidement, dans mon programme il ne s'agit pas des mêmes ordres ni table mais le principe est là.

Y voyez vous une erreur de logique ?

[Papy214]

et sans transaction, ça passe ?

[SergioMaster]

Bonjour,

Pareil , en fait le code 1 est sans transaction et passe parfaitement (si bien sur il n'y a pas de clés en double)
je n'ai pas fait encore tous les tests hors transactions, mais le script s'arrête dès qu'il y a une erreur (enfin selon l'option breakonerror)

Un idée m'est venue ce matin : je crois que le onError est géré sur le ValidateAll (contrôle de syntaxe) et non sur le ExecuteAll (exécution du script)

il est toujours possible de se rabattre sur un code

Code :

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

1
2
 
if ExecuteAll then Commit else Rollback;

je n'ai pas encore testé les ExecuteStep et trouve les calculs de TotalJobSize,TotalJobDone,Totalprct10Done loufoques, bref je découvre

en tout cas ce qui suit fonctionne comme souhaité

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
37
38
FDConnection1.TxOptions.AutoCommit:=False; // obligatoire pour Firebird 
with FDScript1.SQLScripts do begin
   Clear;
   with Add do begin
     Name := 'root';
     SQL.Add('@Audi');  
     SQL.Add('@BMW'); 
     SQL.Add('@Erreur');
     SQL.Add('@ter');
   end;
   with Add do begin
     Name := 'Audi';
     SQL.Add('INSERT INTO Brands VALUES (1, ''Audi'');');
     SQL.Add('INSERT INTO Brands VALUES (3, ''Audi bis'');');
   end;
   with Add do begin
     Name := 'BMW';
     SQL.Add('INSERT INTO Brands VALUES (2, ''BMW'');');
     SQL.Add('INSERT INTO Brands VALUES (4, ''BMW bis'');');
   end;
   with Add do begin
     Name := 'ter';
     SQL.Add('INSERT INTO Brands VALUES (5, ''Audi ter'');');
     SQL.Add('INSERT INTO Brands VALUES (6, ''BMW ter'');');
   end;
   with Add do begin
     Name := 'Erreur';
     SQL.Add('INSERT INTO Brands VALUES (1, ''Audi'');');
   end;
 end;
 FDScript1.ValidateAll;
 FDConnection1.StartTransaction;
 if FDScript1.ExecuteAll then  FDConnection1.Commit
                         else  begin
                               showmessage(inttostr(fdscript1.TotalJobSize));
                               fdConnection1.Rollback;
                         end;
 FDConnection1.TxOptions.AutoCommit:=True;

Un autre essai

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
with FDScript1 do begin
   SQLScripts.Clear;
   SQLScripts.Add;
   with SQLScripts[0].SQL do begin
     Add('INSERT INTO Brands VALUES (1, ''Audi'');');
     Add('INSERT INTO Brands VALUES (2, ''BMW'');');
     Add('INSERT INTO TOTO VALUES (2);');                 // << table inexistante 
   end;
   ValidateAll;
   FDConnection1.StartTransaction;
   try
     if ExecuteAll then showmessage('OK')
                   else showmessage('NO');
     FDConnection1.Commit;
   except
     Showmessage('exception');
     FDConnection1.Rollback;
   end;
end;

1. le ValidateAll passe , donc mon idée du matin est fausse
2. je ne passe jamais dans le Except

Suite aux prochain tests , ce FdScript est plus ardu que je ne le pensais pour des questions de production je vais me rabattre sur le bon vieux ExecSQL en attendant des réponses (pb posé sur EDN := bouteille à la mer)

[SergioMaster]

je n'ai pas encore testé les ExecuteStep

Encore plus ardu à comprendre ! cela à l'air d'être sympathique à première vue mais pas facile à comprendre à cause déjà d'une confusion pour une Variable nommée Position qui est un TPosition donc Y et X . Ce nom équivoque fait croire qu'il s'agit de la position sur la fiche mais non ! il s'agit en fait de la position dans le script en ligne, caractère. Pour comprendre il faut imaginer un TMemo contenant des lignes de SQL, Position X,Y donne alors la position du curseur.
Bref ça ne répond pas à ma question concernant l'évènement OnError qui persiste à ne pas se lever, tout comme le try except d'ailleurs !

Conclusion: il doit y avoir une propriété quelque part ou cela dépend du SGBD

[SergioMaster]

Bonjour,

en fait il s'agit d'un bug de la version Firedac XE7 , Dmitry Arefiev le "Firedac Architect" me l'a indiqué lorsque j'ai posé la question sur le forum EDN,
il m'a fourni un patch (une ligne à corriger/ajouter dans un des sources) . Seulement voilà, pas la marche à suivre pour le faire !

Quelqu'un a t-il déjà fait cette expérience ? Modifier un source de la "bibliothèque Delphi" s'avère être une partie délicate avec toutes les protections que Windows impose, (impossible d'écrire dans le répertoire de ces sources, erreur à la création du sous-répertoire History etc... en 2 mots : "Galère,Rames")

[alheuredudejeuner]

Si tu as le fichier .pas du source, tu le copies dans un répertoire accessible en lecture écriture, puis tu
ajoutes le fichier à ton application.

Sinon, tu peux lui demander le .dcu, qu'il suffira de copier en remplacement du fichier buggé.

Cordialement

André