Discussion :

[yvesagha]

Bonsoir,

J'ai tenté de créer un procédure stcokée en runtime mai à l'exécution du script, je reçois le message suivant :

Invalid BLR Request at offset ... Bad Parameter Number.

Une idée ?? Merci.

Win XP SP2, FB 2.0, D7, Zeos 664

Voici le code :

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
19
20
21
22
23
24
25
26
27
 
SET TERM ^ ;
 
ALTER PROCEDURE GET_CA_CLIENT (
    ID_CLIENT INTEGER,
    DATE_CA DATE)
RETURNS (
    TOT_VENTE DECIMAL(15,2),
    TOT_CAISSE DECIMAL(15,2))
AS
begin
  SELECT SUM(MT_HT)
  FROM F_ENT
  WHERE ID_CLIENT=:ID_CLIENT AND
            DATE_FACT <=:DATE_CA
  into TOT_VENTE;
 
  SELECT SUM(MT_ESP)
  FROM F_ENT_CS
  WHERE ID_CLIENT=:ID_CLIENT AND
            DATE_FACT <=:DATE_CA
  into TOT_CAISSE;
 
  suspend;
end^
 
SET TERM ; ^

[Cl@udius]

Salut

Code :

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

1
2
3
4
  -- ...
  INTO :TOT_VENTE;
  -- ... 
  INTO :TOT_CAISSE;

Il manque les deux-points ( : ) devant tes paramètres output. Non ?

@+

[yvesagha]

Merci Cl@udius.

Ce script, je l'ai récupéré à partir du metadata fourni par l'utilitaire IBExpert ou tout baigne.
C'est en voulant recréer la base de données en runtime que j'ai eu ce message.

Ca ne marche pas quand on met les 2 points ':'. Je viens d'essayer !

Petite précision : Avec le seulement un seul select sur la première table, ça marche mais quand j'ajoute le 2éme select sur le 2éme table, l'erreur survient.

Merci.

[yvesagha]

Si j'ai bien compris, on ne peut pas créer ce genre de procédure par programme !
Ceci est pourtant utile pour créer ma BD à partir de son script.

Merci à vous.

[SergioMaster]

Bien qu'un peu tard , je peux enfin répondre a cette question .

Pour faire ce qui est demandé (créer une procedure voire même plusieurs) avec Zeos voici une démarche qui fonctionne

utiliser le composant ZSQLProcessor
mettre les propriétés delimiter := '^' et delimiterType:=dtsetTerm

pour le script , pas besoin de mettre de 'SET TERM'

ATTENTION , j'ai lu sur le forum qu'il ne fallait pas mettre de lignes blanches dans le corps d'une procédure ou autre (à priori un problème de pré-process)

donc dans ton cas :

le script devient :

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
19
20
ALTER PROCEDURE GET_CA_CLIENT (
    ID_CLIENT INTEGER,
    DATE_CA DATE)
RETURNS (
    TOT_VENTE DECIMAL(15,2),
    TOT_CAISSE DECIMAL(15,2))
AS
begin
  SELECT SUM(MT_HT)
  FROM F_ENT
  WHERE ID_CLIENT=:ID_CLIENT AND
            DATE_FACT <=:DATE_CA
  INTO TOT_VENTE;
  SELECT SUM(MT_ESP)
  FROM F_ENT_CS
  WHERE ID_CLIENT=:ID_CLIENT AND
            DATE_FACT <=:DATE_CA
  INTO TOT_CAISSE;
  suspend;
end^

bien sur , je n'ai pas tester exactement cette procédure , mais une identique .
nb . je ne sais pas si le suspend est utile dans ce cas , puisque ce n'est pas un ensemble de données qui est renvoyé

PS . je pense que les UIB sont plus adaptées pour ce genre de travail et n'aurait pas déclenché ce genre de problème

[TryExceptEnd]

nb . je ne sais pas si le suspend est utile dans ce cas , puisque ce n'est pas un ensemble de données qui est renvoyé

Et comment il récupère son résultat, sinon ?

