Pbm avec Stored Proc.

Version imprimable

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:

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.

28/09/2007, 21h05
qi130

Que cherches-tu à faire avec ce code ?

Code:

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

et quel est le code de la procédure ?

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:

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.

28/09/2007, 22h49
qi130

As-tu essayé avec

Code:

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

ou encore

Code:

totCA := mySP_CA.Field[0].value;
01/10/2007, 21h35
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.
02/10/2007, 07h50
SergioMaster
pour moi c'est le execproc qui est incorrect , il faut plutot faire
Code:

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 :? ) .
02/10/2007, 23h57
akli_agha
Bonsoir,
Code:

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.
03/10/2007, 00h47
TryExceptEnd

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

Citation:

Envoyé par akli_agha

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

Citation:

Envoyé par akli_agha

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:

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é

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:

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.

Autant pour moi :bug:
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:

SELECT * FROM GETCA(ladate)

pour obtenir un ensemble de résultats
Code:

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