Discussion :

[divail]

Je réalise une fonction en pl/sql sous Oracle et j'utilise un "case...when".
Voici la partie de mon 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
 
 
FUNCTION GET_LIBELLE_ATTRIBUT
(
 ID_ATTRIBUT IN NUMBER
) RETURN VARCHAR2
IS
  LIBELLE_ATTRIBUT VARCHAR2;
BEGIN
	 CASE ID_ATTRIBUT
	 	  when 1 LIBELLE_ATTRIBUT = 'libelle_1';
		  when 2 LIBELLE_ATTRIBUT = 'libelle_2';
	 end case;
RETURN(LIBELLE_ATTRIBUT);
END;

J'obtiens l'erreur suivante a cause du 'case':

Code :

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

1
2
3
4
5
 
 
PLS-00103: Symbole "CASE" rencontré à la place d'un des symboles suivants :
 
   begin declare exit for goto if loop mod null pragma raise...

D'avance merci.

[Yorglaa]

Salut,
à mon avis il manque les THEN

Code :

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

1
2
3
4
5
6
Case ...
    When ...
        THEN ...
    When ...
        THEN ...
End Case ;

au fait, attention, l'attribution de valeurs à une variable se fait avec := et pas juste =

[McM]

On peut faire un CASE hors d'un SELECT ?
Après vérif : OUI.

Pourquoi ne pas faire un IF ?

[divail]

J'ai modifié ma fonction mais j'ai toujours l'erreur...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
FUNCTION GET_LIBELLE_ATTRIBUT
(
 ID_ATTRIBUT IN NUMBER
) RETURN VARCHAR2
IS
  LIBELLE_ATTRIBUT VARCHAR2(100);
BEGIN
	 CASE ID_ATTRIBUT
	 	  when 1 then LIBELLE_ATTRIBUT := 'libelle_1';
		  when 2 then LIBELLE_ATTRIBUT := 'libelle_2';
	 end case;
RETURN(LIBELLE_ATTRIBUT);
END;

Par ailleurs, j'aimerais utiliser un case plutot qu'un if puisque j'aurais pas mal de valeurs disctinctes et que je trouve cela plus propre.

[pifor]

Il faut une clause ELSE obligatoire. Et il faut aussi avoir Oracle 9i.
Est-ce le cas ?

[Yorglaa]

et si tu essayes comme ceci :

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
FUNCTION GET_LIBELLE_ATTRIBUT 
( 
 ID_ATTRIBUT IN NUMBER 
) RETURN VARCHAR2 
IS 
  LIBELLE_ATTRIBUT VARCHAR2(100); 
BEGIN 
    CASE 
        when ID_ATTRIBUT  = 1 
            then LIBELLE_ATTRIBUT := 'libelle_1'; 
        when ID_ATTRIBUT  = 2 
            then LIBELLE_ATTRIBUT := 'libelle_2'; 
    end case; 
RETURN LIBELLE_ATTRIBUT; 
END;

[Yorglaa]

@pifor
NON, pas besoin de ELSE !

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 replace function test ( val in number) return varchar2
AS
    RetVal  Varchar2(10) ;
Begin
    Case
        When val = 1
            Then RetVal := 'un' ;
        When val = 2
            Then RetVal := 'deux' ;
    End Case ;
 
    Return RetVal ;
End ;

Fonctionne très bien (9.2.0.6)...

SQL> select test(2) from dual ;

TEST(2)
--------------------------------
deux

Ecoulé : 00 :00 :00.00

[divail]

Ma version d'oracle est la 8.1.7.4. Le 'case' ne marche pas avec cette version?

[Yorglaa]

Hélas non, pas en PL/SQL

tu peux l'utiliser dans du SQL standard, mais l'intégration au PL/SQL n'est possible que depuis la 9i.

Il va falloir alors passer par le If.

désolé !

[divail]

Ok merci pour ces réponses. Je vais utiliser le if.

[McM]

@pifor
NON, pas besoin de ELSE !

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 replace function test ( val in number) return varchar2
AS
    RetVal  Varchar2(10) ;
Begin
    Case
        When val = 1
            Then RetVal := 'un' ;
        When val = 2
            Then RetVal := 'deux' ;
    End Case ;
 
    Return RetVal ;
End ;

Fonctionne très bien (9.2.0.6)...

SQL> select test(2) from dual ;

TEST(2)
--------------------------------
deux

Ecoulé : 00 :00 :00.00

Code :

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

1
2
SQL> select test(3) from dual ;
ORA-06592: CASE not found while executing CASE statement

Code :

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

1
2
3
4
5
6
7
CASE
        WHEN val = 1
            THEN RetVal := 'un' ;
        WHEN val = 2
            THEN RetVal := 'deux' ;
		ELSE RetVal := 'pas trouvé' ;
    END CASE ;

[Yorglaa]

OK...
mais là tu parle de gestion des exception, et pas de la fonctionnalité CASE elle-même. Qui, elle, fonctionne très bien sans le ELSE !

[Yorglaa]

Pas de ELSE...

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
create or replace function test ( val in number) return varchar2 
AS 
    RetVal  Varchar2(10) ; 
Begin 
    Case 
        When val = 1 
            Then RetVal := 'un' ; 
        When val = 2 
            Then RetVal := 'deux' ; 
    End Case ; 
 
    Exception
    When others
        Then RetVal := 'Rien' ;
 
    Return RetVal ; 
End ;

SQL> select test(3) from dual;

TEST(3)
--------------------------------------
Rien

[McM]

Il y a quand même une différence entre un else et une exception qui catche tout, même les autres erreurs ORA.

[Yorglaa]

bien sûr !!

mais je te rappelle qu'ici c'est un EXEMPLE...
donc le when Others est en effet un peu large... tu pourrais aussi faire ta propre exception qui catche uniquement la ORA-06592 (avec un pragma init_exception), ou encore "faire planter" l'appli avec une erreur spécifiquement dédié à ça avec un raise_application_error, ou encore envoyer un mail avec utl_smtp, ou encore... mais les options ne manquent pas !

Mais par contre tu peux aussi VOULOIR que ta fonction plante si tu ne donne pas une des valeurs voulues en paramètre.

j'en reviens à ce que je disais précédement, rien n'empêche TECHNIQUEMENT le Case de fonctionner sans clause else !!!

alors ne mélangeons pas tout. Les problèmes de conception, d'algo ou gestion des exceptions n'ont strictement rien à voir avec une éventuelle limitation technique d'une ou l'autre syntaxe !