清空数据库中所有表中的数据
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;