Executer un package en pl/sql
Fermé
firewire21
Messages postés
27
Date d'inscription
jeudi 7 février 2008
Statut
Membre
Dernière intervention
15 janvier 2009
-
15 févr. 2008 à 11:41
modio - 30 déc. 2010 à 09:15
modio - 30 déc. 2010 à 09:15
A voir également:
- Executer un package en pl/sql
- Microsoft visual c++ 2019 redistributable package - Guide
- Atk package ✓ - Forum Pilotes (drivers)
- A quoi sert l'"ATK Package" ? - Forum Logiciels
- ATK Package - Forum Pilotes (drivers)
- Package cache - Forum Windows 10
3 réponses
j'ai essyer d'ecrire un package comme suit mais il me donne un erreur de compilation lors de la creation
create or replace package joueurs is
procedure ajout(v_idj in joueur.idjoueur%type,
v_nomj in joueur.nomjoueur%type,
v_ideq in joueur.ideq%type);
procedure suppression(v_idj in joueur.idjoueur%type);
procedure Affichage1(v_idj in joueur.idjoueur%type);
end joueurs;
/
create or replace package body joueurs is
procedure ajout
(v_idj in joueur.idjoueur%type,
v_nomj in joueur.nomjoueur%type,
v_ideq in joueur.ideq%type) is
err_idj exception;
pragma exception_init(err_idj,-00001);
err_eq exception;
pragma exception_init(err_eq,-02291);
begin
insert into joueur values(v_idj,v_nomj,'o',v_ideq,null,null,null);
exception
when err_idj then
insert into trace values('idjoueur existe deja');
when err_eq then
insert into trace values('equipe inconnue');
end ajout;
procedure suppression(v_idj in joueur.idjoueur%type)is
cursor cu is select idjoueur from joueur;
err_eq exception;
err_pmj exception;
pragma exception_init(err_pmj,-02292);
v_i int:=0;
v_idjoueur joueur.idjoueur%type;
begin
open cu;
loop
fetch cu into v_idjoueur;
exit when cu%notfound;
if(v_idjoueur=v_idj) then
v_i:=1;
end if;
end loop;
close cu;
if(v_i=0) then
raise err_eq;
end if;
delete from joueur where idjoueur=v_idj;
exception
when err_pmj then
insert into trace values('joueur existe dans matchjoueur');
when err_eq then
insert into trace values('joueur inconnu');
end suppression;
procedure Affichage1(v_idj in joueur.idjoueur%type) is
cursor cu1 is select idjoueur from joueur;
v_i int:=0;
v_idj1 joueur.idjoueur%type;
v_nomj joueur.nomjoueur%type;
v_idjoueur joueur.idjoueur%type;
err_eq exception;
begin
open cu;
loop
fetch cu into v_idjoueur;
exit when cu%notfound;
if(v_idjoueur=v_idj) then
v_i:=1;
end if;
end loop;
close cu;
if(v_i=0) then
raise err_eq;
end if;
select idjoueur,nomjoueur into v_idj1,v_nomj from joueur
where idjoueur=v_idj;
insert into trace values(v_idj1||' '||v_nomj);
exception
when err_eq then
insert into trace values('joueur inconnu');
end affichage1;
end joueurs;
/
merci d'avance
create or replace package joueurs is
procedure ajout(v_idj in joueur.idjoueur%type,
v_nomj in joueur.nomjoueur%type,
v_ideq in joueur.ideq%type);
procedure suppression(v_idj in joueur.idjoueur%type);
procedure Affichage1(v_idj in joueur.idjoueur%type);
end joueurs;
/
create or replace package body joueurs is
procedure ajout
(v_idj in joueur.idjoueur%type,
v_nomj in joueur.nomjoueur%type,
v_ideq in joueur.ideq%type) is
err_idj exception;
pragma exception_init(err_idj,-00001);
err_eq exception;
pragma exception_init(err_eq,-02291);
begin
insert into joueur values(v_idj,v_nomj,'o',v_ideq,null,null,null);
exception
when err_idj then
insert into trace values('idjoueur existe deja');
when err_eq then
insert into trace values('equipe inconnue');
end ajout;
procedure suppression(v_idj in joueur.idjoueur%type)is
cursor cu is select idjoueur from joueur;
err_eq exception;
err_pmj exception;
pragma exception_init(err_pmj,-02292);
v_i int:=0;
v_idjoueur joueur.idjoueur%type;
begin
open cu;
loop
fetch cu into v_idjoueur;
exit when cu%notfound;
if(v_idjoueur=v_idj) then
v_i:=1;
end if;
end loop;
close cu;
if(v_i=0) then
raise err_eq;
end if;
delete from joueur where idjoueur=v_idj;
exception
when err_pmj then
insert into trace values('joueur existe dans matchjoueur');
when err_eq then
insert into trace values('joueur inconnu');
end suppression;
procedure Affichage1(v_idj in joueur.idjoueur%type) is
cursor cu1 is select idjoueur from joueur;
v_i int:=0;
v_idj1 joueur.idjoueur%type;
v_nomj joueur.nomjoueur%type;
v_idjoueur joueur.idjoueur%type;
err_eq exception;
begin
open cu;
loop
fetch cu into v_idjoueur;
exit when cu%notfound;
if(v_idjoueur=v_idj) then
v_i:=1;
end if;
end loop;
close cu;
if(v_i=0) then
raise err_eq;
end if;
select idjoueur,nomjoueur into v_idj1,v_nomj from joueur
where idjoueur=v_idj;
insert into trace values(v_idj1||' '||v_nomj);
exception
when err_eq then
insert into trace values('joueur inconnu');
end affichage1;
end joueurs;
/
merci d'avance
sdkaber
Messages postés
10
Date d'inscription
mercredi 26 novembre 2008
Statut
Membre
Dernière intervention
3 mars 2010
1
11 janv. 2009 à 14:01
11 janv. 2009 à 14:01
je cherche quelqu'un m'aider,
j'ai un package comportant une seule procedure,mais j'ai problème de compilation
et voila mon code :
create or replace procedure ajout_Pdf(codef Varchar2(100),fichier Varchar2(100)) is
l_lob BLOB;
l_fichier BFILE;
BEGIN
SELECT fichier_pdf INTO l_lob FROM journal WHERE ns=8881 FOR UPDATE;
l_fichier := bfilename('DIRLOB','3.pdf');
dbms_lob.fileopen( l_fichier, dbms_lob.file_readonly );
dbms_lob.loadfromfile( l_lob, l_fichier, dbms_lob.getlength(l_fichier));
dbms_lob.filecloseall();
COMMIT;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END;
j'ai un package comportant une seule procedure,mais j'ai problème de compilation
et voila mon code :
create or replace procedure ajout_Pdf(codef Varchar2(100),fichier Varchar2(100)) is
l_lob BLOB;
l_fichier BFILE;
BEGIN
SELECT fichier_pdf INTO l_lob FROM journal WHERE ns=8881 FOR UPDATE;
l_fichier := bfilename('DIRLOB','3.pdf');
dbms_lob.fileopen( l_fichier, dbms_lob.file_readonly );
dbms_lob.loadfromfile( l_lob, l_fichier, dbms_lob.getlength(l_fichier));
dbms_lob.filecloseall();
COMMIT;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END;
