將所有的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;