MySQL Update imbriqués

Version imprimable

Encore une colle :calim2:
J'ai besoin de calculer le STDDEV de valeurs se trouvant dans une table (QC_RES) en filtrant les données sur deux critères (TEST et QC_Lot)
Je dois placer le résultat de ce SELECT dans une autre table (QC_Val) dans le champs ETCalc correspondant à ce test et ce lot (dans QC_Val: Test et QCLot)
et ce pour chaque test d'ou la première requête.
Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
       Query.Active:=False;
                Query.SQL.Clear;
                Query.SQL.Add('SELECT TestName FROM Tests');                                   // sélection du nom du test dans la liste des tests
                Query.Active:=true;
                Query.First;
                while not Query.eof do begin                                                              //boucle de calcul pour chaque test
                      if (Query.FieldByName('TestName').AsString)<>'' then
                      begin
                          Memo3.Lines.Append(Query.FieldByName('TestName').AsString);     // juste pour vérifier que la requète 1 renvoie qq chose: oui (1 ligne)
                          //Update
                          Query2.Active:=False;
                          Query2.SQL.Clear;
                          Query2.SQL.Add('UPDATE qc_val SET ETCalc = (SELECT STDDEV(result) FROM qc_res WHERE qc_lot=33501102 AND Test= '+(Query.FieldByName('TestName').AsString));
                          Query2.Active:=true;
                      end;
                Query.Next;
                end;

J'ai tenté de multiples variantes aussi avec des JOIN sans meilleurs résultat :?
Le système me retourne: Error Syntax; check the manual MySQL server version; je suis en 5.6.12 et ne peux pas changer pour une plus récente.
:arf:
Qui peux m'aider?
Merci d'avance:ccool:

25/07/2014, 17h09
SergioMaster

Bonjour,

Sans connaitre mySQL , je vois au moins 2 erreurs

1- L'update se fait sur toute la table QC_val ce qui me parait étrange , il doit certainement manquer un WHERE quelque part (condition sur QC_Val)
2- un Update ne renvoi pas de résultat donc Query2.ExecSQL; (ou Execute ) <<< ne sachant pas de quel set de composants il s'agit et pas Open

Autre questionnement : Test est numérique (auquel cas ok) ou string ?

il doit certainement y avoir une solution plus "élegante" au niveau de la Query évitant un While not EOF do sur la table Test
mais dans ce genre de problème il est bon d'avoir , en premier lieu, la description des tables (Test,QC_val,qc_res) en cause et leur(s) relation(s)

SergioMaster a déjà donner pas mal d'info

utilise des paramètres pour la lisibilité
Mon MySQL date un peu !

J'ai repris ton SQL et j'ai juste mis les ( ) et les tests à l'endroit que me semble logique par rapport au code que tu as fourni !
Sans la structure de la DB comme le fait remarquer SergioMaster, on joue à la loterie
Code:

1 2 3 4 5 6 7 8 9 10 11 Query2.SQL.Add( ' UPDATE qc_val '+ ' SET ETCalc = ( ' + ' SELECT STDDEV(qc_res.result) ' + ' FROM qc_res ' + ' WHERE Test = :pTestName ' + ' ) ' ' WHERE qc_lot = :pLot ' ); Query2.ParamByName('pLot').AsString := '33501102'; // Toujours le même ??? ça ne va pas ! Query2.ParamByName('pTestName').AsString := Query.FieldByName('TestName').AsString
Gros avantage, tu peux définir le SQL une seule fois, faire un Prepare
Puis à chaque itération fournir de nouvelles valeurs pour le Execute

