批量更新表字段日期值的存储过程

今天由于测试一个报表，必须要当天的数据，可我昨天刚测过，数据还在库里，于是想偷个懒，手工修改时间字段为今天的日期，改了不到1分钟，发现表太多了，而且记录时间的字段每个表还不止一个，不如用程序来做。于是写了下面的这个存储过程，哈哈，好用 无 /*

今天由于测试一个报表，必须要当天的数据，可我昨天刚测过，数据还在库里，于是想偷个懒，手工修改时间字段为今天的日期，改了不到1分钟，发现表太多了，而且记录时间的字段每个表还不止一个，不如用程序来做。于是写了下面的这个存储过程，哈哈，好用 <style> .CodeEntity .code_pieces ul.piece_anchor{width:25px;position:absolute;top:25px;left:-30px;z-index:1000;} .CodeE本文来源gao@!dai!ma.com搞$$代^@码!网!ntity .code_pieces ul.piece_anchor li{width:25px;background: #efe;margin-bottom:2px;} .CodeEntity .code_pieces ul.piece_anchor li{border-left:3px #40AA63 solid;border-right:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li:hover{border-right:3px #40AA63 solid;border-left:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li a{color: #333;padding: 3px 10px;} .CodeEntity .code_pieces .jump_to_code{visibility:hidden;position:relative;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code{visibility:visible;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code a{text-decoration:none;} .CodeEntity .code_pieces h2 i{float:right;font-style:normal;font-weight:normal;} .CodeEntity .code_pieces h2 i a{font-size:9pt;background: #FFFFFF;color:#00A;padding: 2px 5px;text-decoration:none;} </style> <!—ecms

–> <!—ecms
• $velocityCount

–> <!—ecms

–>

/* *搜索数据库当前用户的所有表，查出所有含date和time名称， *并且是number(14)类型的字段的日期部分改为当前日期 */declare  type tcur is ref cursor; --定义游标类型  columnsCur   tcur;       --定义表的字段游标  sTName       varchar(30);--存储表名  sCName       varchar(30);--存储字段名  nCurrentTime number(14); --存储当前日期  updstr       varchar(900);begin  --获取当前日期YYYYMMDD  select to_number(to_char(sysdate, 'YYYYMMDD') || '000000')    into nCurrentTime    from dual;  --从oracle系统表获取包含数字日期形式的字段名和对应的表名  OPEN columnsCur for    select p.TABLE_NAME, p.COLUMN_NAME      from user_tab_columns p     where p.TABLE_NAME IN ('OPENORDER',                            'ORDERINSTRUCTION',                            'INSTRUCTIONDETAIL',                            'INTELLIGENTORDER',                            'TRADINGRESULT')       and p.DATA_TYPE = 'NUMBER' and p.DATA_PRECISION=14       and (p.COLUMN_NAME like '%DATE%' or p.COLUMN_NAME like '%TIME%');  --根据获得的表名和字段名把目前的时间更新为当前日期，时间保持不变  loop    fetch columnsCur      into sTName, sCName;    exit when columnsCur%notfound;    begin      --执行更新      updstr := 'UPDATE ' || sTName || ' SET ' || sCName || '=' ||                nCurrentTime || '+ to_number(nvl(substr(' || sCName ||                ', 9), 0)) where ' || sCName || ' IS NOT NULL AND ' || sCName || '>0';      --debug      --dbms_output.put_line(updstr);      execute immediate updstr;    exception      --如果发生错误，打印出执行的sql      when others then        dbms_output.put_line('Error:' || updstr);    end;    end loop;  commit;end;

喜欢 (0)赏

[搞代码]

分享 (0)