Créer et utiliser une GTT avec firebird

Version imprimable

03/08/2021, 16h53
GrPtj

1 pièce(s) jointe(s)

Créer et utiliser une GTT avec firebird

Bonjour,
Comme suite à la précédente discussion sur les GTT firebird, j'ai fait un programme de test.
Je peux créer une table temporaire mais au moment de la remplir avec les données d'une table persistante existante j'obtiens des erreurs ...
Peut-être que j'oublie quelque chose ?

1 pièce(s) jointe(s)

Bonjour,

le problème vient avant tout d'un peu de fainéantise avec cette utilisation de SELECT * FROMune simple vérification avec flamerobin permet de voir que la génération de la GTT est la clé de l'erreur

Pièce jointe 603230
à gauche , la structure de la GTT créée à droite celle qui aurait fallu créer pour utiliser ce SELECT * afin d'avoir les champs qui correspondent

L'erreur ? la ligne 117 de l'unité unit2.pas add('order by NAME') ; à remplacer par add('ORDER BY RF.RDB$FIELD_POSITION');Cela étant, si pour des tests je comprends le principe de création d'une GTT dans le programme ce n'est certainement pas une chose à faire au sein d'une application multi utilisateurs.

Pour rester :zen: je ne critiquerai pas trop le fait d'utiliser des ''constante'' dans les SQL mais +QuotedStr('constante') je trouve ça plus joli

pour en finir le code peut se simplifier
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 procedure TForm1.Button4Click(Sender: TObject); var // WFDSql : TFDQuery ; i : integer; begin //Lecture des données depuis employes dans PRESENTS // WFDSql := TFDQuery.Create(nil) ; // WFDSql.Connection := FDDB ; // with WFDSql.sql do // begin // clear ; // add('INSERT INTO PRESENTS'); // add('SELECT * FROM EMPLOYES '); // add('where PRESENT = ''Y''') ; // end; // WFDSql.ExecSQL ; // freeandnil(WFDSql) ; fddb.ExecSQL('INSERT INTO PRESENTS SELECT * FROM EMPLOYES WHERE PRESENT=?',['Y']); i:=fddb.ExecSQLScalar('SELECT COUNT(*) FROM PRESENTS'); Showmessage(i.ToString); //Affichage de PRESENTS // FDQuery1.Open() ; end;
le résultat du messsage ? 11 donc les enregistrements sont bien copiés.
Etant en vacances je ne me suis pas penché sur la partie suivante à savoir fdquery1 qui n'affiche rien dans la grille (déjà dans le code fourni le datasource n'était pas lié et non active et la query pointait sur une autre table !)

23/08/2021, 10h33
GrPtj

Bonjour et merci pour tous ces éclaircissements,

Code:

Etant en vacances

d'autant plus sympa d'avoir regardé de près !
Je reprends après une petite pose moi aussi :)

Code:

L'erreur ? la ligne 117 de l'unité unit2.pas add('order by NAME')

En effet il ne fallait pas changer l'ordre des champs !

merci pour les simplifications de code, je ne connaissais pas quotedstr et execSQLScalar

Code:

fdquery1 qui n'affiche rien dans la grille

Effectivement il y avait un problème de liaison mal reporté dans mon exemple.

Il me reste à reporter des modifications de la table temporaire vers la table persistante.
un simple INSERT INTO EMPLOYES SELECT * FROM PRESENTS pour remplacer les valeurs peut-il fonctionner ?
23/08/2021, 11h05
SergioMaster

Bonjour,

Citation:

Envoyé par GrPtj

un simple INSERT INTO EMPLOYES SELECT * FROM PRESENTS pour remplacer les valeurs peut-il fonctionner ?

J'utiliserai plutôt un UPDATE OR INSERT au vue des autres posts
mais il vaudrait mieux une syntaxe explicite (plus je prend de l'age plus je desteste l'utilisation du *)

