Discussion :

[o_live]

Bonjour je débute,
j'essaie d'écrire une procédure stockée si nom article n'est pas trouve
alors je retourne une exception

Code :

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

1
2
3
4
CREATE EXCEPTION EXEPT_ART_VIDE 'article non existant';
 
DESCRIBE EXCEPTION EXEPT_ART_VIDE
'article vide';

par la suite dans la procédure stockée

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
SET TERM ^ ;
 
CREATE OR ALTER PROCEDURE TESTSELECT (
    id_art integer)
returns (
    nomarticle varchar(10))
as
declare variable nom_art varchar(10);
BEGIN
  /* PROCEDURE TEXT
  PROCEDURE TEST QUI RETOUNR UN  NOM ARTICLE EN FONCTION DE SON NUMERO
  exemple select nom article where id=1
 
  parametre entree :ID_ART
  parametre sortie NOMARTICLE
 
 
  */
 
    NOMARTICLE=''   ;
 
    SELECT NOM FROM ARTICLES
    WHERE ID=:ID_ART    /*:ID_ART PARAMETRE EN ENTRÉE*/
    --INTO NOMARTICLE; /* RETOUR DU RESUlTAT*/
       into nom_art;
 
   -- if ( NOMARTICLES==' ') then
     --   exeption TEST-EXEPT;
   begin
     if(nom_art<>'') then
 
        nomarticle=nom_art;
 
     else
 
        exeption EXEPT_ART_VIDE;
 
 
        --SUSPEND;
 
      end ;
 
END^
 
SET TERM ; ^
 
GRANT SELECT ON ARTICLES TO PROCEDURE TESTSELECT;
 
GRANT EXECUTE ON PROCEDURE TESTSELECT TO SYSDBA;

J'ai comme message d'erreur

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 34, char 18.
EXEPT_ART_VIDE.

-Qui peut me dire d'où viens cette erreur pourtant l'exception est compilée ?
-Comment afficher le contenu d'un variable dans Ibepert ?
-Ou trouver un bon manuel sur le langage DDL ?

Outils Ibexpert Free FireBird 1.5 windows Xp SP3


en vous remerciant par avance

[SergioMaster]

Bonjour

Qui peut me dire d'où viens cette erreur pourtant l'exception est compilée

il me semble qu'il y a une bête erreur d'orthographe

Code :

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

1
2
 
        exception EXEPT_ART_VIDE;

Ou trouver un bon manuel sur le langage DDL ?

je pense que tu voulais dire PSQL plutôt que Data Definition Language, pour cela je vais souvent ici

[o_live]

bonjour et merci

j'ai modifie la procedure

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
28
29
30
31
32
33
34
35
36
37
38
CREATE OR ALTER PROCEDURE TESTSELECT (
    id_art integer)
returns (
    nomarticle varchar(10))
as
declare variable nom_art varchar(10);
BEGIN
  /* PROCEDURE TEXT
  PROCEDURE TEST QUI RETOUNR UN  NOM ARTICLE EN FONCTION DE SON NUMERO
  EXEMPLE SELECT NOM ARTICLE WHERE ID=1
 
  PARAMETRE ENTREE :ID_ART
  PARAMETRE SORTIE NOMARTICLE
 
 
  */
 
    NOMARTICLE=''   ;
 
    SELECT NOM FROM ARTICLES
    WHERE ID=:ID_ART    /*:ID_ART PARAMETRE EN ENTRÉE*/
    INTO NOM_ART;
 
    SUSPEND;
 
 
    IF (NOM_ART<>'') THEN
 
 
        NOMARTICLE=NOM_ART    ;  /* RETOUR DU RESULTAT*/
 
    ELSE
 
        EXCEPTION EXEPT_ART_VIDE;   /* ON LANCE    L'EXECPTION   */
 
 
 
END^

L'exection s'execute mais dans l'autre cas j'arive pas a lire l'enregistrement
je ne comprend pas


Existe t'il un moyen d'afficher la valeur de contenu de variable
comme en php avec un echo ?

comment vous debbuger vos procedure ?

cela me serait utile

merci


Outils Ibexpert Free FireBird 1.5 windows Xp SP3

[SergioMaster]

Normal , le suspend doit être placé après le test .

de même je aurais plutôt écrit ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
CREATE OR ALTER PROCEDURE TESTSELECT (
    id_art integer)
returns (
    nomarticle varchar(10))
AS
 
    SELECT NOM FROM ARTICLES
    WHERE ID=:ID_ART    /*:ID_ART PARAMETRE EN ENTRÉE*/
    INTO :NOMARTICLE;
    IF (:NOMARTICLE IS NULL) THEN  EXCEPTION EXEPT_ART_VIDE;  
    SUSPEND;
END^

pour le deboguage , aucun moyen simple, de plus je n'utilise pas IBExpert mais Flamerobin . Pour une procédure aussi simple je fais un simple SELECT * from TESTSELECT('XX') .
Nota ce que je n'ai pas fait ici, le code indiqué reste à vérifier

[makowski]

en l'occurence c'est plutot :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
CREATE OR ALTER PROCEDURE TESTSELECT (
  ID_ART Integer)
 returns (
  NOMARTICLE VarChar(10))
AS
BEGIN 
    SELECT NOM FROM ARTICLES
    WHERE ID=:ID_ART    /*:ID_ART PARAMETRE EN ENTRÉE*/
    INTO NOMARTICLE;
    IF (NOMARTICLE IS NULL) THEN  EXCEPTION EXEPT_ART_VIDE;  
    SUSPEND;
END
 ^

[o_live]

Je vous remercie

J'aurais d'autres question a vous poser .....

merci