MyException - 我的异常网
当前位置:我的异常网» 数据库 » 复建SEQUENCE的值

复建SEQUENCE的值

www.MyException.Cn  网友分享于:2013-08-29  浏览:1次
重构SEQUENCE的值
1.oracle版本
CREATE OR REPLACE PROCEDURE modify_SEQ
IS
/**===============================================================================
控制变量定义
===============================================================================*/
  V_tablename VARCHAR2(200);    --定义表名
  V_sqlStr    VARCHAR2(1000);   --定义SQL语句
  V_cnt       NUMBER(10) DEFAULT 0;      --定义表的行数
  V_seq_name  VARCHAR2(100);    --定义SEQ名称
  MySql       VARCHAR2(200);
  --定义一个游标,用于获取存储过程列表,并迭代赋值给调用者
  type                  cur_type is ref cursor;    --定义游标类型
  myCursor    cur_type;                         --定义一个游标,保存表名列表
  v_count NUMBER(10) DEFAULT 1;
/*===============================================================================
主体操作,获得所有的SEQ名称,根据下面的SQL语句,获得相对应的数据
===============================================================================*/
   
   CURSOR temp_cursor IS SELECT sequence_name FROM User_Sequences s INNER JOIN (
                         SELECT T.TABLE_NAME, T.DATA_TYPE
                         FROM USER_TAB_COLUMNS T
                         INNER JOIN USER_OBJECTS OBJ ON T.TABLE_NAME = OBJ.OBJECT_NAME
                         WHERE T.COLUMN_NAME = 'ID'
                         AND T.DATA_TYPE = 'NUMBER'
                         AND T.TABLE_NAME NOT LIKE 'BIN%'
                         AND T.TABLE_NAME NOT LIKE 'JTYH%'
                         AND T.TABLE_NAME NOT IN ('SP_REPORT_RESULT', 'FE_RESOURCE')
                         ORDER BY T.TABLE_NAME) t ON Substr(s.sequence_name,5) = t.TABLE_NAME; 
   BEGIN
/*===============================================================================
根据单个的SEQ的名称获得对应的表的名称
===============================================================================*/
   	 OPEN temp_cursor;
     LOOP fetch temp_cursor INTO V_seq_name;
     --查询结束的条件
      exit when get_procedure_list%NOTFOUND;
     SELECT SUBSTR(V_seq_name,5) INTO V_tablename FROM dual;
/*处理特殊的5个表名,因为表名过长*/
     CASE  V_seq_name
           WHEN 'SEQ_BD_BOND_ACCURAL_INTEREST_C' THEN
                V_tablename:='BD_BOND_ACCURAL_INTEREST_CL';
           WHEN 'SEQ_SP_BM_STRUCT_INDEX_RELATIO' THEN
                V_tablename:='SP_BM_STRUCT_INDEX_RELATIO';
           WHEN 'SEQ_SP_REPORT_MODEL_USER_RI_HS' THEN
                V_tablename:='SP_REPORT_MODEL_USER_RIGHT_HS'; 
           WHEN 'SEQ_TD_BM_ASSETCLASS_YIELD_RAT' THEN
                V_tablename:='TD_BM_ASSETCLASS_YIELD_RATE'; 
           WHEN 'SEQ_TD_YIELD_RATE_PA_BM_AC_HEL' THEN
                V_tablename:='TD_YIELD_RATE_PA_BM_AC_HELD';
           ELSE
                 V_tablename:= V_tablename;
     END CASE;     
/* 获得表的最大的ID号,然后将ID设置给V_cnt,处理没有数据的时候的情况 */     
     MySql :='SELECT max(id)  FROM ' ||V_tablename;
     open myCursor for MySql; 
     fetch myCursor into V_cnt;
     close myCursor;
     IF V_cnt IS NULL 
     THEN
        V_cnt := 10000;
     END IF;
     V_cnt := V_cnt+1;
     v_count :=v_count +1;