J'ai le résultat souhaité avec le code suivant
mais j'imagine qu'il y a plus simple ?

Code:

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
WFDSql := TFDQuery.Create(nil) ;
WFDSql.Connection := FDDB ;
WFDSql.UpdateOptions.GeneratorName := 'EMPLOYES_BI' ;
WFDSql.UpdateOptions.KeyFields := 'ID_EMPLOYES' ;
 
FDQuery1.first ;
while not FDQuery1.Eof do
begin
  if FDQuery2.Locate('ID_EMPLOYES', FDQuery1.FieldByName('ID_EMPLOYES').AsInteger,[]) then
  begin
     with WFDSql.Sql do
     begin
       clear ;
       add('UPDATE EMPLOYES') ;
       add('set PRESENT=:0, NUMBADGE=:1, NOM=:2, PRENOM=:3') ;
       add('where ID_EMPLOYES=:4');
     end;
     WFDSql.ExecSQL('', [FDQuery1.FieldByName('PRESENT').AsString, FDQuery1.FieldByName('NUMBADGE').AsInteger, 
         FDQuery1.FieldByName('NOM').AsString, FDQuery1.FieldByName('PRENOM').AsString, FDQuery1.FieldByName('ID_EMPLOYES').AsInteger]) ;
  end
  else
  begin
     with WFDSql.Sql do
     begin
       clear ;
       add('INSERT INTO EMPLOYES') ;
       add('(PRESENT, NUMBADGE, NOM, PRENOM)') ;
       add('values (:0,:1,:2,:3)') ;
      end;
      WFDSql.ExecSQL('', [FDQuery1.FieldByName('PRESENT').AsString, FDQuery1.FieldByName('NUMBADGE').AsInteger, 
            FDQuery1.FieldByName('NOM').AsString, FDQuery1.FieldByName('PRENOM').AsString]) ;
   end ;
   FDQuery1.next ;
end;
freeandnil(WFDSql) ;

24/08/2021, 12h02
GrPtj

Avec ce code il me faudra gérer les suppressions à part
24/08/2021, 12h21
SergioMaster

Citation:

Envoyé par GrPtj

J'ai le résultat souhaité avec le code suivant
mais j'imagine qu'il y a plus simple ?

Oui, comme je l'ai écrit en utilisant UPDATE OR INSERT et en utilisant directement la connexion et un execsql
Cela éviterait : la boucle sur la fdquery1 tout comme la création de WFDSql

Citation:

Avec ce code il me faudra gérer les suppressions à part

ce serait de toute façon le cas. Je n'y ai pas longuement réfléchi mais, je ferais certainement les DELETE avant le UPDATE OR INSERT

à verifier mes hypothèses

Code:

DELETE FROM EMPLOYES WHERE NOT ID_EMPLOYES IN (SELECT ID_EMPLOYES FROM GTT)

puis

Code:

UPDATE OR INSERT INTO EMPLOYES(ID_EMPLOYES,PRESENT,NUMBADGE, NOM, PRENOM) SELECT ID_EMPLOYES,PRESENT,NUMBADGE, NOM, PRENOM FROM GTT
24/08/2021, 14h14
GrPtj

Code:

UPDATE OR INSERT INTO EMPLOYES (ID_EMPLOYES,PRESENT,NUMBADGE, NOM, PRENOM) SELECT ID_EMPLOYES,PRESENT,NUMBADGE, NOM, PRENOM FROM GTT

il y un problème de syntaxe, select n'est pas attendu ...
25/08/2021, 09h01
SergioMaster

Bonjour,

Ah, c'est vrai, j'avais (encore) :oops: oublié que cette syntaxe n'était pas acceptée (dommage d'ailleurs)
reste bien évidemment la boucle sur fdQuery1 avec ou sans l'utilisation des Array DML
26/08/2021, 09h46
GrPtj

Merci beaucoup, précis et réactif ! :ccool: