向版主们致敬---使用PLSQL 订阅ITPUB RSS源

sniper_bullet

renfengjun 发表于 2012-12-25 23:53
如果遇到如下错误
ORA-29273: HTTP request failed
ORA-06512: at "SYS.UTL_HTTP", line 1819

楼主，你的日历程序能不能贴上来看看，学习下

sniper_bullet

renfengjun 发表于 2012-12-25 23:53
如果遇到如下错误
ORA-29273: HTTP request failed
ORA-06512: at "SYS.UTL_HTTP", line 1819

楼主，你的日历程序能不能贴上来看看，学习下

renfengjun

sniper_bullet 发表于 2012-12-26 18:40
楼主，你的日历程序能不能贴上来看看，学习下

内容如下：

1. create or replace package display_date is
   
2. 
   
3.   procedure display_title (year number , month number) ;
   
4.   procedure display_spec_mon (year number , month number)  ;
   
5. end ;

复制代码

1. create or replace package body display_date is
   
2.   type t_conv_mon is table of varchar2(10) ;
   
3.   conv_mon t_conv_mon := t_conv_mon() ;
   
4.   
   
5.   procedure display_spec_mon (year number , month number)
   
6.   is
   
7.     current_mon date ;
   
8.     current_line varchar2(21) ;
   
9.   begin
   
10. --    dbms_output.put_line (year||lpad(month||'',2,'0')||'01') ;
    
11.     display_title (year,month) ;
    
12.     current_mon := to_date(year||lpad(month||'',2,'0')||'01','yyyymmdd') ;
    
13.     for i in 1 .. (add_months(current_mon,1)-current_mon) loop
    
14.       if i = 1 then
    
15.         current_line := current_line || (lpad(' ',(to_char(current_mon+i-1,'D')-1)*3,'-- '));
    
16.       end if ;
    
17.       current_line := current_line || rpad(i||'',3,' ');
    
18.       if length(current_line)>=21 then
    
19.         dbms_output.put_line(current_line) ;
    
20.         current_line := '' ;
    
21.       end if ;
    
22.     end loop ;
    
23.     dbms_output.put_line(current_line) ;
    
24.   end ;
    
25.   
    
26.   procedure display_title (year number , month number)
    
27.   is
    
28.   begin
    
29.     dbms_output.put_line(year||'.'||conv_mon(month)) ;
    
30.     dbms_output.put_line(lpad(' ',21,'-')) ;
    
31.     dbms_output.put_line('Su Mo Tu We Th Fr Sa');
    
32.   end  ;
    
33. begin
    
34.   conv_mon.extend(12);
    
35.   conv_mon(1) :=  'January' ;
    
36.   conv_mon(2) :=  'February' ;
    
37.   
    
38.   conv_mon(3) :=  'Marcy' ;
    
39.   conv_mon(4) :=  'April' ;
    
40.   
    
41.   conv_mon(5) :=  'May' ;
    
42.   conv_mon(6) :=  'June' ;
    
43.   
    
44.   conv_mon(7) :=  'July' ;
    
45.   conv_mon(8) :=  'August' ;
    
46.   
    
47.   conv_mon(9) :=  'September' ;
    
48.   conv_mon(10) := 'October' ;
    
49.   
    
50.   conv_mon(11) :=  'November' ;
    
51.   conv_mon(12) :=  'December' ;
    
52. end ;

复制代码

1. _sys@DAVID> exec display_date.display_spec_mon(2013,10) ;
   
2. 2013.October
   
3. --------------------
   
4. Su Mo Tu We Th Fr Sa
   
5. -- -- 1  2  3  4  5
   
6. 6  7  8  9  10 11 12
   
7. 13 14 15 16 17 18 19
   
8. 20 21 22 23 24 25 26
   
9. 27 28 29 30 31
   
10. 
    
11. PL/SQL procedure successfully completed.
    
12. 
    
13. _sys@DAVID> exec display_date.display_spec_mon(2012,12) ;
    
14. 2012.December
    
15. --------------------
    
16. Su Mo Tu We Th Fr Sa
    
17. -- -- -- -- -- -- 1
    
18. 2  3  4  5  6  7  8
    
19. 9  10 11 12 13 14 15
    
20. 16 17 18 19 20 21 22
    
21. 23 24 25 26 27 28 29
    
22. 30 31
    
23. 
    
24. PL/SQL procedure successfully completed.

复制代码

lastwinner

嗯，原创内容，加个精华以资鼓励
大家注意其中xml对象的操作

regonly1

不错啊，学习一下。

regonly1

不错啊，学习一下。

gyhgood

good ~收藏之

gyhgood

good ~收藏之

幕南风

不错

幕南风

xml编程 看来我要加强了