Discussion :

[PhilLU]

Encore une colle
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 :

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
       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.

Qui peux m'aider?
Merci d'avance

[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)

[ShaiLeTroll]

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 :

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

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

[PhilLU]

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 :

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
      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...

[GoustiFruit]

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

[PhilLU]

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ù!?!

[PhilLU]

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

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
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;

Merci pour votre aide!!!

[SergioMaster]

Bonjour,

Pas Query2.Active:=True mais Query2.Execute ; comme shailetroll et moi-même te l'avons indiqué

[GoustiFruit]

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

Code :

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

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 :

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

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

[PhilLU]

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

Code :

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

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();

pour vos conseils!