使用选择而不是 table 的循环游标 (Oracle)

Question

我正在编写一个程序来填充父 table 的子 table。然而，子 table 比父 table 有更多的字段（它应该是）。我想出了一个指向一个选择的光标，它本质上是多个 table 的连接。这是我到目前为止得到的代码：

CREATE OR REPLACE PROCEDURE Pop_occ_lezione
AS
x Lezione%rowtype;
CURSOR cc IS 
WITH y as(
            SELECT  Codice_corso, 
                    nome_modulo, 
                    Data_inizio_ed_modulo diem, 
                    Giorno_lezione, 
                    ora_inizio_lezione o_i, 
                    ora_fine_lezione o_f, 
                    anno, 
                    id_cdl, 
                    nome_sede, 
                    locazione_modulo loc
            FROM    lezione 
                    join ( select id_cdl, anno, codice_corso from corso ) using (codice_corso)
                    join ( select codice_corso, locazione_modulo from modulo ) using (codice_corso)
                    join ( select nome_sede, id_cdl from cdl  ) using (id_cdl)
            WHERE
                case
                    when extract (month from Data_inizio_ed_modulo) < 9 then extract (year from Data_inizio_ed_modulo) - 1
                    else extract (year from Data_inizio_ed_modulo)
                    end = extract (year from sysdate+365)
        )
SELECT *
FROM y
WHERE sem_check(y.diem,sysdate+365) = 1;
--
BEGIN
FETCH cc into x;
EXIT when cc%NOTFOUND;
INSERT INTO Occr_lezione 
VALUES (
            x.Codice_corso,
            x.Nome_modulo,
            x.diem,x.giorno_lezione,
            x.Ora_inizio_lezione,
            to_date(to_char(next_day(sysdate,x.Giorno_lezione),'DD-MM-YYYY') || to_char(x.Ora_inizio_lezione,' hh24:mi'),'dd-mm-yyyy hh24:mi'),
            to_date(to_char(next_day(sysdate,x.Giorno_lezione),'DD-MM-YYYY') || to_char(x.Ora_fine_lezione,' hh24:mi'),'dd-mm-yyyy hh24:mi'),
            x.nome_sede,
            0,
            x.loc
        );
END LOOP;
END;
/

但它当然不会起作用，因为变量 x 具有我初始 table 行的类型，它的列比我的选择少。不幸的是，据我所知，为了从游标中获取数据，需要一个 rowtype 变量来循环游标。你能看出矛盾吗？我怎样才能更改代码？是否可以设计某种类型的变量来反映我的查询结果中的一行？或者也许是一种在不使用支持变量的情况下循环浏览游标中数据的方法？或者也许是完全不同的东西？请告诉我。

好的，按照建议，我尝试了这样的操作：

INSERT INTO Occr_lezione(
                         Codice_corso,
                         Nome_modulo,
                         Data_inizio_ed_modulo,
                         Giorno_lezione,
                         Ora_inizio_lezione,
                         Ora_fine_lezione,
                         Anno,
                         Id_cdl,
                         Nome_sede,
                         Locazione_modulo
                        )
WITH y as(
            SELECT  Codice_corso, 
                    Nome_modulo, 
                    Data_inizio_ed_modulo, 
                    Giorno_lezione, 
                    Ora_inizio_lezione, 
                    Ora_fine_lezione, 
                    Anno, 
                    Id_cdl, 
                    Nome_sede, 
                    Locazione_modulo
            FROM    Lezione 
                    join ( select Id_cdl, Anno, Codice_corso from Corso ) using (codice_corso)
                    join ( select Codice_corso, Locazione_modulo from Modulo ) using (Codice_corso)
                    join ( select Nome_sede, Id_cdl from Cdl  ) using (id_cdl)
            WHERE
                case
                    when extract (month from Data_inizio_ed_modulo) < 9 then extract (year from Data_inizio_ed_modulo) - 1
                    else extract (year from Data_inizio_ed_modulo)
                    end = extract (year from sysdate+365)
        )
SELECT *
FROM y
WHERE sem_check(y.Data_inizio_ed_modulo,sysdate+365) = 1;
END;
/

