Question

创建varray：

CREATE OR REPLACE TYPE ListaCursos IS VARRAY(10) OF Cursos;

DECLARE
    listaCursos1 ListaCursos;
    c1 Cursos;
    c2 Cursos;
    p_ref REF Profesor;
    p_ref2 REF Profesor;
BEGIN
    SELECT REF(p) INTO p_ref FROM Profesorado p WHERE p.codigo = 3;
    c1 := NEW Cursos(1, 'Curso 1', p_ref, 20, '01/06/2011', '01/07/2011', 30);
    SELECT REF(p) INTO p_ref2 FROM Profesorado p WHERE p.dni='51083099F';
    c2 := NEW Cursos(2, 'Curso 2', p_ref2, 20, '01/06/2011', '01/07/2011', 30);
    listaCursos1 := ListaCursos(c1, c2);
END;
/

尝试使用它：

CREATE TABLE Alumnado OF Alumno;

DECLARE
    a1 Alumno;
    a2 Alumno;
    listaCursos1 ListaCursos;
BEGIN
    a1 := NEW Alumno(100, '76401092Z', 'MANUEL', 'SUAREZ IBAÑEZ', 'M', '30/6/1990', listaCursos1(1));
    a2 := NEW Alumno(102, '6915588V', 'MILAGROSA', 'DIAZ PEREZ', 'F', '28/10/1984', listaCursos1(2));
    INSERT INTO Alumnado VALUES (a1);
    INSERT INTO Alumnado VALUES (a2);
END;
/

现在它显示了这个错误：

DECLARE * 第1行的错误： ORA-06531：未初始化集合的参考 ORA-06512：第6行

Answer 1

创建包规范。

create package  test_pkg 
is 
 g_listaCursos1 ListaCursos; 
end;

在第一个栏目中添加

   test_pkg.g_listaCursos1  := ListaCursos(c1, c2);

来自软件包规范的第二个读取值。

test_pkg.g_listaCursos1(1) , test_pkg.g_listaCursos1(2)

限制：

可以在同一会话中访问包变量

Answer 2

如果在PL / SQL块中创建一个类型，它将仅在该块内可用。因此，您在第一个块内创建的VARRAY仅在该块内可用。您可以创建一个独立类型，它将存储在数据库中直到您删除它，或者您可以在包内创建一个类型并通过包引用该类型。有关详细信息，请阅读Oracle Docs

Store Varray [PL / SQL]

2 个答案: