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 ) .

[akli_agha]

Bonsoir,

Code :

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

1
2
 
SELECT * FROM GETCA

Cette synthaxe fonctionne avec un TZQuery et non avec un TZStoredProc. !
Ce dernier a besoin, comme arguments, le nom de la SP et les paramètres d'entrées et de sorties.

Tous ces params étant fournis :
- 1ére exécution tout baigne !
- 2éme exécution, Message : Valeurs des paramètres en entrées absents !
Idem pour les 3éme, 4éme ... fois.

Bon !

PS : Il sert à quoi les SUSPEND ???

Merci.

[TryExceptEnd]

Et si le probleme venait du composant (TZStoredProc) que tu utilise ?

[SergioMaster]

Cette synthaxe fonctionne avec un TZQuery et non avec un TZStoredProc. !
Ce dernier a besoin, comme arguments, le nom de la SP et les paramètres d'entrées et de sorties.

Je ne connais pas ces composants TZ.... (Zeos ?) donc j'aurais tendance à rejoindre TryExceptEnd

PS : Il sert à quoi les SUSPEND ???

Dans le cas de ta procedure strictement à rien c'est d'ailleurs peut-etre la le probléme . pour simplifié je dirait que SUSPEND sert lorsque la procédure renvoi un ensemble de données . pour reprendre ton cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
CREATE PROCEDURE GETCA (
     mydate date)
returns (
    myClient char(4),
    myca decimal(15,2))
AS
begin
   SELECT CLIENT,SUM(MTHT + MTTVA + MTTMB)
   FROM FENT
   WHERE DFACT<=:mydate
   GROUP BY CLIENT
   INTO myClient,myCA;
  suspend;
end^

retournerais tous les clients avec leur CA

PS . Non testé

[akli_agha]

Bonsoir,

Merci les gars !

Je pense, aussi, que ca vient du composant Zeos ! De toute facon j'ai contourné cet aléa avec un Query qui fonctionne correctement. Je fouinerai un plus dans le composant dés que j'ai un peu de temps.

Pour Sergio... concernant SUSPEND.
Dans la procédure suivante :

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
 
CREATE PROCEDURE GETCA (
     mydate date)
returns (
    myClient char(4),
    myca decimal(15,2))
AS
begin
   SELECT CLIENT, SUM(MTHT + MTTVA + MTTMB)
   FROM FENT
   WHERE DFACT<=:mydate
   GROUP BY CLIENT
   INTO myClient,myCA;
   SUSPEND;
end^

Si SUSPEND est omis, que se passera t-il ?

Merci.

[SergioMaster]

Autant pour moi
j'ai pris la peine de tester cette procédure le SUSPEND est bien nécessaire
par contre pour obtenir un resultat il faut bien faire

Code :

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

SELECT * FROM GETCA(ladate)

pour obtenir un ensemble de résultats

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
 
// nota j''ai un peu changer les noms pour faire le test
ALTER PROCEDURE GETCA (
    MYDATE Integer )
RETURNS (
    MYCLIENT Char(4),
    MYCA Numeric(15,2) )
AS
begin
  FOR SELECT F.CLIENT, SUM(F.MNT_TOT)
   FROM FACTURES F
   WHERE f.YM_FACTURE=:mydate
   GROUP BY CLIENT
   INTO myclient,myCA
  DO  BEGIN 
        SUSPEND;
      END
END^

oublier le SUSPEND ne renvoi rien du tout