用戶索引定義遷移

使用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;

sqlplus下執行前加上下面兩行,然後利用spool到文件裏

SET LONG 9000000
SET PAGES 0

PL/SQL DEV的話,設置輸出緩衝區爲900000.

我的結果爲(截取部分):

  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") 
; 
.....