修改数据库的元数据

Question

这很简单，我有一个包含许多表的数据库，我想做的是为所有表示布尔值（一个字符（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;