Cours SGBD LAI2 - Institut supérieur d'informatique de Mahdia

create procedure detruitCompagnie(ma_comp VARCHAR2(20)) is
begin
restePilote EXCEPTION ;
PRAGMA Exception_init(restePilote, -2292);
compagnieInexistante EXCEPTION ;
-- ce n'est pas nécessaire de la lier à un code d'erreur
delete from compagnie where comp = ma_comp ;
if SQL%NOTFOUND then
end if ;
exception
end ;
Exemple de programme PL/SQL
raise compagnieInexistante ;
when restePilote then
... traitement de l'erreur ...
when compagnieInexistante then
...
when others then
... on traite les autres erreurs
Riadh HADJ M’TIR – 2011/2012 221