/* 打印出信息 但是要先设定:
		sec@ora10g> show serveroutput
		serveroutput OFF
		sec@ora10g>set serveroutput on
		sec@ora10g> show serveroutput
		serveroutput ON SIZE 10000 FORMAT WORD_WRAPPED
 */     
     DBMS_OUTPUT.put_line(v_count);   
     /* 先删除旧的SEQUENCE,然后根据新的值来创建,这里使用的动态的SQL */
     V_sqlStr := 'drop SEQUENCE '||V_seq_name;
     execute immediate V_sqlStr;
     V_sqlStr :='CREATE SEQUENCE '||V_seq_name|| ' MINVALUE 1 MAXVALUE 100000000000 INCREMENT BY 1 START WITH '||V_cnt|| ' nocache cycle';
     execute immediate V_sqlStr;
     END LOOP;
     CLOSE temp_cursor;
END modify_SEQ;

begin 
modify_SEQ;
end;
/

2.DB2版
CREATE PROCEDURE PRO_BD_SEQ()
 
begin
	declare tabName VARCHAR(200) ;
	declare tabSeq BIGINT default 0;
	declare seqName varchar(200);
	declare sqlStr varchar(2000);
	declare seqStr varchar(2000);
	
  
    --定义一个游标,用于取得
     DECLARE   myCursor   CURSOR   WITH   RETURN   FOR   MySql; 
	--获得所有的表的名称
	for names as  select t.tabname from
 (select t.tabname  from syscat.tables t where t.tabschema = 'RISK' and t.TYPE = 'T' and t.tabname not like '%JTYH%' and t.tabname not like 'FE_%' )t inner join (
select tabname from SYSCAT.COLUMNS c where c.colname = 'ID'and c.typename = 'INTEGER'
) c on t.tabname = c.tabname and t.tabname != 'PD_PA_ACCOUNT_RELATION' order by t.tabname
	do 
	set tabName = tabname;
   --拼装获得每个表的最大的id值,用来重新设置SEQUENCE
	set sqlStr = 'select max(id) from '||tabName;  
    --将获得的表名拼装到可执行的动态sql中去执行
	
	prepare MySql from sqlStr;

    --开启游标
    open myCursor;
    --动态获得多查询出来的最大的ID
    fetch myCursor into tabSeq;
    --关闭
    close myCursor;
	--设置新的SEQUENCE
	set tabSeq = tabSeq+1;
	set seqName = 'SEQ_'||tabName;
	set seqStr = 'ALTER SEQUENCE '||seqName||' RESTART WITH '||char(tabSeq);
    --执行修改
	execute immediate seqStr;
	set tabName = '';
	set tabSeq = 0;	
	end for;
	end
;

call PRO_BD_SEQ;

文章评论

Java程序员必看电影
Java程序员必看电影
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
程序员的鄙视链
程序员的鄙视链
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
一个程序员的时间管理
一个程序员的时间管理
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
编程语言是女人
编程语言是女人
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
10个调试和排错的小建议
10个调试和排错的小建议
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
每天工作4小时的程序员
每天工作4小时的程序员
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
鲜为人知的编程真相
鲜为人知的编程真相
总结2014中国互联网十大段子
总结2014中国互联网十大段子
程序员和编码员之间的区别
程序员和编码员之间的区别
我是如何打败拖延症的
我是如何打败拖延症的
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
旅行,写作,编程
旅行,写作,编程
那些争议最大的编程观点
那些争议最大的编程观点
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
程序员都该阅读的书
程序员都该阅读的书
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
为什么程序员都是夜猫子
为什么程序员都是夜猫子
我的丈夫是个程序员
我的丈夫是个程序员
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
程序员应该关注的一些事儿
程序员应该关注的一些事儿
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员必看的十大电影
程序员必看的十大电影
老程序员的下场
老程序员的下场
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有