这可能是您正在寻找的示例:
create or replace type employeeObj as object (id number, name varchar2(100));
create or replace type employeeList is table of employeeObj;
create or replace type employeeListObj as object
(
listOfEmployees employeeList,
member procedure GetAllEmployees
);
create or replace type body employeeListObj is
member procedure GetAllEmployees is
begin
for i in listOfEmployees.first .. listOfEmployees.last loop
dbms_output.put_line('Emp: ' || listOfEmployees(i).name );
end loop;
end;
end;
这个怎么运作:
SQL> declare
2 vListEmp employeeList;
3 vListEmpObj employeeListObj;
4 begin
5 vListEmp := employeeList();
6 vListEmp.extend(2);
7 vListEmp(1) := employeeObj(1, 'John Smith');
8 vListEmp(2) := employeeObj(2, 'Steve James');
9
10 vListEmpObj := new employeeListObj(vListEmp);
11
12 vListEmpObj.GetAllEmployees();
13 end;
14 /
Emp: John Smith
Emp: Steve James
PL/SQL procedure successfully completed.