exo4

EXOS/Exam2020-all.tex

@@ -807,7 +807,7 @@ NumCreneau: XXXXX  heure début : X    Benefice :9999€   nb joueurs : 9999
     \end{small}
 }
 \end{center}
-%\lstinputlisting{exo4-PL.sql}
+\lstinputlisting{exo4-PL.sql}
 \end{exercice}
 
 

EXOS/exo4-PL.sql

@@ -0,0 +1,37 @@
+drop table tresultat purge;
+create table tresultat(ligne varchar2(200));
+
+declare
+dnumCreneau varchar2(10);
+dhdebut number;
+dbenef number;
+dnbjoueur number;
+
+dmessage varchar2(200);
+inexistant exception;
+probleme exception;
+dcpt number;
+dnb number:=0;
+cursor CUR is select CR.numcreneau, CR.hdebut, sum(F.tarifhoraire*R.nbjoueur)+sum(E.tarif*C.nombre), sum(nbjoueur)
+		from creneau CR, facturer F, contenir C, reservation R, equipement E
+		WHERE E.idequipement = C.idequipement
+		AND R.idReserv = C.idReserv
+		AND CR.numcreneau  = R.numcreneau
+		order by 2;
+
+begin
+open CUR;
+fetch cur into  dnumCreneau, dhdenut, dbenef, dnbjoueur ;
+while cur%FOUND
+loop
+	insert into tresultat values('NumCreneau:'||dnumCreneau||'   hdebut :'||'Heure debut:'||dhdebut ||' Benefice:'||dbenef||'  Nb joueurs'||dnbjoueur);
+	fetch cur into  dnumCreneau, dhdenut, dbenef, dnbjoueur ;
+end loop;
+close CUR;
+end;
+.
+/
+select * from tresultat;
+
+
+