oracle 備份建表sql

STEP1 :先在外部sql窗口執行：EXECUTE IMMEDIATE 'CREATE OR REPLACE DIRECTORY OUTPUTDIR AS ''D:\''';  

STEP2:建立存儲過程，而後執行~。

CREATE OR REPLACE PROCEDURE TABLE_TO_TXT2 IS

  FILE_HANDLE UTL_FILE.FILE_TYPE;

 

  CURSOR USER_TABLE_CSR IS

    SELECT * FROM USER_TABLES;

  ROW_USER_TABLE USER_TABLE_CSR %ROWTYPE;

 

  TABLENAME VARCHAR2(200);

 

 

CREATE_TABLE_SQL_CLOB    CLOB;

 BEGIN

    FOR ROW_USER_TABLE IN USER_TABLE_CSR LOOP

    TABLENAME := ROW_USER_TABLE.TABLE_NAME;

          DBMS_OUTPUT.PUT_LINE(TABLENAME);

      FILE_HANDLE := UTL_FILE.FOPEN('OUTPUTDIR' , 'CREATE_TABLE_SQL.txt', 'a');

    UTL_FILE.PUT_LINE(FILE_HANDLE, '');

      SELECT DBMS_METADATA.GET_DDL('TABLE', tablename)

        INTO CREATE_TABLE_SQL_CLOB

        FROM DUAL;

      UTL_FILE.PUT_LINE(FILE_HANDLE, CREATE_TABLE_SQL_CLOB);

     UTL_FILE.FCLOSE(FILE_HANDLE);

  END LOOP;

 

END;