Oracle使用游标删除所有用户数据表中的所有记录脚本

利用场景:由于数据库中的数据触及机密信息,希望1次性能删除掉所有数据,只保存数据表结构,供新项目开发程序用

测试结果:经查询已删除所有数据

存在问题:数据表如果存在外键的话下面脚本可能履行不成功,请自行删除或过滤掉该表,见下图

操作办法:直接将下面的脚本内容复制到PQSQL中履行便可

--Oracle使用游标删除所有用户数据表中的所有记录脚本

declare mystring NVARCHAR2(1000):=''; --定义要输出的字符串变量  

cursor mycursor is --定义游标  

select * from user_tables order by table_name; --查询所有用户表
      
myrecord mycursor%rowtype;  --定义游标记录类型  
Counter int :=0;  
begin  
open mycursor;  --打开游标  
if mycursor%isopen  then  --判断打开成功  
loop --循环获得记录集    
fetch mycursor into myrecord; --获得游标中的记录        

if mycursor%found then  --游标的found属性判断是不是有记录 
begin
 
mystring:='truncate from '||myrecord.table_name;

dbms_output.put_line('当前操作语句为'||mystring);

if(myrecord.table_name<>'TABLE_INFO') then
execute immediate 'truncate table '||myrecord.table_name;
end if;

commit;--立即履行

end;

else           
exit;
end if;
  
end loop;  
else    
dbms_output.put_line('游标没有打开');  
end if; 
close mycursor;

end;