来自dbms_metadata.get_ddl的自定义表DDL

时间:2013-01-30 13:09:08

标签: oracle plsql oracle11g rdbms database-administration

我想要DDL个表,以便我可以使用Oracle中的UTL包将它放到数据库服务器上。

问题是:当我们

select dbms_metadata.get_ddl('TABLE','Table_name','Schema_Name') 
  from dual; 

我在CLOB之前得到一个包含CREATE的输出。像

"(CLOB) 
  CREATE TABLE "SCHEMA"."TABLE_NAME" 
   (TABLE_COLUMNS.....) SEGMENT CREATION IMMEDIATE 
  PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 
 NOCOMPRESS LOGGING
  STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645
  PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1
  BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT)
  TABLESPACE "INTF_DATA01" ;"

我想要的是上面DDL没有CLOB且没有SEGMENT CREATIONPCTFREE ...... ETC等参数。

很高兴得到建议。

3 个答案:

答案 0 :(得分:7)

我们可以使用DBMS_METADATA.SET_TRANSFORM_PARAM方法来控制生成的DDL中包含的子句。

例如,为了排除SEGMENT的内容,你可以执行这个

exec dbms_metadata.set_transform_param
   (dbms_metadata.session_transform,'SEGMENT_ATTRIBUTES',false);

在执行get_ddl()来电之前

包文档列出了所有可用的Trandformation参数。 Find out more


我认为Alex是对的,前面的“(CLOB)”是你的客户在输出前面的东西。但这是真实的,而不是人工制品摆脱它将是一个简单的字符串操作:

substr(your_string, 7) 

答案 1 :(得分:3)

  1. 请使用以下逻辑:它适用于我
  2. CREATE OR REPLACE TYPE ddl_ty AS OBJECT (   object_name
    VARCHAR2(30),   object_type VARCHAR2(30),   orig_schema
    VARCHAR2(30),   orig_ddl    CLOB ) / CREATE OR REPLACE TYPE
    ddl_ty_tb AS TABLE OF ddl_ty /
    
    CREATE OR REPLACE FUNCTION get_object_ddl (input_values
    SYS_REFCURSOR) RETURN ddl_ty_tb PIPELINED IS
    
    PRAGMA AUTONOMOUS_TRANSACTION;
    
    -- variables to be passed in by sys_refcursor */ object_name  VARCHAR2(30); object_type  VARCHAR2(30); orig_schema VARCHAR2(30);
    
    
    -- setup output record of TYPE tableddl_ty out_rec ddl_ty := ddl_ty(NULL,NULL,NULL,NULL);
    
    /* setup handles to be used for setup and fetching metadata
    information handles are used to keep track of the different objects
    (DDL) we will be referencing in the PL/SQL code */ hOpenOrig  
    NUMBER; hModifyOrig NUMBER; hTransDDL   NUMBER; dmsf       
    PLS_INTEGER; Orig_ddl  CLOB; ret        NUMBER; BEGIN   /* Strip off
    Attributes not concerned with in DDL. If you are concerned with
         TABLESPACE, STORAGE, or SEGMENT information just comment out these few lines. */   dmsf := dbms_metadata.session_transform;  
    dbms_metadata.set_transform_param(dmsf, 'TABLESPACE', FALSE);  
    dbms_metadata.set_transform_param(dmsf, 'STORAGE', FALSE);  
    dbms_metadata.set_transform_param(dmsf, 'SEGMENT_ATTRIBUTES',
    FALSE);   dbms_metadata.set_transform_param(dmsf, 'PRETTY', TRUE);  
    dbms_metadata.set_transform_param(dmsf, 'SQLTERMINATOR', TRUE);
    
      -- Loop through each of the rows passed in by the reference cursor
    LOOP
        /* Fetch the input cursor into PL/SQL variables */
        FETCH input_values INTO object_name, orig_schema, object_type;
        EXIT WHEN input_values%NOTFOUND;
    
        hOpenOrig := dbms_metadata.open(object_type);
        dbms_metadata.set_filter(hOpenOrig,'NAME',object_name);
        dbms_metadata.set_filter(hOpenOrig,'SCHEMA',orig_schema);
    
        hModifyOrig := dbms_metadata.add_transform(hOpenOrig,'MODIFY');
        dbms_metadata.set_remap_param(hModifyOrig,'REMAP_SCHEMA',orig_schema,null);
    
        -- This states to created DDL instead of XML to be compared
        hTransDDL := dbms_metadata.add_transform(hOpenOrig ,'DDL');
    
        Orig_ddl := dbms_metadata.fetch_clob(hOpenOrig);
    
          out_rec.object_name := object_name;
          out_rec.object_type := object_type;
          out_rec.orig_schema := orig_schema;
          out_rec.orig_ddl := Orig_ddl;
          PIPE ROW(out_rec);
    
        -- Cleanup and release the handles
        dbms_metadata.close(hOpenOrig);
    
      END LOOP;   RETURN; END get_object_ddl; / SELECT *   FROM
    TABLE(get_object_ddl(CURSOR (SELECT object_name, owner, object_type
                                   FROM dba_objects
                                  WHERE owner = 'EMP'
                                        AND object_type IN
                                        ('VIEW',
                                             'TABLE',
                                             'TYPE',
                                             'PACKAGE',
                                             'PROCEDURE',
                                             'FUNCTION',
                                             'SEQUENCE'))));
    
    1. 列表项

答案 2 :(得分:1)

get_ddl返回CLOB。将其转换为字符类型,您的图书馆不会添加(CLOB)。

select to_char(dbms_metadata.get_ddl('TABLE','Table_name','Schema_Name'))
    from dual;