A nouveau syntaxe update imbriqués

Version imprimable

Décidément, je sèche avec les requêtes imbriquées :weird:
:help:
Voici le cas qui me préoccupe:
J'ai deux tables qui contiennent respectivement
Table1: QC_Res champs: Test, QC_lot, Result, Flag
Table2: QC_Val Champs: Test, QCLot, Mean, ETCalc
Tout est en VARCHAR!!!

Je souhaite mettre un Flag à "2SD" quand le Flag est vide et que le Result<Mean-(2*ETCalc)
pour le lot et le test correspondant bien sûr ;)

Voici mon 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
24
25
26
27
28
29
30
31
 
                Query.Active:=False;
                Query.SQL.Clear;
                Query.SQL.Add('SELECT Test, Result, QC_Lot, Flag FROM qc_res');
                Query.Active:=true;
                Query.First;
                while not Query.eof do
                      begin
                      Query2.Active:=False;                                    // query2
                      Query2.SQL.Clear;
                      Query2.SQL.Add('UPDATE qc_res SET Flag = '+quotedStr('-2SD')
                      +'WHERE '+(Query.FieldByName('Result').AsString)
                      +'< Mean FROM QC_Val'  );
                        //  +'(WHERE '
                          +'(WHERE Test LIKE '+Query.FieldByName('Test').AsString       //de query
                          //  message d'erreur de la ligne ci-dessus: Opérateur pas applcable à ce type d'opérande
                          // j'ai aussi tenté le "=" mais pas mieux :-(
                          +'AND'
                          +'Lot LIKE '+Query.FieldByName('QC_Lot').AsString
                          +')'
                      +'- 2*ETCalc FROM QC_Val '
                          +'(WHERE '
                          +'Test = '+Query.FieldByName('Test').AsString
                          +'AND'
                          +'Lot = '+Query.FieldByName('QC_Lot').AsString
                          +')'
                      +'AND  Flag FROM QC_Res = '')
                      +')');
                      Query2.ExecSQL();
                      end;
                Query.Next;

Avant de voir à la ponctuation, qui peux me dire si au moins la structure est correcte?
Bien sûr le plaisir de la ponctuation est ensuite une autre paire de manches :calim2:
:merci:pour vos lumières d'experts :ccool:

29/07/2014, 13h43
PhilLU

... oui, j'ai essayé le LIKE et le = mais pas mieux :calim2:
29/07/2014, 17h14
Andnotor

Ce sont des chaînes de caractères, donc à mettre entre apostrophes ;)
Pour une recherche partielle par LIKE, il faut faire suivre le texte d'un %.

Code:

... where Champ LIKE 'texte%'

Bonjour,

Décidément tu sembles fâché avec les requêtes paramétrées !! et le quotedStr tu ne l'utilises que rarement !

ensuite , première erreur ici

Code:

+'WHERE '+(Query.FieldByName('Result').AsString)

il manque le nom du champ

mais surtout voici quelques points qui me choquent :
1-

Citation:

Tout est en VARCHAR!!!

