Oracle存储过程-自定义数据类型,集合,遍历取值

2

3

4

5

6

7

8

9

10

11

12

13

14

create or replace package test_lu is

  -- Author  : LUJIANING

  -- Created : 2014-3-12 11:27:34

  -- Purpose :

  -- Public type declarations

  procedure test1;

  procedure test2;

  procedure test3;

end test_lu;

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

create or replace package body test_lu is

  ---创建一个自定义数据类型

  TYPE c_user IS RECORD

    (   id number,

        name varchar2(30)

    ); 

  ---根据自定义数据类型创建一个集合

  TYPE c_user_array IS TABLE OF c_user INDEX BY BINARY_INTEGER; 

  ---集合对象

  user_array c_user_array;

  ---数据对象

  user c_user;

  ---计数器

  v_counter number;

  procedure test1 is

  begin

    user.id:=1;

    user.name:=‘luu‘;

    user_array(user.id):=user;

    user.id:=2;

    user.name:=‘lii‘;

    user_array(user.id):=user;   

  end;

  procedure test2 is

  begin

    for v_counter in 1..user_array.count loop

      DBMS_OUTPUT.put_line(user_array(v_counter).id||‘...‘||user_array(v_counter).name);

    end loop;       

  end;

  procedure test3 is

  begin

    test1;

    test2;

  end;

end test_lu;

2

1...luu

2...lii