oracle存储过程--导出数据库表的说明文档

浏览数：17 / 时间：2015年06月12日

Oracle查询表的名字和comments

select a.table_name,b.comments from user_tables a,ALL_TAB_COMMENTS b where a.table_name=b.table_name

查询字段的名字和comments

select distinct a.COLUMN_NAME,b.comments from user_tab_columns a,user_col_comments b where a.COLUMN_NAME=b.column_name and a.TABLE_NAME=b.table_name and a.table_name=upper(‘A_COUNT‘);

创建一个目录

create directory exp_dir as ‘/home/oracle‘;

赋权限(需要sysdb用户)

grant create any directory to scott;

导出表和表字段注释的存储过程

create or replace procedure export_tableInfo as

fhandle utl_file.file_type;

begin
fhandle := utl_file.fopen(‘EXP_DIR‘, ‘example.html‘, ‘w‘,32767);
utl_file.put_line(fhandle ,‘<!DOCTYPE HTML><html><head><meta charset="utf-8"><head><body>‘);
for t in (select a.table_name,b.comments from user_tables a,ALL_TAB_COMMENTS b where a.table_name=b.table_name and a.table_name not like ‘T_BME%‘ oder by a.table_name) loop
--dbms_output.put_line(t.table_name||‘,‘||t.comments);
utl_file.put_line(fhandle ,‘<p>‘||t.table_name||‘,‘||t.comments||‘</p>‘);
utl_file.put_line(fhandle ,‘<table border="1">‘);
for c in (select distinct a.column_name,a.data_type,a.data_length,b.comments from user_tab_columns a,user_col_comments b where a.table_name=b.table_name and a.table_name=t.table_name and a.column_name=b.column_name) loop
--column_name,data_type ,data_length,data_precision,data_scale
--dbms_output.put_line(c.column_name||‘,‘||c.data_type||‘,‘||c.data_length||‘,‘||c.comments);
utl_file.put_line(fhandle ,‘<tr><td>‘||c.column_name||‘</td><td>‘||c.data_type||‘</td><td>‘||c.data_length||‘</td><td>‘||c.comments||‘</tr>‘);
end loop;
utl_file.put_line(fhandle ,‘</table>‘);
end loop;
utl_file.put_line(fhandle ,‘</body></html>‘);
utl_file.fclose(fhandle);
end;