如何对系统默认的约束名和索引名进行重命？
对系统默认的约束名和索引名进行重命名的存储过程示例： 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_constraint...全部
对系统默认的约束名和索引名进行重命名的存储过程示例： 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;
完成 丢弃。收起
