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

irisbyjsj

我知道使用一些软件可以实现导出表结构，但是现在我需要在应用程序中实现一个功能，比如点击某一个按钮就将数据库中的表结构导入一个.sql的文件中，这个文件保存在本地硬盘上，并且保证导出来的sql语句能够直接执行。

我现在尝试了几种方法，都以失败告终了
一种是，用exp.exe动态导出文件，导出时，我把文件的后缀改为.sql了，结果有一堆乱码
另一种是，想写个存储过程，使用dbms_metadata包，不过由于我刚接触oracle，水平有限，写不出来

所以请高手帮帮我，还有什么解决办法没有？

等待和希望

SELECT dbms_metadata.get_ddl('TABLE', 'your_table_name') FROM dual;

如果要去除storage clause：
exec dbms_metadata.set_transform_param( dbms_metadata.session_transform, 'STORAGE', FALSE);
SELECT dbms_metadata.get_ddl('TABLE', 'your_table_name') FROM dual;

[ 本帖最后由 等待和希望 于 2008-5-9 14:44 编辑 ]

irisbyjsj

读系统表，然后组合起来，是不是比较麻烦啊？

paulyibinyi

可以用powerdesgin 的反向工程
转过来后 在powerdesign中就可以生成所有表结构脚本了

rollingpig

找个更资深的人做这件事吧

irisbyjsj

我知道这个，我用的是pb，pb里面好像不能直接读clob的数据哦，所以不知道这个语句写在哪里，然后如何将结果写入一个文件。文件目录和文件是在pb程序里面创建的

irisbyjsj

在程序里面自动生成，不使用别的软件

xiaodong_1567

关注

irisbyjsj

就是一个资深的人把这个工作交给我做的，我也想试试不是

irisbyjsj

我参考了一个高手的代码，创建了一个存储过程，如下：
create or replace procedure p_exportDLL(p_path 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', 'XM') into l_clob from dual;
    l_clob_len := DBMS_LOB.GETLENGTH(l_clob);
    l_file     := UTL_FILE.FOPEN(p_path,  p_filename, 'w', 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;

编译成功了的，但是似乎不能用，大家看看有什么问题？

[ 本帖最后由 irisbyjsj 于 2008-5-9 14:56 编辑 ]