实用的备份PL/SQL程式工具

功能: 用于备份当前用户所拥有的任何pl/sql objects (包括 type,type body, procedure , function, package, package body or java source )   原理: 对user_source数据字典的调用,得到任何的 pl/sql 代码.   使用方法举例: 1.     在c盘建立目录c:/export 2.     将export_source.sql和extract_source.sql拷贝到c盘根目录. 3.     登陆sqlplus , connect scott/tiger 4.     运行@c:/export_source.sql 5.     执行结束,任何的scott拥有的pl/sql object的代码文档建立在c:/export目录里． 后缀名.pks 表示package 后缀名.pkb 表示package body 后缀名.sql 表示其他objects     备注： 假如想得到数据库中各个schema的pl/sql objects ,只需把工具代码中的user_source改成dba_source,由system 运行即可.         工具代码： export_source.sql   set serveroutput on size 1000000 set echo off verify off feedback off trimspool on pages 0 lines 512 set termout off set termout on   prompt prompt pl/sql export utility prompt prompt this utilty exports all of the current schemas pl/sql source code into prompt a subdirectory called export. prompt prompt exporting current users source to folder ./export   set termout off spool temp_source_extract.sql prompt set echo off verify off feedback off trimspool on termout off pages 0 lines 512   declare     /*     || this cursor extracts each pl/sql stored procedures name and procedure type     */     cursor cur_source_programs     is         select    distinct us.name, us.type,                   us.name || decode(us.type, package,      .pks,                                              package body, .pkb,                                              .sql) spool_file         from      user_source us         order by  us.name, us.type;   begin     for cur_source_programs_row in cur_source_programs     loop         dbms_output.put_line(spool export/ || user || _ || cur_source_programs_row.spool_file);         dbms_output.put_line(@extract_source || cur_source_programs_row.name || " || cur_source_programs_row.type || ");         dbms_output.put_line(spool off);     end loop;   end; /   spool off @temp_source_extract   set feedback on verify on termout on   prompt export complete! prompt　 　　   extract_source.sql:   set head off verify off prompt --************************************************************************************--; prompt --*; prompt --*  script:        &2 &1; prompt --*; prompt --*  author:; prompt --*;                 prompt --*; prompt --*  purpose:; prompt --*;                 prompt --*; prompt --*;                 prompt --*;                prompt --*; prompt --*  parameters:; prompt --*;                prompt --*; prompt --*  dependencies:  none; prompt --*; prompt --*  revisions:; prompt --*  ver        date        author              description; prompt --*  ---------  ----------  ------------------  ------------------------------------; prompt --* ;         prompt --*; prompt --*************************************************************************************--;     select    decode(rownum, 1, create or replace || rtrim(rtrim(us.text, chr(10) )),                             rtrim(rtrim(us.text, chr(10) ))) text from      user_source us where     us.name = &1 and       us.type = &2 order by  us.line;   prompt / prompt        

以上内容由 华夏名网 收集整理，如转载请注明原文出处，并保留这一部分内容。

“华夏名网” http://www.sudu.cn 和 http://www.bigwww.com 是成都飞数科技有限公司的网络服务品牌，专业经营虚拟主机,域名注册，VPS,服务器租赁业务。公司创建于2002年，经过近5年的高速发展，“华夏名 网”已经成为我国一家知名的互联网服务提供商，被国外权威机构webhosting.info评价为25大IDC服务商之一。