oracle一次給表添加多個欄位

標籤：dia   組織   cut   比較   declare   char   color   source   修改   

遇到一個需求：在已經建好的資料庫中，為每一個資料表都添加相同的3個欄位。

分析:資料庫中的資料表較多，一一手動修改耗時低效，是否可以用程式遍曆每一張表，然後為遍曆到的當前表添加欄位？

查詢目前使用者的所有表定義和為某張表添加欄位比較容易實現的，SQL中遊標可以將這兩者組織起來，因此編寫以下程式實現功能：

DECLARE  V_SQL        VARCHAR2(2000);  V_TABLE_NAME VARCHAR2(30);  CURSOR C1 IS    SELECT TABLE_NAME FROM USER_TABLES;   --查詢目前使用者下的所有表BEGIN  OPEN C1;  LOOP    --提取一行資料到c1    FETCH C1      INTO V_TABLE_NAME;    --判讀是否提取到值，沒取到值就退出    --取到值c_job%notfound 是false     --取不到值c_job%notfound 是true    EXIT WHEN C1%NOTFOUND;    V_SQL := ‘alter table ‘ || V_TABLE_NAME || ‘ add BATCHDATE NUMBER(8,0)‘;    EXECUTE IMMEDIATE V_SQL;    V_SQL := ‘alter table ‘ || V_TABLE_NAME ||             ‘ add SOURCE_ID  NUMBER(8,0)‘;    EXECUTE IMMEDIATE V_SQL;    V_SQL := ‘alter table ‘ || V_TABLE_NAME || ‘ add load_date date‘;    EXECUTE IMMEDIATE V_SQL;  END LOOP; --關閉遊標  CLOSE C1;END;

 

oracle一次給表添加多個欄位