Gérer les exceptions dans un package
Bonjour tout le monde,
Je suis en train de faire un gros package qui gère les utilisateurs.
Dans le body, j'ai plusieurs procédure, avec des exceptions dans chaque procédure. Par exemple dans mon body j'ai cette procedure:
Code:
1
2
3
4
5
6
7
8
9
10
11
| PROCEDURE add_user (newUser VARCHAR2, mdpUser VARCHAR2) IS
quest_user VARCHAR2(100) := 'CREATE USER ' || newUser || ' IDENTIFIED BY ' || mdpUser;
createuser EXCEPTION;
PRAGMA EXCEPTION_INIT(createuser, -01031);
BEGIN
EXECUTE IMMEDIATE quest_user;
--Exceptions
EXCEPTION
WHEN createuser THEN
dbms_output.put_line('Privilèges insuffisants');
END add_user; |
Et donc en fait je voudrais avoir une procédure dans mon package, qui ne fait que gérer les procédures, par exemple, au lieu d'avoir la procédure précédente, j'aurais quelque chose comme:
Code:
1
2
3
4
5
6
7
| PROCEDURE add_user (newUser VARCHAR2, mdpUser VARCHAR2) IS
quest_user VARCHAR2(100) := 'CREATE USER ' || newUser || ' IDENTIFIED BY ' || mdpUser;
BEGIN
EXECUTE IMMEDIATE quest_user;
--Appel d'une procédure du package pour la gestion des erreurs.
EXECUTE procedure_erreur;
END add_user; |
Tout ceci dans le but de rendre mes différentes procédure de gestion d'utilisateur de mon package plus lisible.
Est-ce que vous auriez une idée de comment faire? Si c'est possible déja...
Voila, merci 8-)
