oracle游标杂耍(一)

/*
set serveroutput on
declare 
    v_code test_user.t_test1.code%type;
    v_name  test_user.t_test1.name%type;
   
    cursor c_test is
    select code,name from test_user.t_test1;
    begin
        open c_test;
        loop
            fetch c_test into v_code,v_name;
            dbms_output.put_line(v_code ||'---------'|| v_name);
            exit when c_test%notfound;
        end loop;
                    commit;
        close c_test;
     end;
*/     
     --set serveroutput on
  /*
     declare vv_code  TEST_USER.T_TEST1.CODE%type;
                vv_name test_user.t_test1.name%type;
      v_rowcount int;
                
        cursor c_tt is select code,name from test_user.t_test1;
        begin
            if  c_tt%isopen then
                NULL;
              ELSE
            open c_tt;
            END IF;
            fetch c_tt into vv_code,vv_name;

            while c_tt%found
            loop
                if vv_code is not null then
                    if vv_name is not null then
                        insert into test_user.ta values (1,'test1111111',vv_code,vv_name,v_rowcount);
                    end if;
                end if;
                           v_rowcount:=c_tt%rowcount;-----c_tt%rowcount 游标检索出的总数据行数
            if c_tt%rowcount>3 then
                dbms_output.put_line(v_rowcount);
            end if;
                fetch c_tt into vv_code,vv_name;
     
            end loop;
                        commit;
            IF c_tt%isopen then
            close c_tt;
            else
            null;
            end if;
            
        end;
  */

  /* 
   ----游标的FOR循环  不用显示打开游标，关闭游标，测试数据的存在和定义存放数据的变量

     declare    
   Cursor c_t is select code,name from test_user.t_test1;
   begin
        for row_count in c_t
        loop
            if row_count.code is not null then
                if row_count.name is not null then
                    insert into test_user.ta values(23,'萨法款到即发',row_count.code,row_count.name,12345);
                end if;
             end if;
        end loop;
           commit;
   end;
  
 -- 替换方案
  
  begin
    for row_count in (select code,name from test_user.t_test1) loop
        insert into test_user.ta values(55,'阿司法局离开',row_count.code,row_count.name,98);
    end loop;
    commit;
  end;
  */
  /*
  ---游标FOR循环中，可以传递参数给游标
  set serveroutput on
  declare
    cursor c_ref_vai (v_id integer) is select id,code,name from test_user.ta where id=v_id;
    begin
        for row_foreach in c_ref_vai(55) loop
            dbms_output.put_line(row_foreach.id||'----'||row_foreach.code ||'----'||row_foreach.name);
        end loop;
    end;
    
    */

  ---游标变量和游标的是不同的，它们类似 变量和常量之间的关系。游标是静态的，游标变量是动态的，
  --游标变量并不与特定的查询绑定在一起。游标变量类似指针，保存某个项目的内存位置，而不是项目本身。
  --游标变量具有REF CURSOR数据类型。游标总是指向相同的查询工作区，而游标变量 能够指向不同的工作区，
  --因此游标和游标变量不能互操作。
  -----定义 REF CURSOR类型。创建游标变量：
  TYPE  ref_type_name is  REF CURSOR [RETURN  return_type];
  参数：
  return_type:必须表示一个记录或者是数据库表的一行。
  如果 显示声明： RETURN return_type 则表示 REF CURSOR 是一个强类型，否则就是一个弱类型。
  --声明游标变量
  DECLARE 
    TYPE ref_type_name is  REF CURSOR  return t_goods%rowtype;
    v_ref_type_name         ref_type_name;
  或：用%type 提供记录变量店数据类型
  DECLARE
        one_record  t_goods%rowtype;
        TYPE ref_type_name is ref cursor return one_record%type;
        v_ref_type_name         ref_type_name;
        
        
   --用 用户自定义的记录类型作为返回值
   DECLARE
            TYPE myrecord is record(code varchar2(32),name varchar2(32),address varchar2(64));
            TYPE ref_type_name is ref cursor return myrecord;
            v_ref_type_name         ref_type_name;
            
    ---声明游标变量作为函数或存储过程的参数
    declare
        type ref_type_name is ref cursor return t_goods%rowtype;
        procedure open_t_goods_data(row_record in out ref_type_name)  ----必须用 IN OUT 类型
        as
        begin
        .....
        end open_t_goods_data;
                
  案例：
    create package t_goods_cv 
    as
    type ref_cur_strong is ref cursor return t_goods%rowtype;
    type ref_cur_weak  is ref cursor;
    procedure my_prc(v_ref1 in out ref_cur_strong,v_ref2 in out ref_cur_weak,v_id in inte