我已经用 SQL 编写了这个函数,但我不知道为什么,但它一直在异常部分返回错误。我检查了语法,记录了但我没有运气,有人可以帮忙吗?
返回错误:
Error on line 83: PLS-00103: Found symbol "EXCEPTION" instead one of the following:
begin case declare end exit for goto if loop mod null pragma raise return select update while with
<<
close current delete fetch lock insert open rollback savepoint set sql execute commit forall merge pipe
create or replace function InsertPeriodoEvento
(NomePeriodo in varchar,
aInizio in integer,
aFine in integer,
NomeEvento1 in varchar,
g1 in integer,
m1 in integer,
a1 in integer,
NomeEvento2 in varchar,
g2 in integer,
m2 in integer,
a2 in integer)
return integer is
id_Periodo number;
begin
savepoint prima_di_tutto;
insert into Periodo (Nome) values (NomePeriodo);
select Id into id_Periodo from Periodo where Nome=NomePeriodo;
if NomeEvento2 is null then
begin
insert into Evento (Nome, Giorno, Mese, Anno, IdPeriodo)
values (NomeEvento1, g1, m2, a2, IdPeriodo);
update Periodo set
AnnoFine = aFine,
IdEventoInizio = (select Id from Evento where Nome = NomeEvento1)
where Periodo.Id = id_Periodo;
end;
else
if NomeEvento1 is null then
begin
insert into Evento (Nome, Giorno, Mese, Anno, IdPeriodo)
values (NomeEvento2, g2, m2, a2, IdPeriodo);
update Periodo set
AnnoInizio = aInizio,
IdEventoFine = (select Id from Evento where Nome = NomeEvento2)
where Periodo.Id = id_Periodo;
end;
else
begin
insert into Evento (Nome, Giorno, Mese, Anno, IdPeriodo)
values (NomeEvento1, g1, m2, a2, IdPeriodo);
insert into Evento (Nome, Giorno, Mese, Anno, IdPeriodo)
values (NomeEvento2, g2, m2, a2, IdPeriodo);
update Periodo set
IdEventoInizio = (select Id from Evento where Nome = NomeEvento1),
IdEventoFine = (select Id from Evento where Nome = NomeEvento2)
where Periodo.Id = id_Periodo;
end;
end if;
commit;
return 1;
EXCEPTION
when OTHERS then
rollback to prima_di_tutto;
return 0;
end InsertPeriodoEvento;