Oracle PLSQL:

Posted 2020-09-30 阿肯新

PLSQL:
　　符号:
　　　　赋值: :=

　　基本示例:

        set serveroutput on   //设置输出打开.
        declare
          --说明部分
          
        begin
          --程序
          dbms_output.put_line(‘Hello World‘);
        exception
        
        end;
        /

 

　　引用型变量:
　　　　--查询7839的姓名和薪水

        --查询7839的姓名和薪水
        set serveroutput on

        declare
          --定义变量保存姓名和薪水
          --pename varchar2(20);
          --psal   number;
          pename emp.ename%type;      //引用型变量
          psal   emp.sal%type;　　　　　　
        begin
          --得到姓名和薪水
          select ename,sal into pename,psal from emp where empno=7839;

          dbms_output.put_line(pename||‘的薪水是‘||psal);
        end;
        /

 

　　记录型变量(代表了一行,多个列,类似数组)
　　　　--查询7839的姓名和薪水

        set serveroutput on

        declare
          --定义记录型变量：代表一行
          emp_rec emp%rowtype;
        begin
          select * into emp_rec from emp where empno=7839;
          dbms_output.put_line(emp_rec.ename||‘的薪水是‘||emp_rec.sal);
        end;
        /

 

　　IF语句
　　　　--判断用户从键盘输入的数字

        set serveroutput on

        --接收键盘输入
        --num: 地址值，在该地址上 保存了输入的值
        accept num prompt ‘请输入一个数字‘;  //accept 命令

        declare
          --定义变量保存输入的数字
          pnum number := #            //从地址上取出数字 使用 &
        begin
          if pnum = 0 then dbms_output.put_line(‘您输入的是0‘);
            elsif pnum = 1 then dbms_output.put_line(‘您输入的是1‘);
            elsif pnum = 2 then dbms_output.put_line(‘您输入的是2‘);
            else dbms_output.put_line(‘其他数字‘);
          end if;
        end;
        /

 

　　循环语句(共有三种方式,此处举例一种):
　　　　--打印1~10

        set serveroutput on

        declare
          pnum number := 1;
        begin
          loop
            --退出条件
            exit when pnum > 10;
            
            dbms_output.put_line(pnum);
            --加一
            pnum := pnum + 1;
          end loop;
        end;
        /

 

　　Cursor:光标(相当一个resultset, 结果集):
　　　　1. 光标的属性：
　　　　　　%isopen    　　%rowcount (影响的行数)
　　　　　　%found 　　     %notfound
　　　　2. 默认，一个会话中只能打开300个光标
　　　　　　          show parameter cursor //查看参数 --->后面两个都是这里查来的
　　　　　　修改: alter system/session set open_cursors=400;

　　　　3. cursor_sharing ---> 性能优化
　　　　　　EXACT(默认),   FORCE(提性能),   SIMILAR

　　　　例子:
　　　　　　--查询并打印员工的姓名和薪水(不带参数)

            set serveroutput on

            declare
              --定义光标
              cursor cemp is select ename,sal from emp; //定义一个光标
              pename emp.ename%type;
              psal   emp.sal%type;
            begin
              --打开光标
              open cemp;                            //打开一个光标

              loop
                --取一条记录
                fetch cemp into pename,psal;        //取出一个记录
                --退出条件
                --exit when 没有取到记录;
                exit when cemp%notfound;

                dbms_output.put_line(pename||‘的薪水是‘||psal);

              end loop;
              
              --关闭光标
              close cemp;                            //关闭光标
            end;
            /

 

　　　　例二(带参数):
　　　　　　--查询某个部门的员工姓名

            set serveroutput on

            declare
              cursor cemp(dno number) is select ename from emp where deptno=dno;
              pename emp.ename%type;
            begin
              open cemp(20);     //传参
              loop
                fetch cemp into pename;
                exit when cemp%notfound;
                
                dbms_output.put_line(pename);

              end loop;
              close cemp;
            end;
            /

 

exception(例外)
　　系统例外:
　　　　No_data_found (没有找到数据)
　　　　Too_many_rows (select into 语句匹配多个行)
　　　　Zero_Divide (被 0 除)
　　　　Value_error (算数或者转换异常)
　　　　Timeout_on_resource (等待资源超时)

　　　　--被0除
　　　　

                set serveroutput on

                declare
                  pnum number;
                begin
                  pnum := 1/0;
                  
                exception
                  when zero_divide then dbms_output.put_line(‘1:0不能做分母‘);
                                         dbms_output.put_line(‘2:0不能做分母‘);
                  when value_error then dbms_output.put_line(‘算术或者转换错误‘);
                  when others then dbms_output.put_line(‘其他例外‘);
                end;
                /

 

　　自定义例外:
　　　　--查询50号部门的员工姓名

                set serveroutput on

                declare
                  cursor cemp is select ename from emp where deptno=50;
                  pename emp.ename%type;
                  
                  --自定义例外
                  no_emp_found exception;   //定义一个 例外 类型的变量
                begin
                  open cemp;

                  --取第一条记录
                  fetch cemp into pename;
                  
                  if cemp%notfound then
                    --抛出例外
                    raise no_emp_found;    //抛出例外
                  end if;

                  --pmon: process monitor
                  close cemp;
                  
                exception      //一般处理是保存到一个表中
                  when no_emp_found then dbms_output.put_line(‘没有找到员工‘);
                  when others then dbms_output.put_line(‘其他例外‘); 
                end;
                /