日期:2014-05-17 浏览次数:20984 次
################################################### oracle的存储过程 ################################################### --创建包头 create or replace package pck_as as type t_product_id is table of number index by binary_integer; type t_serial_no is table of varchar(300) index by binary_integer; type t_buy_date is table of date index by binary_integer; procedure allsfc ( product_id out t_product_id, serial_no out t_serial_no, buy_date out t_buy_date ); --procedure allsfc1; end pck_as; --创建包体 create or replace package body pck_as as procedure allsfc ( product_id out t_product_id, serial_no out t_serial_no, buy_date out t_buy_date ) is cursor cur_sfc_tbl_product_reg is select product_id,serial_no,buy_date from sfc_tbl_product_reg; i number default 1; begin for onrecord in cur_sfc_tbl_product_reg loop product_id(i) := onrecord.product_id; serial_no(i) := onrecord.serial_no; buy_date(i) := onrecord.buy_date; i := i + 1; end loop; end; end;