使用truncate命令清空当前用户所有表的所有数据

--批量清空当前用户所有表的所有数据

declare
v_sql varchar2(2000) ;
CURSOR cur is select table_name from user_tables order by table_name ;
begin
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;