如何导出Oracle的存储过程为Sql语句

Oracle中，过程、type、函数等对象的源码可以通过USER_SOURCE或DBA_SOURCE查询；注意观察查询结果中，带有LINE字段，表示该段源码的行号。

所以我们可以通过拼接"CREATE OR REPLACE PACKAGE"拼接查询结果，生成创建过程、函数等的sql语句，举例：

 

SET HEADING OFF;

SET FEEDBACK OFF;

--每行限制200，不然存储过程换行会报错

SET LINESIZE 200;

SPOOL prc.sql;

 

SELECT TEXT

FROM (SELECT NAME,

TYPE,

LINE,

CASE A.LINE

WHEN 1 THEN

'CREATE OR REPLACE ' || A.TEXT

ELSE

A.TEXT

END TEXT

FROM USER_SOURCE A

WHERE TYPE IN ('PROCEDURE', 'PACKAGE', 'PACKAGE BODY')

AND A.NAME <> 'PR_TEST_PROC'

UNION ALL

--每个存储过程后需加/ 否则不会执行

SELECT DISTINCT B.NAME, B.TYPE, MAX(B.LINE) + 1 LINE, '/'

FROM USER_SOURCE B

WHERE TYPE IN ('PROCEDURE', 'PACKAGE', 'PACKAGE BODY')

AND B.NAME <> 'PR_TEST_PROC'

GROUP BY B.NAME, B.TYPE) T

JOIN USER_OBJECTS S

ON T.NAME = S.OBJECT_NAME

AND T.TYPE = S.OBJECT_TYPE

--WHERE S.STATUS = 'VALID'

ORDER BY T.NAME, T.TYPE, T.LINE;

 

SELECT 'quit' FROM DUAL;

SPOOL OFF;

quit

 

 

生成的prc.sql就是我们要的结果啦，可以拿到其他服务器直接执行。