用户索引定义迁移

使用EXP/IMP工具可以迁移用户的索引数据,但有时我们不需要索引数据,只需要索引定义,下面就给出获得用户下所有索引定义的方法.

如果使用SELECT 'CREATE INDEX'||...  FROM user_indexes的方法,比较难获得函数索引等的定义,下面使用DBMS_METADATA包来获取(需要相关的权限):

DECLARE
  v  CLOB;
  h  NUMBER;
  th NUMBER;
BEGIN

  h := DBMS_METADATA.OPEN('INDEX');
  DBMS_METADATA.SET_FILTER(h,'SYSTEM_GENERATED',false);--排除系统创建的索引
  DBMS_METADATA.SET_FILTER(h, 'SCHEMA', 'R5_DEV');
  th := DBMS_METADATA.ADD_TRANSFORM(h, 'MODIFY');
  DBMS_METADATA.SET_REMAP_PARAM(th, 'REMAP_SCHEMA', 'R5_DEV', 'CRY');--转换名称
  th := DBMS_METADATA.ADD_TRANSFORM(h, 'DDL');
  DBMS_METADATA.SET_TRANSFORM_PARAM(th, 'STORAGE', FALSE);
  DBMS_METADATA.SET_TRANSFORM_PARAM(th, 'SQLTERMINATOR', TRUE);
  DBMS_METADATA.SET_TRANSFORM_PARAM(th, 'SEGMENT_ATTRIBUTES', FALSE);
  LOOP
    v := DBMS_METADATA.FETCH_CLOB(h);
    dbms_output.put_line(v);
    EXIT WHEN v IS NULL;
  END LOOP;
  DBMS_METADATA.CLOSE(h);
END;

SET LONG 9000000
SET PAGES 0

我的结果为(截取部分):

  CREATE UNIQUE INDEX "CRY"."T_FZH_VOUCHLOG_PK" ON "CRY"."T_FZH_VOUCHLOG" ("SERIAL", "FILENAME", "BILLID") 
  ;

  CREATE UNIQUE INDEX "CRY"."PK_T_REPORTHELP" ON "CRY"."T_REPORTHELP" ("REPORTCODE") 
  ;

  CREATE UNIQUE INDEX "CRY"."PK_HY_CREDITSET_DETAIL" ON "CRY"."HY_CREDITSET_DETAIL" ("BILLID", "CARDID") 
  ;

  CREATE UNIQUE INDEX "CRY"."PK_HY_CREDITSET_MAIN" ON "CRY"."HY_CREDITSET_MAIN" ("BILLSCODE") 
; 
.....