[SergioMaster]

Et comment il récupère son résultat, sinon ?

par un simple

Code :

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

1
2
 
select * from GET_CA_CLIENT (ID_CLIENT, DATE_CA DATE)

je ne sais pas si c'est une bonne chose mais pour l'avoir maintes fois oublié (le suspend) je sais par expérience que cela fonctionne si seul un singleton est retourné

[TryExceptEnd]

Ça m'étonnerait que Firebird accepte cette syntaxe.
sans le SUSPEND, une procédure stockée n'est pas sélectionnable, seulement exécutable.
Avec le SUSPEND, une procédure stockée est sélectionnable et aussi exécutable mais dans ce cas elle retourne une seule ligne (le SUSPEND faisant office de EXIT).

[alanglet]

Bonjour,

Avec le SUSPEND, une procédure stockée est sélectionnable et aussi exécutable mais dans ce cas elle retourne une seule ligne (le SUSPEND faisant office de EXIT).

Si vous donnez à EXIT le même sens que dans une procédure Delphi ou Lazarus (Pascal), où il met fin à la procédure, c'est inexacte. Le SUSPEND émet le jeu de données prévu dans RETURN et attend qu'il soit récupéré avant d'émettre le jeu suivant s'il est compris dans une boucle ou au SUSPEND suivant, jusqu'à ce que soit atteinte la fin de la procédure.
Si la procédure a des paramètres de sortie (RETURN...), il doit y avoir un ou des SUSPEND, et ne doit pas avoir de SUSPEND s'il n'y a pas de paramètres de sortie. La requête doit donc être du type "select x,y from MaProcedure(a,b)" si la procédure retourne x et y, ou "execute procedure MaProcedure(a,b)" s'il n'y a pas de retour.

André

[TryExceptEnd]

Bonjour,
Si vous donnez à EXIT le même sens que dans une procédure Delphi ou Lazarus (Pascal), où il met fin à la procédure, c'est inexacte. Le SUSPEND émet le jeu de données prévu dans RETURN et attend qu'il soit récupéré avant d'émettre le jeu suivant s'il est compris dans une boucle ou au SUSPEND suivant, jusqu'à ce que soit atteinte la fin de la procédure.

Je persiste a dire que dans une procédure exécutable (EXECUTE PROCEDURE) le premier SUSPEND émet la ou les données prévues dans le RETURNS et arrête la procédure et dans ce cas précis le EXIT a le même effet que le SUSPEND.

Si la procédure a des paramètres de sortie (RETURN...), il doit y avoir un ou des SUSPEND, et ne doit pas avoir de SUSPEND s'il n'y a pas de paramètres de sortie. La requête doit donc être du type "select x,y from MaProcedure(a,b)" si la procédure retourne x et y, ou "execute procedure MaProcedure(a,b)" s'il n'y a pas de retour.

ET "execute procedure MaProcedure(a,b) RETURNING_VALUES :Variable" s'il y a retour.

[SergioMaster]

On dérive du sujet principal , qui était : une tentative de création d'un procédure via ZEOSDBO

Que de polémique pour un nota bene

[TryExceptEnd]

Je ne suis pas sur ce forum pour polémiquer mais rectifier une erreur que j'estime assez grave pour ne pas la laisser passer, il y a des lecteurs qui seraient induis en erreur et se retrouver bloqués pour des infos qu'ils croyaient justes.

[yvesagha]

Merci les amis.

Désolé SergioMaster mais je n'arrive pas à créer ma procédure.
J'ai toujours le fameux message Invalid BLR Request ... Bad parameter Number !
J'ai pourtant suivi la syntaxe que vous avez conseillée à la lettre.

[yvesagha]

All is Ok !

J'ai fini par avoir la solution d'un autre forum, celui de Zeos.

Au fait le composant TZSQLProcessor que j'utilise a une propriété ParamCheck qu'il fallait mettre à False.

C'était si simple mais j'ai galéré. Allez savoir !!!!

Merci à tous,

Yves.