De fait, j'ai des résultats dans la table de destination, uniquement pour le lot choisi mais la même valeur partout???
Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
      Query.Active:=False;
                Query.SQL.Clear;
                Query.SQL.Add('SELECT TestName FROM System.Tests');
                Query.Active:=true;
                Query.First;
                while not Query.eof do begin
                      if (Query.FieldByName('TestName').AsString)<>'' then
                      begin
                          Memo3.Lines.Append(Query.FieldByName('TestName').AsString);
 
                          Query2.SQL.Add(
                          ' UPDATE qc_val '+
                          ' SET ETCalc = ( ' +
                          '   SELECT STDDEV(qc_res.result) ' +
                          '   FROM qc_res ' +
                          '   WHERE Test = :pTestName ' +
                          ' ) WHERE qc_lot = :pLot ' );
 
                          Query2.ParamByName('pLot').AsString := '33501102'; // Toujours le même ??? ça ne va pas !
                          Query2.ParamByName('pTestName').AsString := Query.FieldByName('TestName').AsString;
                          //Query2.active:=True;      ???
                      end;
                Query.Next;

Je continue de chercher...

25/07/2014, 20h27
GoustiFruit

Au cas où... dans ta première requête il manque une parenthèse à la fin, d'où probablement l'erreur de syntaxe...
25/07/2014, 21h59
PhilLU

Citation:

Envoyé par GoustiFruit

Au cas où... dans ta première requête il manque une parenthèse à la fin, d'où probablement l'erreur de syntaxe...

J'ai beau chercher, je ne vois pas où!?!

Avec ce code, j'obtient bien des valeurs (toutes mes mêmes pour tous les tests d'un même lot) :weird:
Le système me retourne aussi l'erreur: Query2: Curseur non renvoyé par query :calim2:

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
Query.Active:=False;
                Query.SQL.Clear;
                Query.SQL.Add('SELECT TestName FROM System.Tests');
                Query.Active:=true;
                Query.First;
                while not Query.eof do begin
                      if (Query.FieldByName('TestName').AsString)<>'' then
                      begin
                          Memo3.Lines.Append(Query.FieldByName('TestName').AsString);
                          Query2.SQL.Add(
                          ' UPDATE qc_val '+
                          ' SET ETCalc = ( ' +
                          '   SELECT STDDEV(qc_res.result) ' +
                          '   FROM qc_res ' +
                          '   WHERE Test = :pTestName ' +
                          ' ) WHERE qclot = :pLot ' );
 
                          //Query2.ParamByName('pLot').AsString := '40411101'; // Toujours le même ??? ça ne va pas !
                          Query2.ParamByName('pLot').AsString := (sellot.items[sellot.itemIndex]); //remplacé ligne précédente par combobox de choix
                          Query2.ParamByName('pTestName').AsString := Query.FieldByName('TestName').AsString;
                          Query2.active:=True;
                      end;
                Query.Next;
                end;

:arf: :help:
Merci pour votre aide!!!
;)

26/07/2014, 10h20
SergioMaster

Bonjour,

Pas ~~Query2.Active:=True~~ mais Query2.Execute ; comme shailetroll et moi-même te l'avons indiqué
26/07/2014, 13h00
GoustiFruit

Citation:

Envoyé par PhilLU

J'ai beau chercher, je ne vois pas où!?!

Code:

Query2.SQL.Add('UPDATE qc_val SET ETCalc = (SELECT STDDEV(result) FROM qc_res WHERE qc_lot=33501102 AND Test= '+(Query.FieldByName('TestName').AsString));

Code:

Query2.SQL.Add('UPDATE qc_val SET ETCalc = (SELECT STDDEV(result) FROM qc_res WHERE qc_lot=33501102 AND Test= '+(Query.FieldByName('TestName').AsString) + ')');

Voici mon code qui roule mais sans query imbriqués:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
          Query.Active:=False;
          Query.SQL.Clear;
          Query.SQL.Add('UPDATE qc_val SET ETCalc = ( SELECT STDDEV(qc_res.result) FROM qc_res Where Test ='
          + quotedStr(seltest.items[seltest.itemIndex])
          +'AND QC_Lot ='+quotedStr(sellot.items[sellot.itemIndex])
          +') Where Test ='
          + quotedStr(seltest.items[seltest.itemIndex])
          +'AND QCLot ='+quotedStr(sellot.items[sellot.itemIndex])
          +'');
          Query.ExecSQL();

:merci:pour vos conseils!