级联删除表中的记录(不通过级联约束)

注意:此文档是本人写的

--级联删除表中的记录
create or replace
procedure proc_delete_data(p_tname varchar2)
as
--定义一个游标,此游标返回指定表的子表
cursor cur_constraint is select b.table_name from user_constraints a,user_constraints b
where a.constraint_name=b.r_constraint_name and b.constraint_type='R'
and a.constraint_type='P' and a.table_name=upper(p_tname);
v_sql varchar2(200);
begin
--递归寻找指定表的子表
for l_cur in cur_constraint loop
proc_delete_data(l_cur.table_name);
end loop;
v_sql := 'delete from ' || p_tname;
--dbms_output.put_line(v_sql);
--执行删除表中的数据
execute immediate v_sql;
--异常处理
exception
when others then
raise_application_error(-20001,sqlcode|| ' ' || sqlerrm,true);
end;
/

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/50509/viewspace-174251/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/50509/viewspace-174251/