Изменение метаданных базы данных

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;