有d:\test.sql
spool d:\tables.txt
select * from t_test where rownum<10;
spool offsqlplus下执行@d:\test.sql可以导出t_test表中的数据到d:\tables.txt以上都没问题现在我想实现定时导出,知道可以用job来做,可是不知道如何用job执行,请高手详细指点,先谢谢各位。
spool d:\tables.txt
select * from t_test where rownum<10;
spool offsqlplus下执行@d:\test.sql可以导出t_test表中的数据到d:\tables.txt以上都没问题现在我想实现定时导出,知道可以用job来做,可是不知道如何用job执行,请高手详细指点,先谢谢各位。
-- 环境 windows 2000 server + oracle 8.1.7
-- 先在 init.ora中的参数utl_file_dircreate or replace procedure write_txtfile( -- 写一个字符串到指定文本文件中
path in varchar2,
name in varchar2,
pstr in varchar2
)
as
l_output utl_file.file_type;
str varchar2(1000);
begin
l_output:=utl_file.fopen(path,name,'a',2000); -- 每行最大字节数最多为32K bytes
--l_output:=utl_file.fopen(path,name,'a'); -- 每行最大字节数最多为1023 bytes
utl_file.put_line(l_output,pstr);
utl_file.fclose(l_output);
exception
when utl_file.invalid_path then
raise_application_error(-20001,'INVALID_PATH!');
when utl_file.invalid_mode then
raise_application_error(-20002,'INVALID_MODE!');
when utl_file.invalid_filehandle then
raise_application_error(-20003,'INVALID_FILEHANDLE!');
when utl_file.invalid_operation then
raise_application_error(-20004,'INVALID_OPERATION!');
when utl_file.read_error then
raise_application_error(-20005,'READ_ERROR!');
when utl_file.write_error then
raise_application_error(-20006,'WRITE_ERROR!');
when utl_file.internal_error then
raise_application_error(-20007,'INTERNAL_ERROR!');
when others then
str:=sqlerrm(sqlcode);
dbms_output.put_line(str);
end;
/
--SQL> execute write_txtfile('e:\','njhart2003.txt','hello oracle,i like oracle!');--PL/SQL 过程已成功完成。
放到job里就行了
-- 环境 windows 2000 server + oracle 8.1.7
-- 先在 init.ora中的参数utl_file_dir???????????