如何实现一个功能，将oracle中一个用户下的所有表结构导出到.sql文件中

最新推荐文章于 2024-07-02 17:08:54 发布

cucanqi9387

最新推荐文章于 2024-07-02 17:08:54 发布

阅读量349

点赞数

文章标签：数据库

pub上的一个案例　

http://www.itpub.net/thread-985145-1-1.html

1.用system用户创建路径 utl_dir用于存放文件

SQL> create or replace directory UTL_DIR as 'd:\dba';
SQL> grant write on directory UTL_DIR to public;
SQL> grant read on directory UTL_DIR to public;

2.在hr用户创建存储过程导出单个表结构
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;

3.导出所有表的结构
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;