1. 用system用户创建路径 utl_dir用于存放文件
create or replace directory UTL_DIR as 'C:\dba';
grant write on directory UTL_DIR to public;
grant read on directory UTL_DIR to public;
2. 在需要导出表结构的用户下创建存储过程(导出单个表结构)
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);
END;
END P_EXPORTDLL;
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
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;
4. 调用存储过程,批量导出表结构
EXEC P_WHOLE;
最后,在C:\dba 目录下查看导出的 sql 文件。另外,下面是分享的两篇博文,供参考。
- 链接 1
oracle create or replace directory 的用法 - 链接 2
如何实现一个功能,将oracle中一个用户下的所有表结构导出到.sql文件中