但它说 PL/SQL: ORA-00904: "LOCAZIONE_MODULO": 无效标识符

这不是真的，因为查询 return a table 其中存在这样的列...我是否遗漏了什么？代码编译没有错误，它发生在我尝试启动程序时。在 table Occr_lezione 中你可以看到：

CREATE TABLE Occr_lezione (
Codice_corso                varchar2(20)    NOT NULL,
Nome_modulo                 varchar2(50)    NOT NULL,
Data_inizio_ed_modulo       date            NOT NULL,
Giorno_lezione              number(1)       NOT NULL,
Ora_inizio_lezione          date            NOT NULL,
Data_inizio_occr_lezione    date,
Data_fine_occr_lezione      date            NOT NULL,
Nome_sede                   varchar2(30)    NOT NULL,
Num_aula                    varchar2(3)     NOT NULL,
Tipo_aula                   varchar2(20)    NOT NULL,
--
CONSTRAINT fk_Occr_lezione_lezione  FOREIGN KEY (Codice_corso,Nome_modulo,Data_inizio_ed_modulo,Giorno_lezione,Ora_inizio_lezione) REFERENCES Lezione(Codice_corso,Nome_modulo,Data_inizio_ed_modulo,Giorno_lezione,Ora_inizio_lezione) ON DELETE CASCADE,
CONSTRAINT fk_Occr_lezione_aula     FOREIGN KEY (Nome_sede,Num_aula,Tipo_aula)  REFERENCES Aula(Nome_sede,Num_aula,Tipo_aula) ON DELETE SET NULL,
CONSTRAINT pk_Occr_lezione          PRIMARY KEY (Codice_corso,Nome_modulo,Data_inizio_ed_modulo,Giorno_lezione,Ora_inizio_lezione,Data_inizio_occr_lezione),
CHECK       ( trunc(Data_inizio_occr_lezione) = trunc(Data_fine_occr_lezione) ), -- data inizio = data fine // prenotazione giornaliera
CHECK       ( Data_inizio_occr_lezione < Data_fine_occr_lezione ) -- ora inizio < ora fine // coerenza temporale

没有名为 Locazione_modulo 的列，但是最后一列 Tipo_aula 与 Locazione 模数的类型和大小相同：

CREATE TABLE Modulo (
Codice_corso        varchar2(20)    NOT NULL,
Nome_modulo         varchar2(50),
Locazione_modulo    varchar2(20)    NOT NULL,
--
CONSTRAINT fk_Modulo_Corso  FOREIGN KEY(Codice_corso) REFERENCES Corso(Codice_corso) ON DELETE CASCADE,
CONSTRAINT pk_Modulo        PRIMARY KEY(Codice_corso,Nome_modulo),
CHECK       (Locazione_modulo IN ('Aula','Laboratorio','Conferenze'))
);

所以应该是无关紧要的吧？

Answer 1

如果你真的想使用显式游标，你可以将 x 声明为 cc%rowtype

类型

CREATE OR REPLACE PROCEDURE Pop_occ_lezione
AS
  CURSOR cc IS ...
  x cc%rowtype;
...

除非您使用显式游标是因为您希望能够显式地将数据提取到您稍后可以在您的过程中利用的本地集合中，否则使用隐式游标的代码往往更可取。这消除了 FETCH 和 CLOSE 游标或编写 EXIT 条件的需要，并且它隐式地执行批量提取以最小化上下文转换。

BEGIN
  FOR x IN cc
  LOOP
    INSERT INTO Occr_lezione ...
  END LOOP;
END;

当然，无论哪种情况，我都希望您为局部变量选择更有意义的名称——x 和 cc 不会告诉您任何有关变量的信息正在做。

如果您所做的只是从一组 table 中获取数据并将其插入到另一组 table 中，那么编写单个 INSERT 语句会更有效率比编码一个 PL/SQL 循环。

INSERT INTO Occr_lezione( <<column list>> )
  SELECT <<column list>>
    FROM <<tables you are joining together in the cursor definition>>
   WHERE <<conditions from your cursor definition>>

使用选择而不是 table 的循环游标 (Oracle)

Cursor for loop using a selection instead of a table ( Oracle )

oracle

plsql

cursor