清空当前用户所有表数据存储过程
declare
v_sqlD varchar2(2000);
v_sql varchar2(2000);
CURSOR curD is
select table_name,constraint_name from USER_CONSTRAINTS where constraint_type='R' order by table_name;
CURSOR cur is
select table_name from user_tables order by table_name;
begin
for rowsD in curD loop
v_sqlD := 'ALTER TABLE ' || rowsD.table_name || ' disable constraint ' || rowsD.constraint_name;
dbms_output.put_line(v_sqlD);
execute immediate v_sqlD;
end loop;
for rows in cur loop
v_sql := 'TRUNCATE TABLE ' || rows.table_name;
dbms_output.put_line(v_sql);
execute immediate v_sql;
end loop;
end;
/
