oralce返回结果集cursor

1.通过包来进行定义，然后在包体中返回查询结果

create or replace package PKG_QUERY is

  TYPE query_result IS REF CURSOR;

   PROCEDURE query_day(v_mac_addr varchar2,v_date varchar2,r OUT query_result);
 end PKG_QUERY;

2.定义包体实现查询

 

create or replace package body PKG_QUERY is

  procedure query_day(v_mac_addr varchar2,
                      v_date     varchar2,
                      r          OUT query_result) as
 
    query_r query_result;
 
    v_d date;
 
  begin
   
    v_d := to_date(v_date, 'yyyy-mm-dd');
  
      open query_r for
        select *
          from debug_dat_day t2
         where t2.today = v_d
         order by
         t2.mac_addr,t2.today,t2.dat_id
         ;
    r := query_r;
 
  end query_day;

end PKG_QUERY;