exo3

EXOS/Exam2020-all.tex

@@ -713,7 +713,7 @@ Nombre de joueurs à prévenir : nb
  \fbox{    \BUseVerbatim{AffichagePL}}
 \end{center}
 
-%\lstinputlisting{exo3-PL.sql}
+\lstinputlisting{exo3-PL.sql}
 
 \end{exercice}
 

EXOS/exo3-PL.sql

@@ -0,0 +1,65 @@
+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;
+
+
+