批量更新表字段日期值的存儲過程

堆碼狂人

今天由于測試一個報表，必須要當(dāng)天的數(shù)據(jù)，可我昨天剛測過，數(shù)據(jù)還在庫里，于是想偷個懶，手工修改時間字段為今天的日期，改了不到1分鐘，發(fā)現(xiàn)表太多了，而且記錄時間的字段每個表還不止一個，不如用程序來做。于是寫了下面的這個存儲過程，哈哈，好用

1. /*
   
2. *搜索數(shù)據(jù)庫當(dāng)前用戶的所有表，查出所有含date和time名稱，
   
3. *并且是number(14)類型的字段的日期部分改為當(dāng)前日期
   
4. */
   
5. declare
   
6.   type tcur is ref cursor; --定義游標類型
   
7.   columnsCur   tcur;       --定義表的字段游標
   
8.   sTName       varchar(30);--存儲表名
   
9.   sCName       varchar(30);--存儲字段名
   
10.   nCurrentTime number(14); --存儲當(dāng)前日期
    
11.   updstr       varchar(900);
    
12. begin
    
13.   --獲取當(dāng)前日期YYYYMMDD
    
14.   select to_number(to_char(sysdate, 'YYYYMMDD') || '000000')
    
15.     into nCurrentTime
    
16.     from dual;
    
17. 
    
18.   --從oracle系統(tǒng)表獲取包含數(shù)字日期形式的字段名和對應(yīng)的表名
    
19.   OPEN columnsCur for
    
20.     select p.TABLE_NAME, p.COLUMN_NAME
    
21.       from user_tab_columns p
    
22.      where p.TABLE_NAME IN ('OPENORDER',
    
23.                             'ORDERINSTRUCTION',
    
24.                             'INSTRUCTIONDETAIL',
    
25.                             'INTELLIGENTORDER',
    
26.                             'TRADINGRESULT')
    
27.        and p.DATA_TYPE = 'NUMBER' and p.DATA_PRECISION=14
    
28.        and (p.COLUMN_NAME like '%DATE%' or p.COLUMN_NAME like '%TIME%');
    
29. 
    
30.   --根據(jù)獲得的表名和字段名把目前的時間更新為當(dāng)前日期，時間保持不變
    
31.   loop
    
32.     fetch columnsCur
    
33.       into sTName, sCName;
    
34.     exit when columnsCur%notfound;
    
35.     begin
    
36.       --執(zhí)行更新
    
37.       updstr := 'UPDATE ' || sTName || ' SET ' || sCName || '=' ||
    
38.                 nCurrentTime || '+ to_number(nvl(substr(' || sCName ||
    
39.                 ', 9), 0)) where ' || sCName || ' IS NOT NULL AND ' || sCName || '>0';
    
40.       --debug
    
41.       --dbms_output.put_line(updstr);
    
42.       execute immediate updstr;
    
43.     exception
    
44.       --如果發(fā)生錯誤，打印出執(zhí)行的sql
    
45.       when others then
    
46.         dbms_output.put_line('Error:' || updstr);
    
47.     end;
    
48.     end loop;
    
49.   commit;
    
50. end;

復(fù)制代碼