星期三, 四月 18, 2007
Oracle 升级到11.5.10以后 入库失败 !请教各位大大
Oracle 升级到11.5.10以后 入库失败 !请教各位大大 查看全文
星期一, 五月 01, 2006
Java手記
這個帖子將來要用來作Java學習的開始篇.
選擇Java的原因:
1.面向對象
2.易于學習
3.平台無關
4.打鐵趁熱
星期三, 四月 19, 2006
UTL_FILE包的應用
windows 2000 server + oracle 8.1.7
1.读文件举例:
-- 环境 windows 2000 server + oracle 8.1.7
-- 先在 init.ora中的参数utl_file_dir
-- 例: utl_file_dir=(d:test,e:,e:share)
--set serveroutput on size 1000000 format wrapped create or replace procedure read_txtfile
( -- 读一个文本文件,并在sqlplus中显示其内容
path in varchar2,
name in varchar2
)
as
l_output utl_file.file_type;
str varchar2(1000);
begin
l_output:=utl_file.fopen(path,name,'r',2000);
-- 每行最大字节数最多为32K bytes
--l_output:=utl_file.fopen(path,name,'r');
-- 每行最大字节数最多为1023 bytes
loop
utl_file.get_line(l_output,str);
dbms_output.put_line(str);
end loop;
exception
when no_data_found then
utl_file.fclose(l_output);
when utl_file.invalid_path then
raise_application_error(-20001,'INVALID_PATH!');
when utl_file.invalid_mode then
raise_application_error(-0002,'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 read_txtfile('d:test','test.txt');
2.写文件举例
-- 环境 windows 2000 server + oracle 8.1.7
-- 先在 init.ora中的参数utl_file_dir
-- 例: utl_file_dir=(d:test,e:,e:share)
--
set serveroutput on size 1000000 format wrapped
create 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 过程已成功完成。
作者:njhart2003 来源:http://www.it-ceo.net/Docs/TEC_DOC/TEC_DOC_05/191331117.htm
星期四, 四月 13, 2006
Source Code
shell ( '/usr/bin/mutt -s '
|| CHR (39)
|| 'The PO '
|| 'T-'
|| header.segment1
|| '/'
|| line.line_num
|| ' Country Code '
|| v_country_code
|| ' does not exist in Lead Time base table'
|| CHR (39)
|| ' -c '
|| CHR (39)
|| v_aom011p_recipients
|| CHR (39)
|| ' '
|| CHR (39)
|| v_aom011p_cc_recipients
|| CHR (39)
|| ' < '
|| v_in_location
|| '/nocountry.txt'
);
星期六, 三月 18, 2006
又是風起的日子
很快又到週末.重複工作的每一天,我開始害怕,怕我還能堅持這樣多久,追尋不到生的意義,活著會越來越累,在無趣的世界逗留只會徒增憎恨而已.原有的信念開始動搖,為甚麼找不到!難道那已是過去而已.很累的時候是否會放棄,放棄自己,放棄家人.....不得而知.很怕,很怕.
星期三, 三月 15, 2006
星期六, 三月 11, 2006
今天搬家!
today we'll change our pace.....9.30就起床過來,累死啦.啊 .............