侯体宗的博客
  • 首页
  • Hyperf版
  • beego仿版
  • 人生(杂谈)
  • 技术
  • 关于我
  • 更多分类
    • 文件下载
    • 文字修仙
    • 群聊
    • 九宫格抽奖
    • 拼图
    • 消消乐
    • 相册

精通Oracle10编程SQL(10)处理例外

数据库  /  管理员 发布于 3年前   154

/* *处理例外 */--例外简介--处理例外-传递例外declare   v_ename emp.ename%TYPE;begin   SELECT ename INTO v_ename FROM emp      where empno=&no;   dbms_output.put_line('雇员名:'||v_ename);exception   when too_many_rows then      dbms_output.put_line('查询只能返回单行');end;select * from emp;--捕捉并处理例外DECLARE  v_ename emp.ename%TYPE;BEGIN  select ename into v_ename from emp where empno=&no;  dbms_output.put_line('雇员名:'||v_ename);EXCEPTION  when NO_DATA_FOUND THEN     dbms_output.put_line('雇员号不正确,请核实雇员号!');END;--处理预定义例外--常用预定义例外--ACCESS_INTO_NULLdeclare  empt emp_type;begin  empt.name:='SCOTT';exception  when ACCESS_INTO_NULL THEN     dbms_output.put_line('首先初始化对象emp');end;--CASE_NOT_FOUNDDECLARE   v_sal emp.sal%TYPE;BEGIN   SELECT sal into v_sal from emp where empno=&no;   case      when v_sal<100 then         update emp set sal=sal+100 where empno=&no;      when v_sal<200 then         update emp set sal=sal+150 where empno=&no;      when v_sal<300 then         update emp set sal=sal+200 where empno=&no;   end case;EXCEPTION   when case_not_found then      dbms_output.put_line('在CASE语句中缺少与'||v_sal||'相关的条件');END;select * from emp;--COLLECTION_IS_NULLDECLARE   TYPE ename_table_type is table of emp.ename%TYPE;   ename_table ename_table_type;BEGIN   select ename into ename_table(2) from emp     where empno=&no;   dbms_output.put_line('雇员名:'||ename_table(2));EXCEPTION   WHEN COLLECTION_IS_NULL then      dbms_output.put_line('必须使用构造方法初始化集合元素');END;--CURSOR_ALREADY_0PENdeclare   CURSOR emp_cursor is select ename,sal from emp;begin   open emp_cursor;   for emp_record in emp_cursor loop      dbms_output.put_line(emp_record.ename);   end loop;exception   when cursor_already_open then       dbms_output.put_line('游标已经打开');end;--给dept表加主键alter table dept add primary key(deptno);select * from dept;--DUP_VAL_ON_INDEXBEGIN   UPDATE dept set deptno=&new_no where deptno=&old_no;EXCEPTION   when DUP_VAL_ON_INDEX THEN      dbms_output.put_line('在deptno列上不能出现重复值');END;--INVALID_CURSORDECLARE   cursor emp_cursor is select ename,sal from emp;   emp_record emp_cursor%ROWTYPE;BEGIN   --open emp_cursor;   FETCH emp_cursor into emp_record;   close emp_cursor;EXCEPTION   WHEN invalid_cursor then      dbms_output.put_line('请检查游标是否已经打开');END;--INVALID_NUMBERbegin   update emp set sal=sal+'1oo';exception   when invalid_number then      dbms_output.put_line('输入的数字值不正确');end;--NO_DATA_FOUNDDECLARE  v_sal emp.sal%TYPE;BEGIN  select sal into v_sal from emp    where lower(ename)=lower('&name');EXCEPTION  WHEN NO_DATA_FOUND THEN    dbms_output.put_line('不存在该雇员');END;select * from emp;--TOO_MANY_ROWSDECLARE   v_ename emp.ename%TYPE;BEGIN   select ename into v_ename from emp where sal=&sal;EXCEPTION   WHEN TOO_MANY_ROWS THEN     DBMS_OUTPUT.put_line('返回多行');END;--ZERO_DIVIDEDECLARE  num1 int:=100;  num2 int:=0;  num3 number(6,2);BEGIN  num3:=num1/num2;EXCEPTION  WHEN ZERO_DIVIDE THEN     dbms_output.put_line('分母不能为0');END;--SUBSCRIPT_BEYOND_COUNTdeclare   type emp_array_type is varray(20) of varchar2(10);   emp_array emp_array_type;begin   emp_array:=emp_array_type('SCOTT','MARY');   dbms_output.put_line(emp_array(3));exception   when subscript_beyond_count then      dbms_output.put_line('超出下标范围');end;--SUBSCRIPT_OUTSIDE_LIMITDECLARE   TYPE emp_array_type is varray(20) of varchar2(10);   emp_array emp_array_type;BEGIN   emp_array:=emp_array_type('SCOTT','MARY');   dbms_output.put_line(emp_array(-1));EXCEPTION   WHEN SUBSCRIPT_OUTSIDE_LIMIT THEN      dbms_output.put_line('嵌套表和VARRAY下标不能为负');END;--VALUE_ERRORDECLARE   v_ename varchar2(5);BEGIN   SELECT ename into v_ename from emp where empno=&no;   dbms_output.put_line(v_ename);EXCEPTION   when VALUE_ERROR THEN      dbms_output.put_line('变量尺寸不足');END;--处理非预定义例外--建立主外键约束关系ALTER TABLE emp ADD CONSTRAINT fk_emp_dept FOREIGN KEY (deptno) REFERENCES dept(deptno);--因为在DEPT表和EMP表之间具有主外键关系,所以当修改雇员的部门号时,部门号必须在DEPT表中存在。--如果该部门号在表中不存在,则会隐含触发ORA-02291对应的例外e_integrity,并显示合理的输出信息。declare  e_integrity EXCEPTION;  PRAGMA EXCEPTION_INIT(e_integrity,-2291);begin  update emp set deptno=&dno where empno=&eno;exception  when e_integrity then    dbms_output.put_line('该部门不存在');end;--处理自定义例外declare  e_integrity EXCEPTION;  PRAGMA EXCEPTION_INIT(e_integrity,-2291);  e_no_employee EXCEPTION;begin  update emp set deptno=&dno where empno=&eno;  IF SQL%NOTFOUND THEN     RAISE e_no_employee;  END IF;exception  when e_integrity then    dbms_output.put_line('该部门不存在');  when e_no_employee then    dbms_output.put_line('该雇员不存在');end;--使用例外函数--SQLCODE和SQLERRMDECLARE   v_ename emp.ename%TYPE;BEGIN   SELECT ename into v_ename from emp     where sal=&v_sal;   dbms_output.put_line('雇员名:'||v_ename);EXCEPTION   when no_data_found then      dbms_output.put_line('不存在工资为'||&v_sal||'的雇员');   when others then      dbms_output.put_line('错误号:'||SQLCODE);      dbms_output.put_line(SQLERRM);END;select * from emp;--RAISE_APPLICATION_ERRORCREATE OR REPLACE PROCEDURE raise_comm   (eno NUMBER,commission NUMBER)IS   v_comm emp.comm%TYPE;BEGIN   select comm into v_comm from emp where empno=eno;   if v_comm is null then      raise_application_error(-20001,'该雇员无补助');   end if;EXCEPTION   when NO_DATA_FOUND THEN      dbms_output.put_line('该雇员不存在');END;begin  raise_comm(8,100);end;select * from emp for update;--PL/SQL编译警告--PL/SQL警告分类--分成三类警告消息,PL/SQL警告分类如下--SEVERE:该种警告用于检查可能出现的不可预料结果或错误结果,例如参数的别名问题--PERFORMANCE:该类警告用于检查可能引起的性能问题,例如在执行INSERT操作时为NUMBER列提供了VARCHAR2类型的数据--INFORMATIONAL:该类警告用于检查子程序中的死代码--ALL:该关键字用于检查所有警告(SEVERE,PERFORMACE,INFORMATIONAL)--检测死代码CREATE OR REPLACE PROCEDURE dead_code AS  x number:=10;BEGIN  if x=10 then    x:=20;  else    x:=100; --死代码(永远不会执行)  end if;END dead_code;--SQL*PLUS上执行如下命令行alter session set PLSQL_WARNINGS='ENABLE:INFORMATIONAL';alter procedure dead_code compile;show errors;--检测引起性能问题的代码CREATE OR REPLACE PROCEDURE update_sal   (name varchar2,salary varchar2)isbegin   update emp set sal=salary where ename=name;end;--SQL*PLUS上执行如下命令行ALTER SESSION SET PLSQL_WARNINGS='ENABLE:PERFORMANCE';ALTER PROCEDURE update_sal compile;show errors;

 


  • 上一条:
    精通Oracle10编程SQL(9)使用游标
    下一条:
    精通Oracle10编程SQL(11)开发子程序
  • 昵称:

    邮箱:

    0条评论 (评论内容有缓存机制,请悉知!)
    最新最热
    • 分类目录
    • 人生(杂谈)
    • 技术
    • linux
    • Java
    • php
    • 框架(架构)
    • 前端
    • ThinkPHP
    • 数据库
    • 微信(小程序)
    • Laravel
    • Redis
    • Docker
    • Go
    • swoole
    • Windows
    • Python
    • 苹果(mac/ios)
    • 相关文章
    • mysql中sql_mode的各模式浅析(0个评论)
    • 预处理之SQL参数化查询是如何防止SQL注入的浅析(0个评论)
    • 使用Navicat把mysql5.7版本的数据库导入至mysql8.1版本中流程步骤(0个评论)
    • 在mysql中设置表字段中COLLATE、CHARSET详解(0个评论)
    • 在mysql获得每天最接近凌晨4点0分0秒的数据示例代码(0个评论)
    • 近期文章
    • 在laravel框架中的5个HTTP客户端技巧分享(0个评论)
    • 在go语言中使用FFmpeg库实现PCM音频文件编码为mp3格式文件流程步骤(0个评论)
    • gopacket免安装Pcap实现驱动层流量抓包流程步骤(0个评论)
    • 在laravel项目中实现密码强度验证功能推荐扩展包:password-strength(0个评论)
    • 在go语言中用filepath.Match()函数以通配符模式匹配字符串示例(0个评论)
    • Laravel Response Classes 响应类使用优化浅析(0个评论)
    • mysql中sql_mode的各模式浅析(0个评论)
    • 百度文心一言今天发布,个人第一批内测体验记录,不好别打我(0个评论)
    • 嘿加密世界让我们谈谈在共识中将中本聪主流化(0个评论)
    • 在go语言中寻找两个切片或数组中的相同元素/共同点/交集并集示例代码(0个评论)
    • 近期评论
    • 博主 在

      2023年国务院办公厅春节放假通知:1月21日起休7天中评论 @ xiaoB 你只管努力,剩下的叫给天意;天若有情天亦老,..
    • xiaoB 在

      2023年国务院办公厅春节放假通知:1月21日起休7天中评论 会不会春节放假后又阳一次?..
    • BUG4 在

      你翻墙过吗?国内使用vpn翻墙可能会被网警抓,你需了解的事中评论 不是吧?..
    • 博主 在

      go语言+beego框架中获取get,post请求的所有参数中评论 @ t1  直接在router.go文件中配就ok..
    • Jade 在

      如何在MySQL查询中获得当月记录中评论 Dear zongscan.com team, We can skyroc..
    • 2017-06
    • 2017-08
    • 2017-09
    • 2017-10
    • 2017-11
    • 2018-01
    • 2018-05
    • 2018-10
    • 2018-11
    • 2020-02
    • 2020-03
    • 2020-04
    • 2020-05
    • 2020-06
    • 2020-07
    • 2020-08
    • 2020-09
    • 2021-02
    • 2021-04
    • 2021-07
    • 2021-08
    • 2021-11
    • 2021-12
    • 2022-02
    • 2022-03
    • 2022-05
    • 2022-06
    • 2022-07
    • 2022-08
    • 2022-09
    • 2022-10
    • 2022-11
    • 2022-12
    • 2023-01
    • 2023-03
    Top

    Copyright·© 2019 侯体宗版权所有· 粤ICP备20027696号 PHP交流群

    侯体宗的博客