精通Oracle10编程SQL(10)处理例外
数据库  /  管理员 发布于 3年前   178
/* *处理例外 */--例外简介--处理例外-传递例外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;
路人 在
php中使用hyperf框架调用讯飞星火大模型实现国内版chatgpt功能示例中评论 教程很详细,如果加个前端chatgpt对话页面就完美了..博主 在
科学上网翻墙之v2rayN-Core客户端免费公益节点使用教程中评论 @ mashrdn 多切换几个节点测试,免费ssr是没那么稳..mashrdn 在
科学上网翻墙之v2rayN-Core客户端免费公益节点使用教程中评论 V2rayn免费节点添加上去了,youtobe无法打开网页,是怎么回事..张伟 在
科学上网翻墙之v2rayN-Core客户端免费公益节点使用教程中评论 3q!有用,不过免费节点隔天就要去git上复制新的导进去..博主 在
科学上网翻墙访问Google , 上外网神器佛跳墙VPN(永久免费)使用流程步骤中评论 该篇教程已不能用了,告知大家,免的老有老铁问我!..
Copyright·© 2019 侯体宗版权所有·
粤ICP备20027696号