导入指定文件的数据库

欢迎进入Oracle社区论坛，与200万技术人员互动交流 >>进入 导入指定文件的数据库 [sql] create or replace procedure IMP_DATA （ file_name in varchar2 --要导入的文件名，包含路径（如：d:\test\exp_0003.txt） ,p_user in varchar2 default SYS_CONTEXT

欢迎进入Oracle社区论坛，与200万技术人员互动交流 >>进入

　　导入指定文件的数据库

　　[sql]

　　create or replace procedure IMP_DATA

　　（

　　file_name in varchar2 --要导入的文件名，包含路径（如：d:\test\exp_0003.txt）

　　,p_user in varchar2 default SYS_CONTEXT（'USERENV', 'CURRENT_USER'） --要导入的用户，缺省为当前用户

　　,p_sep in varchar2 default ',' --字段分隔符，默认为逗号（需要打开要导入的文件确认导入的字段分隔符）

　　） AS

　　/*

　　描述：根据EXP_DATA过程导出的数据进行导入

　　created by cryking 2013.03.07

　　注意：1.本存储建议由SYS账户或具有SYSDBA权限的账户执行

　　2.不要在其他事务中运行本存储过程

　　3. 默认导入的数据（p_user为空，或未指定）全部在当前用户下

　　*/

　　v_file UTL_FILE.file_type;

　　TYPE t_filed IS TABLE OF varchar2（200） INDEX BY BINARY_INTEGER;

　　v_fileds t_filed;

　　TYPE t_data IS TABLE OF varchar2（4000） INDEX BY BINARY_INTEGER;

　　v_data t_data;

　　v_datatype t_data;

　　v_sql varchar2（30000）；

　　V_esql varchar2（30000）；

　　v_filed VARCHAR2（100） := '';

　　v_filedstr VARCHAR2（4000） := '';

　　V_TABLE VARCHAR2（1000）；

　　v_user varchar2（20）；

　　v_path varchar2（500）；

　　v_filename varchar2（50）；

　　v_sep varchar2（10）；

　　v_text varchar2（32600）；

　　v_textTmp varchar2（32600）；

　　i_flag integer:=0;

　　I_TABLE INTEGER;

　　exp_sep exception;

　　ex_table exception;

　　BEGIN

[1] [2] [3]