Discussion :

[PhilLU]

Bonjour,
je sèche sur la syntaxe de WHERE imbriqués dans une requête Delphi
Je dois mettre un champ 'Flag' à '-2SD' dans la table QC_Res_Temp
quand la valeur du champ de cette même table est inférieure à la valeur MEAN de la table QC_Val
de l'enregistrement dont le champ TEST est égal à PLT
et le champ QCLot est égal à 40971102
dont voici le

Code :

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

1
2
3
4
5
6
7
8
 Query2.Active:=False;
               Query2.SQL.Clear;
               Query2.SQL.Text:='UPDATE QC_Res_temp SET FLAG= '+quotedStr('-2SD') +
               ' WHERE RESULT < '  +
               ' SELECT (QC_VAl.MEAN' +
               ' WHERE TEST = PLT'+
               ' AND QCLOT = 40971102)';
               Query2.ExecSQL();

Qui a une idée???

d'avance

[SergioMaster]

Bonjour,

encore une fois il manque des termes dans ton SQL

Code :

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

1
2
3
4
5
UPDATE QC_Res_temp SET FLAG= '+quotedStr('-2SD') 
               ' WHERE RESULT < '  +
               ' SELECT (QC_VAl.MEAN' +  // SELECT FROM QUOI ? 
               ' WHERE TEST = PLT'+
               ' AND QCLOT = 40971102)';

A minima le SQL devrait être

Code SQL :

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

1
2
3
UPDATE QC_RES_TEMP SET FALG='-2SD' 
WHERE RESULT< (SELECT MEAN FROM QC_VAL WHERE TEST='PLT' AND QC_LOT='40971102') // ça c'est pour récupérer MEAN , le WHERE se fait sur QC_VAL
AND TEST='PLT' AND QCLOT='40971102'  // ça c'est sur la table QC_RES_TEMP

[PhilLU]

Salut Sergiomaster,
même en vacances ;-)

J'ai bien testé et celà ne plante plus maintenant avec ce code mais ne me retourne pas les bonnes valeurs (ne fait rien)

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
 
for i:=1 to Query.FieldByName('nombre').AsInteger do
        begin
                Query.Active:=False;
                Query.SQL.Clear;
                Query.SQL.Add('SELECT Test, Result, QC_Lot, Flag FROM qc_res_temp LIMIT '+(intToStr(i))+',1');
                Query.Active:=true;
                testtemp:=Query.FieldByName('test').AsString;
                QC_lottemp:=Query.FieldByName('QC_Lot').AsString ;
 
               Query2.Active:=False;
               Query2.SQL.Clear;
 
                Query2.SQL.Text:='UPDATE QC_RES_TEMP' +
                ' SET FLAG= '+quotedStr('-2SD') +
                ' WHERE RESULT< (((SELECT MEAN FROM QC_VAL ' +
                ' WHERE TEST=' +quotedStr(testtemp)+
                ' AND QCLOT='+quotedStr(QC_lottemp)+ // ça c'est pour récupérer MEAN , le WHERE se fait sur QC_VAL
                ' ) AND TEST=' +quotedStr(testtemp)+
                ' AND QC_LOT='+quotedStr(QC_lottemp)+  // ça c'est sur la TABLE QC_RES_TEMP
 
                 ' )'+
               ' -2*( SELECT `ETCALC` FROM `qc_val` '+
               ' WHERE TEST= '+quotedStr(testtemp)+
               ' AND QCLOT= '+quotedStr(QC_lottemp)+  // ça c'est pour récupérer MEAN , le WHERE se fait sur QC_VAL
               ' ) AND TEST=' +quotedStr(testtemp)+
                ' AND QC_LOT='+quotedStr(QC_lottemp)+  // ça c'est sur la TABLE QC_RES_TEMP
                ')';
                Query2.ExecSQL();
           end;

J'ai donc testé cette requête en test direct dans MySQL, mais

Code sql :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
UPDATE QC_RES_TEMP
SET FLAG= '-2SD' 
WHERE RESULT< ((SELECT MEAN FROM QC_VAL 
WHERE TEST='PLT'
AND QCLOT='40971102'
) AND TEST='PLT'
AND QC_LOT='40971102'                  
-2*( SELECT `ETCALC` FROM `qc_val` 
WHERE TEST= 'PLT'
AND QCLOT= '40971102'
) AND TEST='PLT'
AND QC_LOT='40971102'
)

