在所有表中创建视图和更改

Question

我正在尝试在过程中创建一个逻辑，使用游标为所有表创建数据库视图，并为架构中的所有表创建一个名为 HISTORY_DATE 的新列。我需要帮助构建下面的逻辑。

create or replace PROCEDURE ALTER_TABLES(
  RC OUT INT
  ,MSG OUT VARCHAR)
AS
BEGIN

DECLARE

CURSOR TBL_CUR IS
  SELECT TABLE_NAME FROM USER_TABLES;
TBL_REC TBL_CUR%ROWTYPE;  
SQL_STMT  VARCHAR(2000);

BEGIN
  OPEN TBL_CUR;
    LOOP
      FETCH TBL_CUR INTO TBL_REC;
      EXIT WHEN TBL_CUR%NOTFOUND;

      PRINT_DETAILS(TBL_REC.TABLE_NAME);            


      SQL_STMT:= 'ALTER TABLE '
         || TBL_REC.TABLE_NAME
         || ' ADD HISTORY_DATE DATE'
         || ' AND'
         || ' CREATE OR REPLACE VIEW all_tbl AS'
         || ' SELECT *'
         || ' FROM USER_TABLES'
         ;

      PRINT_DETAILS(SQL_STMT);
      EXECUTE IMMEDIATE SQL_STMT;


    END LOOP;
  CLOSE TBL_CUR;

  rollback;

END;

END;

Answer 1

您只想创建一次视图；正如 Gordon Linoff 所说，你不能同时做两件事。所以在循环之外创建视图；像这样的东西（未经测试）：

create or replace PROCEDURE ALTER_TABLES(RC OUT INT
                                    ,MSG OUT VARCHAR)
AS
BEGIN

DECLARE

CURSOR TBL_CUR IS
SELECT TABLE_NAME FROM USER_TABLES;
TBL_REC TBL_CUR%ROWTYPE;  
SQL_STMT  VARCHAR(2000);

BEGIN
          SQL_STMT  := 'CREATE OR REPLACE VIEW all_tbl AS'
                 || ' SELECT *'
                 || ' FROM USER_TABLES';
          PRINT_DETAILS(SQL_STMT);
          EXECUTE IMMEDIATE SQL_STMT;

          OPEN TBL_CUR;
              LOOP
                FETCH TBL_CUR INTO TBL_REC;
                EXIT WHEN TBL_CUR%NOTFOUND;

                PRINT_DETAILS(TBL_REC.TABLE_NAME);            


                 SQL_STMT:= 'ALTER TABLE '
                 || TBL_REC.TABLE_NAME
                 || ' ADD (HISTORY_DATE DATE)'
                 ;

                  PRINT_DETAILS(SQL_STMT);
                  EXECUTE IMMEDIATE SQL_STMT;


              END LOOP;
          CLOSE TBL_CUR;

--rollback;

END;

现在，我认为不需要创建视图 all_tbl，因为它是视图 USER_TABLES 的副本——所以只需使用 USER_TABLES——但我把它的创建留在那里如果您只需要来自USER_TABLES 的某些列或某些行，您就知道该放在哪里。