bonjour,
j'utilise delphi7les procedures stockées et sql server.
ma requete en sql est la suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
proc moy_score_total
@mois datetime, @an datetime
as
select 
AVG (ECH_NORTON.Et_phy+ECH_NORTON.Et_ment+ECH_NORTON.Activite
+ECH_NORTON.Mobilite+ECH_NORTON.Incontinence) as Moyenne
from ech_norton
where datepart(month, date)= @mois and datepart(year, date) = @an
donc je veux une moyenne en choisissant dans un combobox le mois et dans un second l'année et mettre dans un edit la valeur de la moyenne. La requete marche en sql si je remplace @mois per par ex '10' et @an par '2004'.
En delphi, voici la procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
procedure TFMoy_Score.BitBtn1Click(Sender: TObject);
begin
     with datamodule2.ProcStoMoy_ScTot do
       begin
         active := false;
         parameters.ParamByName('@mois').Value := (CBMois.ItemIndex);
         parameters.ParamByName('@an').Value := (CBAn.ItemIndex);
         active := true;
         execproc;
       end;
 
     edit1.Text := inttostr(datamodule2.ProcStoMoy_ScTotMoyenne.Value);
C'est ici que ca coince : parameters.ParamByName('@mois').Value := (CBMois.ItemIndex);
Je ne sais pas si c'est assez clair, en tout cas merci d'avance