17,086
社区成员
发帖
与我相关
我的任务
分享
CREATE OR REPLACE PROCEDURE MyProce
IS
-- 定义光标
CURSOR cur IS SELECT a.empno,b.name from emp a,empt b where a.emptno=b.emptno;
-- 定义记录类型
TYPE TEST_EMP IS RECORD(empno EMP.empno%TYPE, ename EMP.ename%TYPE);
-- 定义记录变量
rec TEST_EMP;
-- 定义数组类型
YPE MY_EMP IS TABLE OF TEST_EMP INDEX BY VARCHAR2(30);
-- 定义数组变量
MyEmpArray MY_EMP;
BEGIN
FOR r IN cur LOOP
MyEmpArray(r.empno) := r; -- 保存到数组中
--...其它处理
END LOOP;
END;