一. 使用for循环游标:遍历全部职位为经理的雇员

1. 定义游标(游标就是一个小集合)

2. 定义游标变量

3. 使用for循环游标

declare
-- 定义游标c_job
cursor c_job is
select empno, ename, job, sal from emp where job = 'MANAGER'; -- 定义游标变量c_row
c_row c_job%rowtype;
begin
-- 循环游标,用游标变量c_row存循环出的值
for c_row in c_job loop
dbms_output.put_line(c_row.empno || '-' || c_row.ename || '-' ||
c_row.job || '-' || c_row.sal);
end loop;
end;

二. fetch游标:遍历全部职位为经理的雇员

使用的时候必须明白的打开和关闭

declare
--定义游标c_job
cursor c_job is
select empno, ename, job, sal from emp where job = 'MANAGER'; --定义游标变量c_row
c_row c_job%rowtype;
begin
open c_job;
loop
--提取一行数据到c_row
fetch c_job into c_row; --判读是否提取到值。没取到值就退出
exit when c_job%notfound;
dbms_output.put_line(c_row.empno || '-' || c_row.ename || '-' ||
c_row.job || '-' || c_row.sal);
end loop; --关闭游标
close c_job;
end;

三. 使用游标和while循环:遍历全部部门的地理位置

--3,使用游标和while循环来显示全部部门的的地理位置(用%found属性)
declare
--声明游标
cursor csr_TestWhile is select loc from dept; --指定行指针
row_loc csr_TestWhile%rowtype;
begin
open csr_TestWhile;
--给第一行数据
fetch csr_TestWhile into row_loc; --測试是否有数据,并运行循环
while csr_TestWhile%found loop
dbms_output.put_line('部门地点:' || row_loc.LOC);
--给下一行数据
fetch csr_TestWhile into row_loc;
end loop;
close csr_TestWhile;
end;

四. 带參的游标:接受用户输入的部门编号

declare
-- 带參的游标
cursor c_dept(p_deptNo number) is
select * from emp where emp.deptno = p_deptNo; r_emp emp%rowtype;
begin
for r_emp in c_dept(20) loop
dbms_output.put_line('员工号:' || r_emp.EMPNO || '员工名:'
|| r_emp.ENAME || '工资:' || r_emp.SAL);
end loop;
end;

五. 加锁的游标:对全部的salesman添加佣金500

declare
--查询数据,加锁(for update of)
cursor csr_addComm(p_job nvarchar2) is
select * from emp where job = p_job for update of comm;
r_addComm emp%rowtype;
commInfo emp.comm%type;
begin
for r_addComm in csr_addComm('SALESMAN') loop
commInfo := r_addComm.comm + 500; --更新数据(where current of)
update emp set comm = commInfo where current of csr_addComm;
end loop;
end;

六. 使用计数器:找出两个工作时间最长的员工

declare
cursor crs_testComput is
select * from emp order by hiredate asc; --计数器
top_two number := 2;
r_testComput crs_testComput%rowtype;
begin
open crs_testComput;
fetch crs_testComput into r_testComput;
while top_two > 0 loop
dbms_output.put_line('员工姓名:' || r_testComput.ename ||
' 工作时间:' || r_testComput.hiredate);
--计速器减1
top_two := top_two - 1;
fetch crs_testComput into r_testComput;
end loop;
close crs_testComput;
end;

七. if/else推断:对全部员工按基本薪水的20%加薪。假设添加的薪水大于300就取消加薪

declare
cursor crs_upadateSal is
select * from emp for update of sal;
r_updateSal crs_upadateSal%rowtype;
salAdd emp.sal%type;
salInfo emp.sal%type;
begin
for r_updateSal in crs_upadateSal loop
salAdd := r_updateSal.sal * 0.2;
if salAdd > 300 then
salInfo := r_updateSal.sal;
dbms_output.put_line(r_updateSal.ename || ': 加薪失败。' ||
'薪水维持在:' || r_updateSal.sal);
else
salInfo := r_updateSal.sal + salAdd;
dbms_output.put_line(r_updateSal.ENAME || ': 加薪成功.' ||
'薪水变为:' || salInfo);
end if;
update emp set sal = salInfo where current of crs_upadateSal;
end loop;
end;

八. 使用case
when:按部门进行加薪

declare
cursor crs_caseTest is
select * from emp for update of sal; r_caseTest crs_caseTest%rowtype;
salInfo emp.sal%type;
begin
for r_caseTest in crs_caseTest loop
case
when r_caseTest.deptno = 10 THEN
salInfo := r_caseTest.sal * 1.05;
when r_caseTest.deptno = 20 THEN
salInfo := r_caseTest.sal * 1.1;
when r_caseTest.deptno = 30 THEN
salInfo := r_caseTest.sal * 1.15;
when r_caseTest.deptno = 40 THEN
salInfo := r_caseTest.sal * 1.2;
end case;
update emp set sal = salInfo where current of crs_caseTest;
end loop;
end;

九. 异常处理:数据回滚

set serveroutput on;
declare
d_name varchar2(20);
begin
d_name := 'developer'; savepoint A;
insert into DEPT values (50, d_name, 'beijing');
savepoint B;
insert into DEPT values (40, d_name, 'shanghai');
savepoint C; exception when others then
dbms_output.put_line('error happens');
rollback to A;
commit;
end;
/

十. 基本指令:

