utilisation de UPDATE dans un code

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:

---

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

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:

---

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:

---

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:

---

1 2 3 4 5 6

Query1.Active:=true; while not query1.EOF do begin Query2.execSQL ; // l'update Query1.Next; end;

---

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:

---

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

---

ADOQuery1:

Code:

---

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:

---

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

je pense que cela vient de l'erreur

Code:

---

1 2	AND code_annee=:anee AND

---

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

Attention

Citation:

---

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" :frenchy:) que tout les enregistrements devaient être modifiés

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

Code:

---

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:

---

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;

---

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

Dommage