修改数据库

Question

这是简单的元数据，我有一个包含许多表和我想做的事是默认值添加到所有代表一个布尔值（一个char（1个字节））领域的数据库。那么，有没有一种方法（使用函数）编写使用数据库及其表的元数据来添加默认值，而无需手动遍历每个领域中各表中的一些逻辑？

希望这是明确的家伙:)

Answer 1

使用块下面给出做你的任务

DECLARE 

LV_SQL VARCHAR2(4000); 

    CURSOR C_GET_COLUMNS IS 
    SELECT TABLE_NAME,COLUMN_NAME,NULLABLE,DATA_LENGTH,DATA_TYPE 
     FROM USER_TAB_COLUMNS 
    WHERE DATA_TYPE = 'CHAR' 
     AND DATA_LENGTH = 1; 

BEGIN 

    FOR I IN C_GET_COLUMNS LOOP 
     LV_SQL := 'ALTER TABLE '||I.TABLE_NAME||' MODIFY '||I.COLUMN_NAME||' '||I.DATA_TYPE||'('||I.DATA_LENGTH||') DEFAULT '||CHR(39)||'Y'||CHR(39); 
     EXECUTE IMMEDIATE LV_SQL; 
     LV_SQL := 'UPDATE '||I.TABLE_NAME||' SET '||I.COLUMN_NAME||' = '||CHR(39)||'Y'||CHR(39)||' WHERE '||I.COLUMN_NAME||' IS NULL'; 
     DBMS_OUTPUT.PUT_LINE(LV_SQL); 
     EXECUTE IMMEDIATE LV_SQL; 
    END LOOP; 

END;