防止oracle 对象被意外删除之触发器版

废话不多说，直接看代码

?

create or replace trigger del_deny
before drop or truncate on database
declare
l_errmsg varchar2(200):= '请勿在库任何对象!';
begin

? if ora_sysevent = 'DROP' then
? ?raise_application_error(-20001, ora_dict_obj_owner || '.' || ora_dict_obj_name || ' ' || l_errmsg);
? elsif ora_sysevent = 'TRUNCATE' then
? ?raise_application_error(-20001, ora_dict_obj_owner || '.' || ora_dict_obj_name || ' ' || l_errmsg);
? end if;

?exception
?when no_data_found then
??null;
?end;