ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 导出ddl定义.sql

导出ddl定义.sql

原创 Linux操作系统 作者:Nalternative 时间:2011-04-02 11:25:13 0 删除 编辑

create or replace directory UTL_DIR as 'D:\wang';
/
create or replace procedure p_exportDLL(p_table_name varchar2,p_filename varchar2) is
begin

  declare
    l_file     UTL_FILE.FILE_TYPE;
    l_buffer   VARCHAR2(1000);
    l_amount   BINARY_INTEGER := 100;
    l_pos      INTEGER := 1;
    l_clob     clob;
    l_clob_len INTEGER;
  begin
    select dbms_metadata.get_ddl('TABLE',p_table_name )||';' into l_clob from dual;
    l_clob_len := DBMS_LOB.GETLENGTH(l_clob);
    l_file     := UTL_FILE.FOPEN('UTL_DIR', p_filename||'.sql', 'a', 1000);
   
  

    WHILE l_pos < l_clob_len LOOP
      DBMS_LOB.READ(l_clob, l_amount, l_pos, l_buffer);
      UTL_FILE.put(l_file, l_buffer);
      l_pos := l_pos + l_amount;
    END LOOP;
    UTL_FILE.FCLOSE(l_file);
    --if @@error
  end;
end p_exportDLL;
/
CREATE OR REPLACE PROCEDURE p_whole AS
BEGIN
  FOR x IN (SELECT table_name FROM user_tables) LOOP
       p_exportDLL(x.table_name,'paul');
  END LOOP;
END  p_whole;
/
begin
  p_whole;
end;
/

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/25323853/viewspace-691546/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2011-02-09

  • 博文量
    123
  • 访问量
    177893