ITPub博客

首页 > Linux操作系统 > Linux操作系统 > table和record 类型用作参数

table和record 类型用作参数

原创 Linux操作系统 作者:yellowlee 时间:2009-08-22 18:04:45 0 删除 编辑

pub上有个兄弟发过帖子问过这个,举例一个用作in参数的:

create table t_test_recod(id number ,name varchar2(10));

insert into t_test_recod select 1,'name1' from dual;

create or replace package pac_test is
  type type_record is record(
    id   t_test_recod.id%type,
    name t_test_recod.name%type);
  type type_table is table of type_record index by binary_integer;
 
  procedure pro_test_record(rec in type_record);
  procedure pro_test_record_test;
 
  procedure pro_test_table(tab in type_table);
  procedure pro_test_table_test;
 
end pac_test;
create or replace package body pac_test is
  procedure pro_test_record(rec in type_record) is
    records type_record;
  begin
    select id, name into records from t_test_recod where id = rec.id;
    dbms_output.put_line(records.id || records.name);
  end pro_test_record;

  procedure pro_test_record_test is
    rec type_record;
  begin
    rec.id := 1;
    rec.name := 'name1';
    pro_test_record(rec);
  end pro_test_record_test;
 
  procedure pro_test_table(tab in type_table) is
  v_tab       type_table;
  begin
  v_tab := tab;
  select id, name into v_tab(1) from t_test_recod where id = v_tab(1).id;
  dbms_output.put_line(v_tab(1).id || v_tab(1).name);
  end pro_test_table;
 
  procedure pro_test_table_test is
  v_tab      type_table;
  begin
  v_tab(1).id := 1;
  v_tab(1).name := 'name1';
  pro_test_table(v_tab);
  end pro_test_table_test;
 
end pac_test;

 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/16179598/viewspace-612976/,如需转载,请注明出处,否则将追究法律责任。

下一篇: 当幸福来敲门
请登录后发表评论 登录
全部评论

注册时间:2008-12-27

  • 博文量
    316
  • 访问量
    656070