Oracle之plsql及游标

--1、赋值
    --:= 赋值
        declare
          var_name varchar2(10) :='&请输入名字';--&是一个提示输入的特殊符号，会打开一个输入框
          var_age number(3) :='&请输入年龄';
        begin
          dbms_output.put_line(var_name||'---'||var_age);--输入 ||是连接符号和java中的+一样
        end;

    --into 赋值
        declare
          var_name varchar2(10);
          var_age number(3);
        begin
          select stuname,age into var_name,var_age from t_student where id = 2;
          dbms_output.put_line(var_name||'---'||var_age);
        end;

--2、 特殊类型：
    --%type 绑定某个表中的特定字段的类型
      declare
        v_name emp.ename%type;
        v_job emp.job%type;
      begin
        select ename,job into v_name,v_job from emp where emp.empno=3;
        dbms_output.put_line(v_name||'---'||v_job);
      end;

   --%rowtype:行类型和表中的一行对应
      declare
        v_emp emp%rowtype; -- v_emp的类型是一个行类型 和emp的一条记录对应
      begin
        select * into v_emp from emp where empno=1;
        dbms_output.put_line(v_emp.ename||' '||v_emp.sal||' '||v_emp.job);
      end;

--3、if条件判断
      if语句
       语法格式:   if  条件 then
                   [ elsif 条件 then ]
                   [ elsif  条件 then]
                   [else ]
                    end if;

                    --实例
                    declare
                        v_age number(3) :=&请输入年龄;
                    begin
                         if v_age = 18 then
                                 dbms_output.put_line('');
                         elsif v_age > 18 then
                                 dbms_output.put_line('大于18');
                         else  dbms_output.put_line('小于18');
                         end if;
                    end;

--4、case
        case when  条件 then
             when  条件 then
               else
             end case;

             --实例
             declare
                  v_age number(3) :=&请输入年龄;
             begin
                  case
                        when  v_age = 18  then  dbms_output.put_line('');--条件可以是一个定值也可以是>或者<
                        when  v_age = 19  then  dbms_output.put_line('');
                        when  v_age = 20  then  dbms_output.put_line('');
                        when  v_age = 21  then  dbms_output.put_line('');
                        when  v_age = 22  then  dbms_output.put_line('');
                        when  v_age > 23 then  dbms_output.put_line('大于23');
                   else dbms_output.put_line('不知道');
                   end case;
             end;

--5、循环
       --5、1无限循环
              loop
                -- 循环体
                exit when 退出条件;
              end loop;

              --实例
                  declare
                     v_num number(3) := 1;
                  begin
                    loop
                        dbms_output.put_line(v_num);
                        v_num := v_num+1;
                        exit when v_num > 10;
                    end loop;
                  end;

         --5、2 while带条件的循环
             while 循环条件 loop
                   --循环体
               end loop;

              --实例
               declare
                 v_i number(5) := 1;
               begin
                 while v_i<10 loop
                   dbms_output.put_line(v_i);
                   v_i := v_i+1;
                   end loop;
               end; 

            --5/3 for循环:
                  --1.不用专门去声明循环变量
                  --2.每次只能自增一，
                  --3.要想实现循环降序需要在 in 后加 reverse

                  --实例
                     declare
                     begin
                        for v_i in reverse 1..9 loop
                          dbms_output.put_line(v_i);
                        end loop;
                     end;

--6、goto关键字：跳转到指定的位置

       --实例：
            declare
                  v_num number(5) := &请输入;

            begin
                  if v_num = 18 then
                     dbms_output.put_line(18);
                     goto a1;
                   elsif v_num = 20 then
                     dbms_output.put_line(20);
                     goto a2;
                   else  dbms_output.put_line('----------');
                         goto a3;
                   end if;

                   <<a1>>
                        dbms_output.put_line('a1======');
                   <<a2>>
                        dbms_output.put_line('a2======');
                   <<a3>>
                        dbms_output.put_line('a3======');
            end;

--7、动态SQL语句：解决的是字符串格式的sql语句执行的问题
      EXECUTE IMMEDIATE dynamic_sql_string
      [INTO  define_variable_list]
      [USING bind_argument_list];

             declare
                 v_stuname t_student.stuname%type;
                 v_sql varchar2(100) := 'select stuname from t_student where id = :id';
                 v_id number(3) :=  &请输入查询的id;
             begin
                execute immediate v_sql into v_stuname using v_id;
                dbms_output.put_line(v_stuname);
             end;

--8、异常处理
             --8、1 系统异常
             no_data_found;没有找到数据的异常
             too_many_rows: 多行数据
             others 其他异常

             declare
                    v_stuname t_student.stuname%type;
                    v_id t_student.id%type;
             begin
                    -- 业务逻辑代码
                    v_id:=100;
                    select stuname into v_stuname from t_student where id = v_id;
                    dbms_output.put_line(v_stuname);
                    -- 异常处理代码 

                    exception
                       when no_data_found then
                            dbms_output.put_line('找不到数据');
                       when too_many_rows then
                            dbms_output.put_line('数据过多');
                       when others then
                            dbms_output.put_line('其他异常');
             end;

             --8、2 自定义异常
                   declare
                            v_i number(3) :=&请输入;
                            myexception exception;
                   begin
                            if v_i = 2 then
                               raise myexception;
                            end if;
                            dbms_output.put_line('==================');

                            exception
                              when myexception then
                                dbms_output.put_line('自定义异常触发了');
                              when others then
                                dbms_output.put_line('不知道的异常');
                   end;