mais ne fonctionne pas non-plus alors qu'elle devrait

[PhilLU]

En fait ce

Code :

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

1
2
3
4
5
6
7
8
9
 
UPDATE QC_RES_TEMP
SET FLAG='-2SD'
WHERE RESULT < ((SELECT MEAN FROM QC_VAL 
WHERE TEST='PLT'
AND QCLOT='40971102'
) AND QC_RES_TEMP.TEST='PLT'
AND QC_RES_TEMP.QC_LOT='40971102'
)

ne renvoie rien (mais pas d'erreur)
et donc celui-ci non-plus :-(

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
UPDATE QC_RES_TEMP
SET FLAG='-2SD'
WHERE RESULT < (((SELECT MEAN FROM QC_VAL 
WHERE TEST='PLT'
AND QCLOT='40971102'
) AND QC_RES_TEMP.TEST='PLT'
AND QC_RES_TEMP.QC_LOT='40971102')
-2* ((SELECT `ETCALC` FROM `qc_val`
WHERE TEST='PLT'
AND QCLOT='40971102'
) AND QC_RES_TEMP.TEST='PLT'
AND QC_RES_TEMP.QC_LOT='40971102'))

ne renvoie rien
par contre ce code (deux parenthèses en moins)

Code :

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

1
2
3
4
5
6
7
8
 
UPDATE QC_RES_TEMP
SET FLAG='-2SD'
WHERE RESULT < (SELECT MEAN FROM QC_VAL 
WHERE TEST='PLT'
AND QCLOT='40971102'
) AND QC_RES_TEMP.TEST='PLT'
AND QC_RES_TEMP.QC_LOT='40971102'

mais incomplet fonctionne et me fait l'update correctement (vis à vis de la formule tronquée)
...comment ajouter la seconde partie??? à savoir

Code :

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

1
2
3
4
5
6
 
-2* ((SELECT `ETCALC` FROM `qc_val`
WHERE TEST='PLT'
AND QCLOT='40971102'
) AND QC_RES_TEMP.TEST='PLT'
AND QC_RES_TEMP.QC_LOT='40971102'))

mais après de nombreuses tentatives ce

Code :

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

1
2
3
4
5
6
7
8
9
 
UPDATE QC_RES_TEMP
SET FLAG='-2SD'
WHERE RESULT < (SELECT MEAN
-2* ETCALC FROM QC_VAL
WHERE TEST='PLT'
AND QCLOT='40971102'
) AND QC_RES_TEMP.TEST='PLT'
AND QC_RES_TEMP.QC_LOT='40971102'

fonctionne
et celui-ci (Delphi)

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
 for i:=1 to Query.FieldByName('nombre').AsInteger-1 do
        begin
                Query.Active:=False;
                Query.SQL.Clear;
                Query.SQL.Add('SELECT Test, Result, QC_Lot, Flag FROM qc_res_temp LIMIT '+(intToStr(i))+',1');
                Query.Active:=true;
                testtemp:=Query.FieldByName('test').AsString;
                QC_lottemp:=Query.FieldByName('QC_Lot').AsString ;
 
                Query2.Active:=False;
                Query2.SQL.Clear;
                Query2.SQL.Text:='UPDATE QC_RES_TEMP' +
                ' SET FLAG= '+quotedStr('-2SD') +
                ' WHERE RESULT < (SELECT MEAN -2* ETCALC' +
                ' FROM QC_VAL' +
                ' WHERE TEST=' +quotedStr(testtemp)+
                ' AND QCLOT='+quotedStr(QC_lottemp)+
                ' ) AND QC_RES_TEMP.TEST=' +quotedStr(testtemp)+
                ' AND QC_RES_TEMP.QC_LOT='+quotedStr(QC_lottemp);
                Query2.ExecSQL();
           end;

aussi

SergioMaster pour tes suggestions !

[tourlourou]

SergioMaster pour tes suggestions !

Tu ne t'es pour autant résolu à passer le message comme tel, ce que je viens de faire

[SergioMaster]

même en vacances ;-)

oui , ça me repose de la chasse sous-marine ! Donc une fois par jour je viens faire un tour