Discussion :

[lepeule]

Bonjour à tous
je travaille sous delphi 5 mais pas calé .
comment faire pour utiliser la presente requête dans mon code delphi SVP? je sais pas comment faire
voici requête :

Code sql :

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

1
2
3
4
5
6
UPDATE MOYEN_ELEV_TRIM
       SET MOYENNE_ANNUELLE=(select SUM(MOYENNE_TRIM) / 3  from MOYEN_ELEV_TRIM  where matricule_elev=:matri and  code_annee=:ane and   num_classe=:class
)
where  matricule_elev=:matri
and      code_trim=:trim and  code_annee=:ane
and      num_classe=:class

merci

[SergioMaster]

le plus simple :
poser un TQuery sur la form
mettre le texte de la requête dans la propriété
et définir le paramètres

ensuite pour le code :

Code :

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

1
2
3
4
5
Query.parambyname('matri').asString:=matri.text;
Query.parambyname('tri').asInteger:=tri.value;
Query.parambyname('ane').asInteger :=Ane.value; 
Query.parambyname('Class').asString:=Class.text;
Query.ExecSQL;

PS. ne sachant pas comment les valeurs des paramètres sont récupérés , ni leur type , ceci n'est qu'un exemple

Dans le cas ou ces valeurs viendrait d'un datasource la rédaction serait encore plus simple :

2 Query , la premiere devenant le datasource de la seconde
QUERY1

Code :

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

SELECT MATRICULE_ELEV AS MATRI,CODE_ANNEE AS ANE,CODE_TRIM AS TRI,NUM_CLASS AS CLASS FROM MOYEN_ELEV_TRIM

Avec un TDatasource lié a celle-ci : Datasource1
Query2 la même que celle que tu as postée ( c'est pour cela que j'ai mis des alias de champs)
ne pas oublié d'indiquer la propriété Query2 datasource
pour tout mettre a jour le code sera :

Code :

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

1
2
3
4
5
6
Query1.Active:=true;
while not query1.EOF do
 begin
   Query2.execSQL ; // l'update 
   Query1.Next;
end;

[lepeule]

Bonjour

les valeurs récupérées viennent des datasources (classe, trimestre, annee à partir d'1 form "F_moyenne_gle"). l'utilisateur choisit la classe, le trimestre et l'année et cela à partir des DBLookupComboBox de la form en question.
exemple :
classe type string '01'
trimestre type integer 3
annee type integer 4

j'ai utilisé le 2eme cas que vous me conseillez mais ça marche toujours pas . j'ai l'erreur suivante :"objet parameter definit de manière incorect des info incohérente ou incomplète ont été fournies".
à l'excution j'ai l'erreur au niveau decette ligne dans le code :

Code :

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

F_moyenne_gle.ADOQuery34.execSQL ; // l'update.

ADOQuery1:

Code :

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

SELECT MATRICULE_ELEV AS MATRI,CODE_ANNEE AS ANE,CODE_TRIM AS TRI,NUM_CLASSE AS CLASS FROM MOYEN_ELEV_TRIM

ADOQuery34 (le 2eme query):

Code :

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

1
2
3
4
5
6
7
8
UPDATE MOYEN_ELEV_TRIM
SET MOYENNE_ANNUELLE=(select SUM(MOYENNE_TRIM)/3  from MOYEN_ELEV_TRIM WHERE matricule_elev=:matr  AND  code_annee=:anee AND   num_classe=:classe
)
 
where  matricule_elev=:matri
and      code_trim=:trim
and      code_annee=:ane
and      num_classe=:class

merci d'avance pour l'éclairage

[SergioMaster]

je pense que cela vient de l'erreur

Code :

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

1
2
  AND  code_annee=:anee AND

ici le paramètre est mauvais cela devrait être :ane

Attention

l'utilisateur choisit la classe, le trimestre et l'année et cela à partir des DBLookupComboBox de la form en question.

Dans mon premier Post , je supposais (bien que un de mes premiers principes pour anglophones avertis soit : "DON'T ASS/U/ME" ) que tout les enregistrements devaient être modifiés

cela implique que la première query doit elle aussi être paramétrée

Code :

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

1
2
SELECT MATRICULE_ELEV AS MATRI,CODE_ANNEE AS ANE,CODE_TRIM AS TRI,NUM_CLASSE AS CLASS FROM MOYEN_ELEV_TRIM 
WHERE CODE_ANNEE=:A AND NUM_CLASS=:C AND TRIMESTRE=:T

ce qui implique , avant l'open de Adoquery1 de renseigner les valeurs des paramètres (je ne connais pas très bien la syntaxe avec ADO)

mais le bloc programme doit se rapprocher de ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.BoutonClick(Sender: TObject);
begin
Adoquery1.ParamByName('A').asInteger:=DBLookupComboBoxAnnee.KeyValue;
Adoquery1.ParamByName('T').asInteger:=DBLookupComboBoxTrim.KeyValue;
Adoquery1.ParamByName('C').asInteger:=DBLookupComboBoxClasse.KeyValue
AdoQuery1.Active:=true;
While not Adoquery1.EOF do
  begin
    ADoquery34.ExecSQL; 
    Adoquery1.Next;
  end;
Adoquery1.Active:=False;  
end;

[lepeule]

Bonjour
j'ai toujours la même erreur au niveau de l'update (ADOQuery34.ExecSQL).
j'ai résolu le problème en créant 1 table et en procédant à une insertion dans ladite table (moyenne_annuelle). ça me fait trop de table mais ça résoud le problème

merci vive le forum

[SergioMaster]

Dommage