Discussion :

[nassoft]

Re salu
j'ai essayé de cree cette procedure stockée qui normalement me rend par expl :00005 si c 5,00046 si c 46 etc...
Mais voila on me dit lorsque j'essaye de la creer que ce soit sousdelphi ou directement sous firebird
Erreur au niveau du second if....
J'ai tout essayé les points vitgules des ends et begin mais nada toujours l'erreur SVP si qq peut m'eclaier ca m'aderai bcp car j'ai vraiment besoin de son resultat
Merci d'avance



CREATE PROCEDURE TRANS(
STR VARCHAR(100) CHARACTER SET WIN1251)
RETURNS(
LEN INTEGER,
TRANS VARCHAR(100) CHARACTER SET WIN1251
)

AS

DECLARE VARIABLE pat VARCHAR(100);

BEGIN
len = null;
IF (str IS NULL) THEN EXIT;

pat = '';
len = 0;

WHILE (NOT str LIKE pat) DO
BEGIN
pat = pat || '_';
len = len + 1;
END

/*Mon code ajoutée et l'erreur se trouve a ce niveau*/
if len=1 then
TRANS = '0000'||STR;
if len=2 then
TRANS = '000'||STR;
if len=3 then
TRANS = '00'||STR;
if len=4 then
TRANS = '0'||STR;
END
END

[dd_garion]

A tester,

Ne dois-tu pas mettre les conditions entre parenthèse ?

[nassoft]

Apaprament l'erreur se trouvait au niveau des parenthese pour les contenu du if ,j'ai compltement oublié de faire attention,
maintenant j'aimerai pouvoir recupere le resultat de cette procedure et l'executer dans l'insert cad:
dans le delphi je ferai maprocedure(edit1.text) par expl:

insrti into ...() values( Resultat de ma procedure,...)
dois utiliser une variable juste avannt et mettre var = execute procedure ...???
Merci

[dd_garion]

Tu devrais pouvoir faire un truc du genre :

Code :

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

1
2
 
ma_variable := myStoredProc.Params[1].value;

C'est un bour de code écrit avec le bde, mais c'est similaire avec ibexpert et ado
param1 étant le paramètre de sortie.