Chinaunix首页 | 论坛 | 博客
  • 博客访问: 103632003
  • 博文数量: 19283
  • 博客积分: 9968
  • 博客等级: 上将
  • 技术积分: 196062
  • 用 户 组: 普通用户
  • 注册时间: 2007-02-07 14:28
文章分类

全部博文(19283)

文章存档

2011年(1)

2009年(125)

2008年(19094)

2007年(63)

分类: Oracle

2008-03-31 12:41:40

来源:赛迪网    作者:Alizze

问题:如何删除所有表的PROCEDURE?

解决此问题的示例:

CREATE PROCEDURE proc_drop_all_tables()
begin
declare v_tablename varchar(50);
declare v_constname varchar(50);
declare flag int default 0;
--定义一个游标,寻找所有的外键
declare cur_constraint cursor for 
select table_name,constraint_name
from information_schema.table_constraints
where constraint_type='FOREIGN KEY'
and table_schema=(select database());
--定义一个游标,寻找所有表
declare cur_table cursor for select table_name 
from information_schema.tables
where table_type='BASE TABLE' and table_schema=( select database());
--定义一个游标,寻找所有视图
declare cur_view cursor for select table_name 
from information_schema.tables
where table_type='VIEW' and 
table_schema=( select database());
declare continue handler for not found
set flag=1;
--循环去删除所有外键
open cur_constraint;
repeat
fetch cur_constraint into v_tablename,v_constname;
if flag= 0 then
set @v_sql = concat('alter table ',v_tablename,' 
drop foreign key ',v_constname);
prepare stmt from @v_sql;
execute stmt;
end if;
until flag=1
end repeat;
close cur_constraint;
set flag=0;
--循环去删除所有视图
open cur_view;
repeat
fetch cur_view into v_tablename;
if flag=0 then
set @v_sql = concat('drop view ',v_tablename);
prepare stmt from @v_sql;
execute stmt;
end if;
until flag=1
end repeat;
set flag=0;
close cur_view;
--循环去删除所有表
open cur_table;
repeat
fetch cur_table into v_tablename;
if flag = 0 then
set @v_sql = concat('drop table ',v_tablename);
prepare stmt from @v_sql ;
execute stmt ;
end if;
until flag=1
end repeat;
deallocate prepare stmt;
close cur_table;
end;
阅读(643) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~