//autoeditácia príspevku ( 09 May 2009, 21:32 )
Skoda
//autoeditácia príspevku ( 10 May 2009, 18:08 )
Report
Prehľad všetkých publikácií spolu s hodnotením
title center ‘Prehľad všetkých pulikácií s bodovým hodnotením’right.sql.pno
column nazov_publikacie heading “Názov publikácie“ formatA20
column pocet_bodov heading ”Hodnotenie” formatA20
select publikacia, pocet_bodov from publikacia, hodnotenie
where hodnotenie.id_hodnotenie=publikacia.id_hodnotenie;
Trigger
Trigger zabraňujúci vymazavaniu riadkov z tabuľky publikácia.
create or replace trigger tr_del_publikacia
before delete on publikacia
for each row
begin
raise_application_error(-20000,’Nemate pravo vymazavat udaje z tabulky’)
end;
Procedúra
Procedura zmen_nazov, ktorá vykoná UPDATE názvu zborníka v tabuľke zborník. Ako vstupný parameter slúži id zborníka a nový názov zborníka. V prípade, že zadaný zborník neexistuje nenastane ziadne update.
create or replace procedure zmen_nazov
(v_id_zbornik in zbornik.id_zbornik%TYPE
v_nazov in zbornik_nazov%TYPE)
as
pocet number :=0;
begin
select count (*) into pocet from zbornik where id_zbornik=v_id_zbornik;
if (pocet = 0) then
raise_application_error (-20000,’Takyto zbornik sa v tabulke zbornik nenachadza’)
end if;
update zbornik set nazov=v_nazov where id_zbornik=v_id_zbornik;
end zmen_zbornik;