游标：
    一.隐式游标：系统自动维护的，在我们做DML操作的时候系统会自动的维护这样一个游标
     名称叫:sql
           隐式游标提供的常用的属性：
            sql%found: boolean 找到数据 true
            sql%notfound: boolean 没有找到数据 true
            sql%rowcount: 数值型 影响的行数
            sql%isopen: 是否打开 dml中都是 false
              插入：select * from student;

           begin
            update t_student set stuname='xxxx' where id = 10;

            if sql%found then
              dbms_output.put_line('影响了'|| sql%rowcount ||'行记录');
            end if;
            if sql%isopen then
               dbms_output.put_line('--------1--------');
            end if;
            if sql%notfound then
            dbms_output.put_line('-----------2-----------');
            end if;

           end;

    二.显示游标:处理多行数据，隐式游标配合显示游标使用
           2.1无参游标
           查询出学生表中的所有的记录：
         使用的步骤：
             1.声明游标
             2.打开游标
             3.循环提取数据
             4.关闭游标

             declare
              v_student t_student%rowtype;
              --1.声明游标
              cursor mycursor is select * from t_student;
              v_count number(3):=0;
              begin
              --2.打开游标
              open mycursor;
              --3.循环提取数据

              loop
                 --提取数据
                 -- 每循环一次从游标中取一条记录保存到v_student变量中
                 fetch mycursor into v_student;
                 --指定退出条件
                 exit when mycursor%notfound;
                 v_count := v_count+1;
                 dbms_output.put_line(v_student.id||v_student.stuname||v_student.sex);
              end loop;
              dbms_output.put_line('有'||v_count||'记录');
              --4.关闭游标
             close mycursor;
              end;  

             declare
             v_student t_student%rowtype;
             cursor mycursor is select * from student for update; -- 1. for update
          begin
            open mycursor;
               loop
             fetch mycursor into v_student;

             exit when mycursor%notfound;
             dbms_output.put_line(v_student.id||v_student.name||v_student.sex||v_student.birth);
             if v_student.birth is null then
               -- 2.在更新语句后加 current of 游标名称
                update t_student set stuname='xxxx' where current of mycursor;
             end if;
             end loop;
             commit;
            close mycursor;
          end; 

        2.2 有参游标
          根据姓名查询学生表中的所有的学生信息
          declare
           v_student t_student%rowtype;
           v_name t_student.stuname%type:='&请输入姓名';
           cursor mycursor(c_name varchar2)
              is select * from t_student where stuname like '%'||c_name||'%';
          begin
            open mycursor(v_name);
            loop
               fetch mycursor into v_student;
               if mycursor%found then
              dbms_output.put_line(v_student.id||'--'||v_student.stuname||'---'||v_student.age);
               else
             exit;
               end if;
             end loop;
             close mycursor;
          end;

           declare
            v_student t_student%rowtype;
            v_name t_student.stuname%type := '&请输入要查询的姓名';
            cursor mycursor -- 带有参数
            is select * from t_student where stuname like '%'||v_name||'%';
          begin
            open mycursor; --打开的时候需要指定参数
             loop
               fetch mycursor into v_student;
               if mycursor%found then
                  -- 有数据
                  dbms_output.put_line(v_student.id||v_student.stuname||v_student.sex);
               else
                  -- 退出
                  exit;
               end if;
             end loop;
            close mycursor;
          end;

         2.3 游标循环时使用for循环提取

         declare
           v_name t_student.stuname%type := '&请输入';
           cursor mycursor is select * from t_student where stuname like '%'||v_name||'%';
         begin
           for v_student in mycursor loop
               update t_student set age=23;
              dbms_output.put_line(v_student.age||v_student.stuname||v_student.sex);
           end loop;
            commit;
         end;

    3.REF游标【动态游标】：是解决游标动态执行sql
          显示游标在声明的时候就必须制定sql语句
          动态游标：在打开的时候确定要执行的sql语句比显示游标更加的灵活
          缺点：不能使用for循环和更新行

         3.1 自定义ref游标
             通过REF游标查询出学生表中的所有的学生记录
            declare
              type myreftype is ref cursor;-- 1.定义一个ref 类型
              myrefcursor myreftype;-- 2.声明一个myreftype类型的变量
              v_student t_student%rowtype;
              v_sql varchar2(100);
            begin
              v_sql:='select * from t_student';

               -- for 后及可以带'' 也可以直接是sql语句
            --open myrefcursor for select * from student; -- 打开游标的同时指定要执行的sql语句
              open myrefcursor for v_sql;
             loop
                fetch myrefcursor into v_student;
                exit when myrefcursor%notfound;
                 dbms_output.put_line(v_student.age||v_student.stuname||v_student.sex);

             end loop;
              close myrefcursor;
            end;

           3.2 sys_refcursor:系统提供的一个 ref cursor 类型

           declare
              myrefcursor sys_refcursor; -- 声明一个变量类型是 refcursor 类型
              v_student t_student%rowtype;
              v_sql varchar2(100);
           begin
              v_sql :='select * from t_student';
              open myrefcursor for v_sql;
              loop
             fetch myrefcursor into v_student;
                exit when myrefcursor%notfound;
                 dbms_output.put_line(v_student.age||v_student.stuname||v_student.sex);

              end loop;
               close myrefcursor;
           end;