inclure variable query via Delphi

**PhilLU** · 14/08/2013, 11h53

Salut,
Je voudrais inclure dans mes requêtes SQL via Delphi des variables comme par exemple ici pour balayer une table sur un champ heure et un filtre heure dans une date:

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
 
       for i:=0  to 23 do
                begin
                if i<10 then
                istr:='0'+intTostr(i)
                else
                istr:= intTostr(i);
                if i<9 then
                istr1:='0'+intTostr(i+1)
                else
                istr1:= intTostr(i+1);
 
               Query.Active:=False;
                Query.SQL.Clear;
                  Query.SQL.add('UPDATE out_evo_tat');
                  Query.SQL.add('SET TAT_CHAINE = (SELECT AVG(DELTA_CKIN_RESAN)');
                  Query.SQL.add('FROM tests');
                  Query.SQL.add('WHERE TAT_CHAINE = out_evo_tat.TAT_CHAINE');
                  Query.SQL.add('AND DELTA_CKIN_RESAN BETWEEN 0 AND 3600');
                  Query.SQL.add('AND CKIN_NEMO_DT BETWEEN 2013-07-30 ');
                  Query.SQL.add(Quotedstr(istr));
                  Query.SQL.add(':00:00 AND 2013-07-30 ');
                  Query.SQL.add(Quotedstr(istr1));
                  Query.SQL.add(':00:00)');
                  Query.SQL.add('WHERE Heure = ');
                  Query.SQL.add(Quotedstr(intTostr(i)));
                  Query.ExecSQL(true) ;
                 end;