当前位置:数据库 > Oracle >>

在ORACLE里用存储过程定期分割表

答案:      Oracle数据库里存放着各种各样的数据,其中有一些数据表会随着时间的推移,越来越大。如交友聊天的日志、
    短信收发的日志、生产系统的日志、动态网站发布系统的日志等等。这样的信息又和时间紧密相关,有没有办法
    让这些日志表能到时间自动分割成历史年月(如log200308,log200309)的表呢? 请看看我用存储过程定期分割表的
    方法吧。
   
    一、问题的引出
   
      1.初学数据库时只知道用delete来删除表里的数据。但在Oracle数据库里,大量delete记录后,并不能释放表
        所占用的物理空间,这里面有一个高水位的概念,所以我们不能用delete来分割表。
       
      2.用重命名(rename)表的方法
     
       (1).先建一个和原来日志表(假如是log)数据结构一模一样的新表(如log_new),建约束、索引及指定字段的默
           认值;
       (2).重命名表log到log_YYYYMM; 
       要注意的问题是OLTP系统可能会因为DML操作阻碍重命名执行成功,出现ORA-00054资源正忙的错误提示,
       需要试多次才能成功。
       (3).重命名表log_new到log。
           这样应用程序不用修改(受影响的时间仅几秒钟),日志表就被截断分割了。
          
        上述步骤可以在Oracle里可以用存储过程来实现它们。
       
    二、用存储过程来分割表
       
        可以看到在重命名表的方法中,步骤(2)是个关键。
        下面这个rename_table过程会在有锁阻碍的情况下用递归的方式重试100次。  

       重命名原始表到目标表的存储过程rename_table:
                 
       create or replace procedure rename_table
       (source_nameinvarchar2,
        target_namein varchar2,
        timesin outnumber)
       is
          query_str varchar2(4000);
          source_name1 varchar2(64);
          target_name1 varchar2(64);
          cursor c1 is select segment_name from user_segments where segment_name=upper(source_name);
          dummy c1%rowtype;
          cursor c2 is select segment_name from user_segments where segment_name=upper(target_name);
          dummy2 c2%rowtype;
       begin
          source_name1:=source_name;
          target_name1:=target_name;
      
          open c1;
          fetch  c1  into   dummy;
       --   if c1%found then
       --   dbms_output.put_line(source_name1||'exist!');
       --   end if;
      
          open c2;
          fetch  c2  into   dummy2;
       --   if c2%notfound then
       --        dbms_output.put_line(target_name1||'not exist!');
       --   end if;

          if c2%notfound  and c1%found then
   query_str :='alter table '||source_name1||' rename to '||target_name1;
      execute immediate query_str;
      dbms_output.put_line('rename success!');
          end if;
          close c1;
          close c2;
       exception
          WHEN OTHERS THEN 
               times:=times+1;
               if times<100 then
       --        dbms_output.put_line('times:'||times);
          rename_table(source_name1,target_name1,times);
          else
          dbms_output.put_line(SQLERRM);
          dbms_output.put_line('error over 100 times,exit');
          end if;
       end;
       /

       截断分割log表的存储过程log_history:
      
       create or replace procedure log_history
       is
          query_str varchar2(32767);
          year_month varchar2(8);
          timesnumber;
       begin
          select to_char(sysdate-15,'YYYYMM') into year_month from dual;
          times:=0;
          query_str :='create table log_new pctfree 10 pctused 80
           as select * from log where 1=2';
          execute immediate query_str;
          query_str :='alter table log_new add constraints log_'||year_month||'_pk
                        primary key (id) tablespace indx nologging pctfree 10';
          execute immediate query_str;  
          query_str :='alter table log_his modify logtime default sysdate';
          execute immediate query_str;  
          query_str :='create index log_'||year_month||'_logtime on log(logtime)
               tablespace indx nologging pctfree 10';
          execute immediate query_str;         
&n

上一个:Oracle的一些资料
下一个:Oracle开发人员 JAVA存储过程

Oracle
MySQL
Access
SQLServer
DB2
Excel
SQLite
SYBASE
Postgres
如果你遇到数据库难题:
请访问www.zzzyk.com 试试
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,