学步园

create sequence SEQUENCE_BUDGETUPDATERECORD
/

create trigger TIB_BUDGETUPDATERECORD before insert
on BUDGETUPDATERECORD for each row
declare
    integrity_error exception;
    errno            integer;
    errmsg           char(200);
    dummy            integer;
    found            boolean;

begin
    -- Column "ID" uses sequence SEQUENCE_BUDGETUPDATERECORD
    select SEQUENCE_BUDGETUPDATERECORD.NEXTVAL INTO :new.ID from dual;

-- Errors handling
exception
    when integrity_error then
       raise_application_error(errno, errmsg);
end;
/