Discussion :

[akli_agha]

Bonsoir,

Je suis novice en FB. J'ai le problème suivant :

J'ai écris uns procédure stockée qui tourne bien quand je la lance la 1ère fois. Cependant, dés que je l'exécute les fois suivantes j'ai un message d'erreur m'indiquant que les paramètres de cette procédure sont manquants !

Voici le code D5, XP, FB Embeded 1.5:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TfrmFact.GetCA
var
  totCA : Currency;
begin
  mySP_CA.ParamByName('MYCLIENT').AsString := edClient.Text;
  mySP_CA.ParamByName('MYDATE').AsDateTime := edDate.Date;
  mySP_CA.StoredProcName := 'GETCA';
  mySP_CA.ExecProc;
  totCA := mySP_CA.ParamByName('MYCA').asCurrency;
  mySP_CA.Close;
end;

Merci à vous.

[qi130]

Que cherches-tu à faire avec ce code ?

Code :

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

totCA := mySP_CA.ParamByName('MYCA').asCurrency;

et quel est le code de la procédure ?

[akli_agha]

Au fait, je récupère le Chiffre d'affaire d'un client à une date donnée.
Et voici le code de la SP.

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
 
SET TERM ^ ;
 
CREATE PROCEDURE GETCA (
    myclient char(4),
    mydate date)
returns (
    myca decimal(15,2))
as
begin
   SELECT SUM(MTHT + MTTVA + MTTMB)
   FROM FENT
   WHERE CLIENT=:MyClient AND DFACT<=:mydate
   into myCA;
  suspend;
end^
 
SET TERM ; ^

Et merci.

[qi130]

As-tu essayé avec

Code :

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

totCA := mySP_CA.FieldByName('MYCA').asCurrency;

ou encore

Code :

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

totCA := mySP_CA.Field[0].value;

[akli_agha]

Salut,

En fait le problème ne réside pas à ce niveau ! Il se trouve que quant j'exécute les fois suivantes la procédure stockée, elle ne réponds pas. J'ai un message d'informant que je n'ai pas fourni les paramètres requis !

D5, ZEOS, XP.

J'ai résolu le pépin en utilisant un TZQuery mais je souhaiterais comprendre le pourquoi de la chose !

Merci quand même.

[SergioMaster]

pour moi c'est le execproc qui est incorrect , il faut plutot faire

Code :

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

1
2
 
SELECT * FROM GETCA

comme s'il s'agissait d'une table renvoyant un ensemble d'enregistrement (SUSPEND ) .
ceci dit puisque la procedure ne semble pas envoyé plus d'un enregistrement c'est inutile , tout comme le SUSPEND (si encore il y avait un group by ) .