问题：如何对系统默认的约束名和索引名重命名？
解决方法：
create or replace procedure proc_rename_constraint
as
--查找用户所有表的游标
cursor cur_table is select table_name from user_tables;
--查找某张表所有约束的游标
cursor cur_cons (c_table varchar2) is select c.constraint_name,c.constraint_type,
c.search_condition from user_constraints c where c.table_name=c_table
and substr(c.constraint_name,2,2) ＜＞ 'K_';
--查找某个约束所有字段的游标
cursor cur_columns(c_cons varchar2) is select column_name from user_cons_columns
where constraint_name=c_cons;
--存储修改后的约束名
v_new_cons_name varchar2(100);
--存储修改约束名的SQL语句
v_sql varchar2(150);
--存储重名的个数
cnt number :=1;
--存储新索引名的个数
n_idx number;
--存储新约束名的个数
n_con number;
begin
--循环取表名
for cur_ltable in cur_table loop
--循环取约束名
for cur_lcons in cur_cons(cur_ltable.table_name) loop
v_new_cons_name :=null;
--循环取字段名
for cur_lcolumns in cur_columns(cur_lcons.constraint_name) loop
v_new_cons_name := v_new_cons_name cur_lcolumns.column_name;
end loop;
v_new_cons_name := replace(v_new_cons_name,'_','');
v_new_cons_name := cur_ltable.table_name '_' v_new_cons_name;
if cur_lcons.constraint_type='P' then
v_new_cons_name := 'PK_' v_new_cons_name;
elsif cur_lcons.constraint_type='R' then
v_new_cons_name := 'FK_' v_new_cons_name;
elsif cur_lcons.constraint_type='U' then
v_new_cons_name := 'UK_' v_new_cons_name;
elsif cur_lcons.constraint_type='C'
and instr(cur_lcons.search_condition,'IS NOT NULL') ＞ 0 then
v_new_cons_name := 'CK_' v_new_cons_name 'NOTNULL' ;
elsif cur_lcons.constraint_type='C'
and instr(cur_lcons.search_condition,'IS NOT NULL') = 0
and cur_lcons.search_condition is not null then
v_new_cons_name := 'CK_' v_new_cons_name;
end if;
--约束名如果超过30个字符的处理
if length(v_new_cons_name) ＞ 29 then
v_new_cons_name := substr(v_new_cons_name,1,15) substr(v_new_cons_name,-14);
end if;
--查找系统里是否有新的约束名
select count(*) into n_con from user_constraints where constraint_name=v_new_cons_name;
select count(*) into n_idx from user_indexes where index_name=v_new_cons_name;
if n_con ＞ 0 or n_idx ＞ 0 then
v_new_cons_name := v_new_cons_name to_char(cnt);
cnt := cnt +1;
end if;
--对由主键和唯一键创建的索引进行改名,改后的名字为新的约束名
if cur_lcons.constraint_type='P' or cur_lcons.constraint_type='U' then
select count(*) into n_con from user_indexes where index_name=cur_lcons.constraint_name;
if n_con = 1 then
v_sql := 'alter index ' cur_lcons.constraint_name ' rename to ' v_new_cons_name;
execute immediate v_sql;
end if;
end if;
--对约束改名
v_sql := 'alter table ' cur_ltable.table_name ' rename constraint ';
v_sql := v_sql cur_lcons.constraint_name ' to ' v_new_cons_name;
execute immediate v_sql;
end loop;
end loop;
end;
【责任编辑 陈东方】
