pl/sql学习3——pl/sql表

最新推荐文章于 2024-02-25 09:00:00 发布

ceclar123

最新推荐文章于 2024-02-25 09:00:00 发布

阅读量508

点赞数

分类专栏： PL/SQL学习文章标签： table integer

本文链接：https://blog.csdn.net/ceclar123/article/details/7815374

版权

PL/SQL学习专栏收录该内容

11 篇文章 0 订阅

订阅专栏

pl/sql表类似于数组，元素个数无限制，下标可以为负数;多条单列，可以与其他类型配合使用

create or replace
PROCEDURE PR_TABLE_VARIABLE
AS
BEGIN
  DECLARE
    /*pl/sql记录*/
  type V_RECORD IS RECORD(
    rum NUMBER(10),
    DEPTNO DEPT.DEPTNO%type,
    DNAME DEPT.DNAME%type,
    LOC DEPT.LOC%type 
  );
  type TABTYPE is table of V_RECORD index by BINARY_INTEGER;
  MYTAB TABTYPE;
  IX NUMBER;
BEGIN
  IX       := 1;
  FOR item IN (SELECT rownum,DEPTNO,DNAME,LOC FROM DEPT ORDER BY DEPTNO ASC)
  LOOP
    MYTAB(ITEM.rownum).rum    := ITEM.rownum;
    MYTAB(ITEM.rownum).DEPTNO := ITEM.DEPTNO;
    MYTAB(ITEM.rownum).DNAME  := ITEM.DNAME;
    MYTAB(ITEM.rownum).LOC    := ITEM.LOC;
    IX                        := IX + 1;
  END LOOP;
  
  IX       := MYTAB.First;
  FOR item IN IX..MYTAB.count
  LOOP
    DBMS_OUTPUT.PUT_LINE(IX||' '''||MYTAB(IX).rum ||' '''||MYTAB(IX).DEPTNO||' '''||MYTAB(IX).DNAME||' '''||MYTAB(IX).LOC);
    IX := MYTAB.next(IX);
  END LOOP;
END;
END PR_TABLE_VARIABLE;