Comment une moyenne et un écart type (si j'ai bien compris) peuvent-ils être en varchar
2- c'est ta sélection des enregistrements de Query qui ne va pas (voir le SQL de la procedure)
3- Il ne te viens pas à l'esprit de récupérer ton SQL en mode debug et vérifier ce texte directement avec un GUI ?
4- pourquoi ne pas passer par des procedures mySQL ? (note , cette remarque s'applique également à ton post précédent)

en gros (Syntaxe Firebird à adapter)
Code:

1 2 3 4 5 6 7 8 9 CREATE PROCEDURE MAPROC DECLARE VARIABLE STEST VARCHAR(nn); // pour le test selectionné DECLARE VARIABLE SLOT VARCHAR(nn); // pour le lot selectionné begin FOR SELECT R.Test, R.QC_Lot FROM qc_res R JOIN QC_val v ON R.TEST=V.TEST AND R.QC_LOT=V.QCLOT WHERE R.Flag is NULL AND R.Result<V.MEAN-(2*V.ETCALC) INTO :STEST,:SLOT DO UPDATE QC_VAL SET FLAG='-2SD' WHERE TEST=:STEST AND QC_LOT=:SLOT; end;
et du coup une simple exécution de la procédure via le programme au lieu de deux query , d'une boucle et de la construction de SQL (query2)
sans parler de l'avantage de faire exécuter ça sur le serveur en une seule transaction

30/07/2014, 21h51
PhilLU

Merci Sergiomaster!
concernant ta remarque:

+'WHERE '+(Query.FieldByName('Result').AsString)
il manque le nom du champ
C'est une valeur renvoyée par le QUERY du début:
Query.SQL.Add('SELECT Test, Result, QC_Lot, Flag FROM qc_res');

Concernant le varchar je m'en doutais et je vais corriger ça tout de go, mais j'avais une erreur avant ce traitement.

En fait ma question principale est de savoir si 2 query imbriqués sont possibles?
Ici Query et Query2
Query first and next permettant de récupérer les valeurs: Test, Result, QC_Lot, Flag
à chaque boucle
Query2 récupère ces valeurs et les compare à d'autres valeurs via un calcul mean-2*SD pour faire un update conditionnel de flag
ou faut-il utiliser un LIMIT 1 OFFSET i pour récupérer ces données?

Merci en tout cas pour tes conseils :ccool:

Je tente une autre approche, mais pas mieux :weird:
le code=

Code:

1
2
3
4
5
6
7
8
9
10
11
 
j:=0;
        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 LIMIT 1 ,'+quotedStr(intToStr(j)));
                Query.Active:=true;
                memo1.Lines.Append(IntToStr(j)+' '+Query.FieldByName('test').AsString+' '+FloatToStr(Query.FieldByName('Result').Asfloat));
                j:=j+1;
        end;

me renvoie une erreur "near ''0'' at line 1"
j'utilise déjà j:=i pour ne pas utiliser le compteur lui-même mais pas mieux non-plus :calim2:
:pastaper:
:help:

Merci encore ;)

Bonjour,

j'avais bien compris ton traitement , ce qui n'est pas bon c'est ta manière de le faire , (encore moins dans ton dernier jus)
je n'ai pas bien compris la structure des tables et encore moins leurs relations exacte

Et après avoir fait une rapide recherche mysql , si j'ai bien vu qu'il existait des procédures , je n'ai par contre pas vu l'équivalent de FOR SELECT ... DO

donc si je reprends le code de ton premier post , voici ce qui me paraît le plus proche de la demande
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 r.Test, r.QC_Lot,R.result FROM qc_res r'); Query.SQL.Add('JOIN QC_val v ON R.TEST=V.TEST AND R.QC_LOT=V.QCLOT'); // jointure avec la table QCVal Query.SQL.Add('WHERE R.Flag IS NULL AND R.Result<V.MEAN-(2*V.ETCALC)'); // test des conditions Query.Active:=true; // Query.First; inutile Query2.SQL.Text:='UPDATE QC_VAL SET FLAG='-2SD' WHERE TEST=:STEST AND QC_LOT=:SLOT AND RESULT=:SR' ; // c'est bien les requêtes paramètrées Query2.SQL.Prepare; // pas obligatoire mais tout dépend des composants d'accès while not Query.eof do begin Query2.ParamByName('STEST').asString:=Query.FieldByName('TEST').asString; Query2.ParamByName('SLOT').asString:=Query.FieldByName('QC_LOT').asString; Query2.ParamByName('SR').asFloat:=Query.FieldByName('RESULT').asFloat; Query2.ExecSQL(); Query.Next; end;
Citation:

+'WHERE '+(Query.FieldByName('Result').AsString)
C'est une valeur renvoyée par le QUERY du début:
Query.SQL.Add('SELECT Test, Result, QC_Lot, Flag FROM qc_res');

OUI mais il n'empêche , la clause WHERE c'est un Champ+une condition+une valeur donc selon ton SQL il manquerait WHERE RESULT=Query.FieldByName('RESULT').as .....

Citation:

faut-il utiliser un LIMIT 1 OFFSET i pour récupérer ces données?

non , tu n'a pas compris la notion de LIMIT

31/07/2014, 10h55
PhilLU

Salut Sergiomaster et merci pour ces explications, je teste ça maintenant :D
Par contre au sujet de LIMIT:

Citation:

faut-il utiliser un LIMIT 1 OFFSET i pour récupérer ces données? (et dans MySQL remplacer OFFSET par ,)
non , tu n'a pas compris la notion de LIMIT

Il me semble que LIMIT 1,i permet de lire un record à partir de i
(et par exemple LIMIT 5, 10 permet de lire 5 record à partir de l'enregistrement 10)
ou je me trompe?
Donc le but de ma boucle était de lire à chaque itération le record suivant
...mais bon, je n'y suis peut-être pas?!?

Encore merci!!! :D
PhilLu
31/07/2014, 11h38
Andnotor

Citation:

Envoyé par PhilLU

par exemple LIMIT 5, 10 permet de lire 5 record à partir de l'enregistrement 10)

Non, ça retourne 10 enregistrements en partant du 6ième (indice à base 0) et pourquoi quotedStr(intToStr(j)), ce sont des entiers :koi:
Peut-être relire Syntaxe de SELECT.

Voilà SergioMaster, j'ai testé après avoir changé qq paramètres de ma DB:
Mean et ETCalc de QC_Val sont en float (et plus en Varchar)
Flag de QC_Res est en VarChar(5) avec défault NULL
et le code (corrigé pour le quotedstring) est:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Query.Active:=False; Query.SQL.Clear; Query.SQL.Add('SELECT r.Test, r.QC_Lot,R.result FROM qc_res r'); Query.SQL.Add('JOIN QC_val v ON R.TEST=V.TEST AND R.QC_LOT=V.QCLOT'); // jointure avec la table QCVal Query.SQL.Add('WHERE R.Flag IS NULL AND R.Result<V.MEAN-(2*V.ETCALC)'); // test des conditions Query.Active:=true; // Query.First; inutile //modifié //Query2.SQL.Text:='UPDATE QC_VAL SET FLAG='-2SD' WHERE TEST=:STEST AND QC_LOT=:SLOT AND RESULT=:SR' ; //en Query2.SQL.Text:='UPDATE QC_VAL SET FLAG='+quotedStr('-2SD') +'WHERE TEST=:STEST AND QC_LOT=:SLOT AND RESULT=:SR' ; // c'est bien les requêtes paramètrées //Query2.SQL.Prepare; // pas obligatoire mais tout dépend des composants d'accès ?Identificateur non déclaré :'Prepare' while not Query.eof do begin Query2.ParamByName('STEST').asString:=Query.FieldByName('TEST').asString; Query2.ParamByName('SLOT').asString:=Query.FieldByName('QC_LOT').asString; Query2.ParamByName('SR').asFloat:=Query.FieldByName('RESULT').asFloat; Query2.ExecSQL(); Query.Next; end;
...mais après avoir forcé qq résultats très bas, rien ne se passe, les Flags ne sont pas mis à jour :pleure:
En fait on n'entre jamais dans la boucle: while not Query.eof do
J'ai tenté d'activer Query.first, mais pas mieux :calim2:
J'ai aussi tenté d'activer le: Query2.SQL.Prepare; mais Delphi me renvoie: Identificateur non déclaré :'Prepare'
Je pense qu'on touche au but, mais ce doit être un détail qui m'échappe (comme d'hab ;)
Si tu vois qq chose de louche dans mon code et pourquoi ou comment activer prepare ce serait super te ta part :ccool:
déjà:merci:pour ton aide!!!

31/07/2014, 13h07
PhilLU

Citation:

Envoyé par Andnotor

Non, ça retourne 10 enregistrements en partant du 6ième (indice à base 0) et pourquoi quotedStr(intToStr(j)), ce sont des entiers :koi:
Peut-être relire Syntaxe de SELECT.

Ouf, oui, autant pour moi, j'ai inversé :pastaper:
Merci AndNotOr!!!:ccool:

Citation:

Envoyé par PhilLU

Flag de QC_Res est en VarChar(5) avec défault NULL
et le code (corrigé pour le quotedstring) est:

au temps pour moi , j'avais vérifié le SQL via un GUI mais pas avec Delphi
quant au prepare , une faute de frappe c'est Query2.Prepare et pas Query2~~.SQL~~.Prepare

Citation:

...mais après avoir forcé qq résultats très bas, rien ne se passe, les Flags ne sont pas mis à jour :pleure:
En fait on n'entre jamais dans la boucle:

il faudrait tester le SQL de Query et vérifier que ce dernier renvoie un résultat , ce qui n'est pas le cas à priori

pour avoir de l'aide plus 'optimale' il aurait fallu nous proposer dès le début une code SQL de création des tables
Code:

1 2 3 4 5 6 7 CREATE TABLE QC_RES ( .....// indiquer la structure ); CREATE TABLE QC_VAL ( ..... // indiquer la structure );
et pour faire le test il faudrait un jeu d'essai genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 INSERT INTO QC_RES (TEST,QC_LOT,RESULT) VALUES ('1','2',10); INSERT INTO QC_RES (TEST,QC_LOT,RESULT) VALUES ('1','2',9); INSERT INTO QC_RES (TEST,QC_LOT,RESULT) VALUES ('1','2',11); INSERT INTO QC_RES (TEST,QC_LOT,RESULT) VALUES ('1','2',9); INSERT INTO QC_RES (TEST,QC_LOT,RESULT) VALUES ('1','2',11); INSERT INTO QC_RES (TEST,QC_LOT,RESULT) VALUES ('1','2',10); INSERT INTO QC_RES (TEST,QC_LOT,RESULT) VALUES ('1','2',1); INSERT INTO QC_RES (TEST,QC_LOT,RESULT) VALUES ('1','2',2); INSERT INTO QC_VAL (TEST,QCLOT,MEAN,ETCALC) VALUES ('1','2',10,1); // valeur Mean et ETCalc au pif
je n'ai pas le temps aujourd'hui (départ en vacances oblige) de créer ces deux tables et le jeu d'essai pour vérifier via GUI la syntaxe de Query mais logiquement
la query devrait retourner 2 enregistrements
En résultat , après le programme , on devrait obtenir 2 enregistrement ceux avec les Resultats 1 et 2 (les derniers) indiquant '-2SD'

en faisant ce jeu d'essai , je m’aperçois que si QC_RES permet des doublons TEST+QC_LOT+RESULTAT , on peut améliorer query en rajoutant un DISTINCT

Code:

Query.SQL.Add('SELECT DISTINCT r.Test, r.QC_Lot,R.result FROM qc_res r');

ceci étant je ne trouve pas très pro l'approche de QC_RES, je lui aurais bien ajouter un champ auto-incrémenté ;)

31/07/2014, 17h07
PhilLU

Merci SergioMaster :D
Je n'ai pas 'Query2.Prepare;' mais 'Query2.PrepareStatement;'
... mais pas mieux :calim2:

Pour les doublons, pas de risque, je ne peux reçevoir qu'un test par lot à la fois et ensuite le processus tourne.
Je compte aussi mettre un flag 'OK' quand auncun -2SD ou -3SD ... n'est ajouté, donc le Flag sera alors <> de '' et ne risque pas d'être traité ;)

Merci pour tes conseils!
Et très bonnes vacances!!!:yaisse2:
02/08/2014, 12h07
SergioMaster

Bonjour,

Prepare est pour le composant TQuery (donc utilisé avec BDE) , s'il existe aussi avec les composants IBExpress,ZEOSDBO et certainement d'autres sets de composants d'accès aux base de données
c'est PrepareStatement qui est son équivalent avec DBExpress
Il semblerait que pour AdoQuery , il suffirait de mettre sa propriété prepared à True (n'utilisant ces derniers , je ne peux confirmer) .

Il est bon de toujours indiquer le composant utilisé