set serveroutput on size 1000000 format wrapped; --使DBMS_OUTPUT有效,并设置成最大buffer,防止"吃掉"最前面的空格
set linesize 256; --设置一行能够容纳的字符数
set pagesize 50; --设置一页有多少行数
set arraysize 5000; --设置来回数据显示量,这个值会影响autotrace时一致性读等数据
set newpage none; --页和页之间不设不论什么间隔
set long 5000; --LONG或CLOB显示的长度
set trimspool on; --将SPOOL输出中每行后面多余的空格去掉
set timing on; --设置查询耗时
col plan_plus_exp format a120; --autotrace后explain plan output的格式
set termout off; --在屏幕上暂不显示输出的内容,为以下的设置sql做准备
alter session set nls_date_format='yyyy-mm-dd hh24:mi:ss'; --设置时间格式

小知识:

以下的语句一定要在Command Window里面才干打印出内容

set serveroutput on;
begin
dbms_output.put_line('hello!');
end;
/

oracle存储过程的使用的更多相关文章

  1. oracle 存储过程

    来自:http://www.jb51.net/article/31805.htm Oracle存储过程基本语法 存储过程 1 CREATE OR REPLACE PROCEDURE 存储过程名 2 I ...

  2. Oracle存储过程语法

    原文链接:http://www.jb51.net/article/31805.htm Oracle存储过程基本语法 存储过程  1 CREATE OR REPLACE PROCEDURE 存储过程名  ...

  3. ORACLE存储过程调用Web Service

    1. 概述 最近在ESB项目中,客户在各个系统之间的服务调用大多都是在oracle存储过程中进行的,本文就oracle存储过程调用web service来进行说明.其他主流数据库,比如mysql和sq ...

  4. Oracle存储过程基本语法介绍

    Oracle存储过程基本语法 存储过程 1 CREATE OR REPLACE PROCEDURE 存储过程名 2 IS 3 BEGIN 4 NULL; 5 END; 行1: CREATE OR RE ...

  5. MyBatis调用Oracle存储过程

    MyBatis调用Oracle存储过程 1.无输入和输出参数的存储过程 2.带有输入和输出参数的存储过程 3.返回游标的存储过程 mybatis中的配置文件代码 <resultMap type= ...

  6. Oracle存储过程(转)

    Oracle存储过程基本语法 存储过程 1 CREATE OR REPLACE PROCEDURE 存储过程名 2 IS 3 BEGIN 4 NULL; 5 END; 行1: CREATE OR RE ...

  7. Oracle存储过程中异常Exception的捕捉和处理

    Oracle存储过程中异常的捕捉和处理 CREATE OR REPLACE Procedure Proc_error_process ( v_IN in Varchar2, v_OUT Out Var ...

  8. Oracle存储过程动态创建临时表/存储过程执行权限问题--AUTHID CURRENT_USER

    关于Oracle存储过程执行权限问题的解决 http://blog.sina.com.cn/s/blog_6ceed3280101hvlo.html (2014-04-02 04:06:28) 转载▼ ...

  9. ORACLE存储过程学习

    存储过程 1 CREATE OR REPLACE PROCEDURE 存储过程名 2 IS 3 BEGIN 4 NULL; 5 END; 行1: CREATE OR REPLACE PROCEDURE ...

  10. C# 获取 oracle 存储过程的 返回值1

    /// <summary> /// 返回对应表的模拟自增字段值 /// </summary> /// <param name="tablename"& ...

随机推荐

  1. cas-client-core单点登录排除不需要拦截的URL

    同事提了一个要求,要求对外提供的接口不需要经过单点登录验证,我刚开始想,这简单,提供不需要拦截的url数组,在AuthenticationFilter里面对url进行检查,在此数组内,就不需要拦截. ...

  2. 【转】什么是P问题、NP问题和NPC问题

    原文链接:http://www.matrix67.com/blog/archives/105,感谢Matrix67,看完这篇文章终于把这个几个概念弄明白了!! 这或许是众多OIer最大的误区之一.   ...

  3. 根据项目类型导入Excel文件到不同数据库

    前提:如果您要针对不同的业务做数据导入,可以参考下这个项目,这个项目的原理就是根据文件名进行区分,然后导入不同的数据表.下面我就写个Demo演示下: 学生表-- 主键,学生姓名,学生年龄,学校归属 教 ...

  4. 通过Hibernate实现添加功能

    package com.demo.dao; import org.hibernate.Session; import org.hibernate.SessionFactory; import org. ...

  5. Android网络编程随想录(1)

    本系列文章对整个Android网络编程进行了总结,包括基本的TCP/IP协议,HTTP协议,HTTPS协议,HttpClient,UrlConnection,一些网络通信的库到棉花糖新加入的OKHTT ...

  6. (转载)RxJava 与 Retrofit 结合的最佳实践

    RxJava 与 Retrofit 结合的最佳实践 作者:tough1985 感谢 DaoCloud 为作者提供的 500 RMB 写作赞助: 成为赞助方 /开始写作 前言 RxJava和Retrof ...

  7. hdu2680 Choose the best route 最短路(多源转单源)

    此题中起点有1000个,边有20000条.用链式前向星建图,再枚举起点用SPFA的话,超时了.(按理说,两千万的复杂度应该没超吧.不过一般说计算机计算速度 1~10 千万次/秒.也许拿最烂的计算机来卡 ...

  8. MySQL 5.6 Reference Manual-14.1 Introduction to InnoDB

    14.1 Introduction to InnoDB 14.1.1 InnoDB as the Default MySQL Storage Engine 14.1.2 Checking InnoDB ...

  9. Xcode8 NSLog打印json不完整的解决方案

    解决方案:自定义宏,通过fprintf函数打印log,完美解决! #ifdef DEBUG #define NSLog(FORMAT, ...) fprintf(stderr, "%s:%z ...

  10. Associated Values & enum

    it is sometimes useful to be able to store associated values of other types alongside these case val ...