Oracle删除当前用户下的所有表或数据

create or replace procedure pro_droptable is
cursor cur is select table_name from user_tables;
drop_sql varchar2(1000);
begin
for tbname in cur loop
begin
drop_sql:='drop table '||tbname.table_name;--将drop修改为truncate即可删除所有表的数据
execute immediate drop_sql;
end;
end loop;
end pro_droptable;