Exception PL/SQL

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Exception PL/SQL

GL912

Salut tout le monde c'est ma tout première fois avec le PL/SQL et j'ai un problème que je n'arrive pas à résoudre j'ai lu différents tutoriels mais l'erreur persiste :
Voici mon code simplifié,c'est une procédure :

Code :

create or replace procedure "MISE" (dmj IN DATE,Message OUT VARCHAR 1,CODE OUT INT)
is
BEGIN
Traitement
EXCEPTION
Traitement EXCEPTION
END;

Le problème c'est qu'il ne rentre jamais dans le bloc EXCEPTION et si j'essaye de rajouter un END j'ai une erreur de compilation comment faire ?

Publicité

GL912

Je précise bien sûr qu'il ne rentre pas même s'il y a une erreur.
Cette construction est elle correcte ?
Nom Procédure (paramètres)
is
Begin
(bloc principal)
EXCEPTION
(bloc de traitement des erreurs)
END;

Car je n'ai aucune erreur à la compilation et pourtant le bloc exception n'est pas pris en compte.

casimimir

et tu es sur que tu catch la bonne exception? tu es passé par un "when others" ?

GL912

Oui j'ai fait un when others mais il se passe rien comme les autres exceptions.

casimimir

copie/colle ton bloc d'exception

Message cité 1 fois

olivthill

Il faut mettre "END;" à la fin, c'est obligatoire.
Quelle est l'intitulé de l'erreur de compilation ?
Peut-être que le probleme vient de "VARCHAR 1" sur la première ligne. J'essayerais avec VARCHAR ou VARCHAR2 tout court, sans donner la taille.

Message cité 1 fois

GL912

olivthill a écrit :

Le problème c'est qu'il n y a pas d'erreur de compilation justement.

casimimir a écrit :

copie/colle ton bloc d'exception

Voilà le code en entier vous allez peut être voir quelque chose que j'ai raté :

Code :

create or replace procedure "MISE"(dmj IN DATE,Message OUT VARCHAR2,Code OUT INT)
is
test BOOLEAN;
BEGIN
test:=false;
Message:='rien';
Code:=0;
SAVEPOINT s;
UPDATE PROG SET STATUT='1' WHERE DATE_MAJ>DMJ;
if test=true Then ROLLBACK TO SAVEPOINT s;
else Commit;
End if;
EXCEPTION
WHEN ACCESS_INTO_NULL THEN test:=true; Message:='Table vide veuillez y introduire des enregistrements';
WHEN DUP_VAL_ON_INDEX THEN test:=true; Message:='Valeur dejà existante veuillez en introduire une nouvelle';
WHEN NO_DATa_FOUND THEN test:=true; Message:='Table vide';
WHEN PROGRAM_ERROR THEN test:=true; Message:='Probléme interne';
WHEN STORAGE_ERROR THEN test:=true; Message:='Mémoire insuffisante';
WHEN TIMEOUT_ON_RESOURCE THEN test:=true; Message:='Erreur programme';
WHEN VALUE_ERROR THEN test:=true; Message:='Erreur conversion';
WHEN OTHERS THEN Message:=SQLERRM; Code:=SQLCODE; test:=true;
END;

casimimir

Le truc a l'air correct, mais tu dis que c'est ta première gestion d'exception, tu t'es pas entrainé sur une fonction bidon pour tester sur un exemple? soit en faisant un raise, soit un truc style to_number('a') qui va d'office lever une exception.

ta procédure tu l'appelle avec quoi? il ne faut pas oublier que avec certains langages les index de paramètres peuvent être décalé de 1 (ils commencent a 0 ou 1).

autre chose, ton "if test=true Then ROLLBACK TO SAVEPOINT s;" ne s'exécutera jamais, si il passe sur l'instruction test sera toujours false, tu devrais réencapsuler tout ton truc dans un begin/end et faire le test après le bloc d'exception

Message cité 1 fois

GL912

casimimir a écrit :

Je l'ai testé avec une exception bidon le message restait à 'rien' je crois que c'est la position du commit qui est fausse.
Pour le langage c'est en java.
Je vais modifier le ROLLBACK et COMMIT on verra ce que ça donne.

olivthill

Tout à fait d'accord avec casimimir. Le test est mal placé puisqu'il n'est exécuté que si l'update se passe bien. Voici ce qu'il faudrait faire :

Code :

create or replace procedure "MISE"(dmj IN DATE,Message OUT VARCHAR2,Code OUT INT)
is
test BOOLEAN;
BEGIN
test:=false;
Message:='rien';
Code:=0;
SAVEPOINT s;
BEGIN
UPDATE PROG SET STATUT='1' WHERE DATE_MAJ>DMJ;
EXCEPTION
WHEN ACCESS_INTO_NULL THEN test:=true; Message:='Table vide veuillez y introduire des enregistrements';
WHEN DUP_VAL_ON_INDEX THEN test:=true; Message:='Valeur dejà existante veuillez en introduire une nouvelle';
WHEN NO_DATa_FOUND THEN test:=true; Message:='Table vide';
WHEN PROGRAM_ERROR THEN test:=true; Message:='Probléme interne';
WHEN STORAGE_ERROR THEN test:=true; Message:='Mémoire insuffisante';
WHEN TIMEOUT_ON_RESOURCE THEN test:=true; Message:='Erreur programme';
WHEN VALUE_ERROR THEN test:=true; Message:='Erreur conversion';
WHEN OTHERS THEN Message:=SQLERRM; Code:=SQLCODE; test:=true;
END;
if test=true Then
ROLLBACK TO SAVEPOINT s;
else
Commit;
End if;
END;

Publicité

casimimir

tiens un autre truc, n'appelle pas ta procédure "MISE" mais MISE, parceque la si tu fais appel a l'objet en l'appelant Mise par exemple il ne le trouvera pas

GL912

Ça marche les mecs merci pour votre aide,si jamais ça peut aider quelqu'un il me semble que c'est la position du COMMIT qui clochait.

FORUM HardWare.fr

Programmation

SQL/NoSQL

Exception PL/SQL

Sujets relatifs
[SQL] deux count dans une requette	[VBA] requete SQL dans un programme VB pour publipostage vers word
[ACCESS] Remplir une table a partir d'une requête SQL en VB	SQL vs Fichier
problème de requête - FREETEXTTABLE (SQL serveur)	[SQL] "Insert into" et gestion des duplicata?
Problème : Requetes SQL Serveur liés à Access	[SQL] Choix d'un bon Query Browser
Comparer deux fichiers DTS SQL Server 2000
Plus de sujets relatifs à : Exception PL/SQL

Page générée en 0.059 secondes