You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
66 lines
1.4 KiB
66 lines
1.4 KiB
drop table tresultat purge;
|
|
create table tresultat(ligne varchar2(200));
|
|
variable vnumcreneau varchar2(10)
|
|
prompt num creneau ?
|
|
accept vnumcreneau
|
|
|
|
declare
|
|
dnumCreneau varchar2(10):='&vnumcreneau';
|
|
didReserv char(3);
|
|
dnom varchar2(20);
|
|
ddateReserv date;
|
|
dnumCreneau char(2);
|
|
dmessage varchar2(200);
|
|
inexistant exception;
|
|
probleme exception;
|
|
dcpt number;
|
|
dnb number:=0;
|
|
cursor CUR is select idReserv, dateReserv
|
|
from reservation R
|
|
where numCreneau=dnumCreneau
|
|
order by 2;
|
|
|
|
cursor CURJOUEUR is select Nom
|
|
from Faire F, Joueur J
|
|
where F.idReserv=didReserv
|
|
and J.idjoueur=F.idjoueur;
|
|
order by 2;
|
|
|
|
begin
|
|
dmessage:='num du creneau inexistant';
|
|
select count(*) into dcpt
|
|
from creneau
|
|
where numCreneau=dnumCreneau;
|
|
if dcpt=0
|
|
then raise inexistant;
|
|
else
|
|
open CUR;
|
|
fetch cur into didReserv, ddateReserv;
|
|
|
|
while cur%FOUND
|
|
loop
|
|
insert into tresultat values('Id reservation:'||didReserv||' Date :'||to_char(ddateReserv));
|
|
open CURJ;
|
|
fetch curJ into dnom;
|
|
while CURJ%FOUND
|
|
loop
|
|
insert into tresultat values (dnom);
|
|
dnb:=dnb+1;
|
|
fetch curJ into dnom;
|
|
end loop;
|
|
close CURJ;
|
|
end loop;
|
|
close CUR;
|
|
insert into tresultat values ('Nombre de joueurs a prevenir : '||to_char(dnb));
|
|
end if;
|
|
exception
|
|
when inexistant then insert into tresultat values (dmessage);
|
|
when probleme then insert into tresultat values (dmessage);
|
|
end;
|
|
.
|
|
/
|
|
select * from tresultat;
|
|
|
|
|
|
|