Discussion :

[delphi2019]

salut Comment convertir ce code en une seule requête (En utilisant la boucle FOR de firebird)?

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
     with FDQuery1 do
     begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT CODE_MODULE FROM MODULES');
      Open;
     end;



  FDQuery1.First;
  while not FDQuery1.Eof do
   begin
     with FDQuery2 do
     begin
     Close;
     SQL.Clear;
     SQL.Add('INSERT INTO RESULTATS (N_INSCRIPTION, CODE_MODULE, CODE_SEMESTRE)');
     SQL.Add(' SELECT et.N_INSCRIPTION,:CODE_MODULE,:CODE_SEMESTRE FROM etud st');
     ParamByName('CODE_MODULE').value:=FDQuery1.FieldByName('CODE_MODULE').Value;
     ParamByName('CODE_SEMESTRE').value:='1';
     ExecSQL;
     FDQuery1.Next;
     end;
   end;

[al1_24]

Quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
INSERT INTO RESULTATS
    (   N_INSCRIPTION
    ,   CODE_MODULE
    ,   CODE_SEMESTRE
    )
SELECT  et.N_INSCRIPTION
    ,   md.CODE_MODULE
    ,   1               as  CODE_SEMESTRE
FROM    ETUD    st
    cross join
        MODULES md
;

[delphi2019]

merci al1_24
Y a-t-il une deuxième méthode ?

[al1_24]

En quoi celle-ci ne te convient -elle pas ?

[delphi2019]

La requête que vous définissez résout mon problème. Je veux savoir s'il existe un autre moyen avec la boucle for

[SergioMaster]

Oui mais cela serait au sein d'une procédure ou d'un EXECUTE BLOCK avec déclaration de variables et n'apporte rien à la bonne solution.

De plus vous demandez

Comment convertir ce code en une seule requête

pas d'en faire une procédure. D'ailleurs même dans une procédure ceserait le code proposé par al1_24 qui serait à mettre.

[delphi2019]

Oui, vous avez raison

Pourriez-vous donner une solution via procédure stockée
l’exécution de cette procédure fait par le composant TFDStoredProc ou TFDQuery ?

[SergioMaster]

Un peu de sérieux ! Je me refuse d'écrire le traitement avec les deux boucles ! Il est quand même facile d'inclure la requête proposée dans une procédure.

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
CREATE PROCEDURE NOUVEAU_SEMESTRE(CODE INTEGER)
AS 
BEGIN
INSERT INTO RESULTATS
    (   N_INSCRIPTION
    ,   CODE_MODULE
    ,   CODE_SEMESTRE
    )
SELECT  et.N_INSCRIPTION
    ,   md.CODE_MODULE
    ,  :CODE
FROM    ETUD    st
    cross join
        MODULES md
;
END;

l’exécution de cette procédure fait par le composant TFDStoredProc ou TFDQuery ?

Nous débordons de Firebird pour nous lancer dans Delphi. Encore une fois il s'agit d'une question qui n'en est pas vraiment une. Il faudrait plonger dans le détail de Firedac pour en être sûr mais de mon point de vue les deux composant cités, vu qu'il n'y a pas d'ensemble de données de sortie sont identiques. AMHA FDStoredProc est surtout un vestige de BDE, le seul avantage : retrouver le nom de la procédure plutôt que de la saisir dans un SQL.text. Et tant qu'à faire vous pouvez aussi l'exécuter directement à partir de la Connexion

Code Delphi :

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

FDConnection1.ExecSQL('EXECUTE PROCEDURE NOUVEAU_SEMESTRE(?)',[edit1.text]);

[delphi2019]

merci