将所有的table清空(可回滚)

/** 
 将所有的 table 清空(可回滚)[Oracle 10g下运行通过]
**/
declare
 -- 指向所有 table 的游标
 cursor c_t is 
 select table_name
 from user_tables;
 
 table_name user_tables.table_name%type;
begin
 open c_t;
 loop 
 fetch c_t into table_name; 
 exit when c_t%notfound;
 
 -- 用 delete 而不用 truncate 是为了能户用户回滚,减少误操作
 execute immediate 'delete from ' || table_name;
 end loop;
 close c_t;
end;