Oracle批量修改表字段類型（存儲過程）

  
  DECLARE
    CURSOR TEMP IS SELECT CREDITZS_CODE,ATTRIBUTE_CODE,ATTRIBUTE_INFO_TYPE,T.ID FROM CREDIT_DIRECTORY_ATTRIBUTE T,CREDIT_DIRECTORY_TREE E WHERE T.TREE_ID=E.ID  AND ATTRIBUTE_INFO_TYPE='number'AND ATTRIBUTE_CODE IN('CF_NR_FK','CF_NR_WFFF');
    STR  VARCHAR2(100) := '';
    ATT  NUMBER;
  BEGIN 
      FOR S IN TEMP LOOP
        STR := 'ALTER TABLE '||S.CREDITZS_CODE||' MODIFY('||S.ATTRIBUTE_CODE||' NUMBER(30,4))';
        ATT :=1;
        BEGIN
           EXECUTE IMMEDIATE STR ;
            EXCEPTION
                   WHEN OTHERS THEN
                      ATT :=0;
         END;           
         IF     ATT=1 THEN 
             UPDATE  CREDIT_DIRECTORY_ATTRIBUTE SET ATTRIBUTE_PRECISION=4  WHERE ID=S.ID;
         END IF  ;           
      END LOOP;
  END;

大致解釋：1.先查詢語句。2.將語句拼接后賦值給STR。3. 正常運行的語句則返回ATT :=1。4.如果有錯誤數據則跳過錯誤語句繼續執行（EXCEPTION WHEN OTHERS THEN），且返回ATT :=0。 5. 當 ATT=1 時，則執行另外一個語句。