oracle游标学习

分类：Oracle作者：佚名

这个文档几乎包含了Oracle游标使用的方方面面，全部通过了测试

-- 声明游标；CURSOR cursor_name IS select_statement

--For 循环游标
--（1）定义游标
--（2）定义游标变量
--（3）使用for循环来使用这个游标
declare
 --类型定义
 cursor c_job
 is
 select empno,ename,job,sal
 from emp
 where job='MANAGER';
 --定义一个游标变量v_cinfo c_emp%ROWTYPE ，该类型为游标c_emp中的一行数据类型
 c_row c_job%rowtype;
begin
 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 
 --类型定义
 cursor c_job
 is
 select empno,sal
 from emp
 where job='MANAGER';
 --定义一个游标变量
 c_row c_job%rowtype;
begin
 open c_job;
 loop
 --提取一行数据到c_row
 fetch c_job into c_row;
 --判读是否提取到值，没取到值就退出
 --取到值c_job%notfound 是false 
 --取不到值c_job%notfound 是true
 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;

--1：任意执行一个update操作，用隐式游标sql的属性%found,%notfound,%rowcount,%isopen观察update语句的执行情况。
 begin
 update emp set ENAME='ALEARK' WHERE EMPNO=7469;
 if sql%isopen then
 dbms_output.put_line('Openging');
 else
 dbms_output.put_line('closing');
 end if;
 if sql%found then
 dbms_output.put_line('游标指向了有效行');--判断游标是否指向有效行
 else
 dbms_output.put_line('Sorry');
 end if;
 if sql%notfound then
 dbms_output.put_line('Also Sorry');
 else
 dbms_output.put_line('Haha');
 end if;
 dbms_output.put_line(sql%rowcount);
 exception 
 when no_data_found then
 dbms_output.put_line('Sorry No data');
 when too_many_rows then
 dbms_output.put_line('Too Many rows');
 end;
declare
 empNumber emp.EMPNO%TYPE;
 empName emp.ENAME%TYPE;
 begin
 if sql%isopen then
 dbms_output.put_line('Cursor is opinging');
 else
 dbms_output.put_line('Cursor is Close');
 end if;
 if sql%notfound then
 dbms_output.put_line('No Value');
 else
 dbms_output.put_line(empNumber);
 end if;
 dbms_output.put_line(sql%rowcount);
 dbms_output.put_line('-------------');
 
 select EMPNO,ENAME into empNumber,empName from emp where EMPNO=7499;
 dbms_output.put_line(sql%rowcount);
 
 if sql%isopen then
 dbms_output.put_line('Cursor is opinging');
 else
 dbms_output.put_line('Cursor is Closing');
 end if;
 if sql%notfound then
 dbms_output.put_line('No Value');
 else
 dbms_output.put_line(empNumber);
 end if;
 exception 
 when no_data_found then
 dbms_output.put_line('No Value');
 when too_many_rows then
 dbms_output.put_line('too many rows');
 end;
 
 
 
--2,使用游标和loop循环来显示所有部门的名称
--游标声明
declare 
 cursor csr_dept
 is
 --select语句
 select DNAME
 from Depth;
 --指定行指针,这句话应该是指定和csr_dept行类型相同的变量
 row_dept csr_dept%rowtype;
begin
 --for循环
 for row_dept in csr_dept loop
 dbms_output.put_line('部门名称:'||row_dept.DNAME);
 end loop;
end;


--3,使用游标和while循环来显示所有部门的的地理位置（用%found属性）
declare
 --游标声明
 cursor csr_TestWhile
 is
 --select语句
 select LOC
 from Depth;
 --指定行指针
 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; 
select * from emp



 
--4,接收用户输入的部门编号，用for循环和游标，打印出此部门的所有雇员的所有信息(使用循环游标)
--CURSOR cursor_name[(parameter[,parameter],...)] IS select_statement;
--定义参数的语法如下:Parameter_name [IN] data_type[{:=|DEFAULT} value] 

declare 
 CURSOR 
 c_dept(p_deptNo number)
 is
 select * from emp where emp.depno=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;
select * from emp 
--5：向游标传递一个工种，显示此工种的所有雇员的所有信息(使用参数游标)
declare 
 cursor
 c_job(p_job nvarchar2)
 is 
 select * from emp where JOB=p_job;
 r_job emp%rowtype;
begin 
 for r_job in c_job('CLERK') loop
 dbms_output.put_line('员工号'||r_job.EMPNO||' '||'员工姓名'||r_job.ENAME);
 end loop;
end;
SELECT * FROM EMP

--6：用更新游标来为雇员加佣金：(用if实现,创建一个与emp表一摸一样的emp1表，对emp1表进行修改操作),并将更新前后的数据输出出来 
--http://zheng12tian.iteye.com/blog/815770 
 create table emp1 as select * from emp;
 
declare
 cursor
 csr_Update
 is
 select * from emp1 for update OF SAL;
 empInfo csr_Update%rowtype;
 saleInfo emp1.SAL%TYPE;
begin
 FOR empInfo IN csr_Update LOOP
 IF empInfo.SAL<1500 THEN
 saleInfo:=empInfo.SAL*1.2;
 elsif empInfo.SAL<2000 THEN
 saleInfo:=empInfo.SAL*1.5;
 elsif empInfo.SAL<3000 THEN
 saleInfo:=empInfo.SAL*2;
 END IF;
 UPDATE emp1 SET SAL=saleInfo WHERE CURRENT OF csr_Update;
 END LOOP;
END;

--7:编写一个PL/SQL程序块，对名字以‘A’或‘S’开始的所有雇员按他们的基本薪水(sal)的10%给他们加薪(对emp1表进行修改操作)
declare 
 cursor
 csr_AddSal
 is
 select * from emp1 where ENAME LIKE 'A%' OR ENAME LIKE 'S%' for update OF SAL;
 r_AddSal csr_AddSal%rowtype;
 saleInfo emp1.SAL%TYPE;
begin
 for r_AddSal in csr_AddSal loop
 dbms_output.put_line(r_AddSal.ENAME||'原来的工资:'||r_AddSal.SAL);
 saleInfo:=r_AddSal.SAL*1.1;
 UPDATE emp1 SET SAL=saleInfo WHERE CURRENT OF csr_AddSal;
 end loop;
end;
--8：编写一个PL/SQL程序块，对所有的salesman增加佣金(comm)500
declare
 cursor
 csr_AddComm(p_job nvarchar2)
 is
 select * from emp1 where JOB=p_job FOR UPDATE OF COMM;
 r_AddComm emp1%rowtype;
 commInfo emp1.comm%type;
begin
 for r_AddComm in csr_AddComm('SALESMAN') LOOP
 commInfo:=r_AddComm.COMM+500;
 UPDATE EMP1 SET COMM=commInfo where CURRENT OF csr_AddComm;
 END LOOP;
END;

--9：编写一个PL/SQL程序块，以提升2个资格最老的职员为MANAGER（工作时间越长，资格越老）
--（提示：可以定义一个变量作为计数器控制游标只提取两条数据；也可以在声明游标的时候把雇员中资格最老的两个人查出来放到游标中。）
declare
 cursor crs_testComput
 is
 select * from emp1 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);
 --计速器减一
 top_two:=top_two-1;
 FETCH crs_testComput INTO r_testComput;
 end loop;
 close crs_testComput;
end;
 

--10：编写一个PL/SQL程序块，对所有雇员按他们的基本薪水(sal)的20%为他们加薪，
--如果增加的薪水大于300就取消加薪(对emp1表进行修改操作，并将更新前后的数据输出出来) 
declare
 cursor
 crs_UpadateSal
 is
 select * from emp1 for update of SAL;
 r_UpdateSal crs_UpadateSal%rowtype;
 salAdd emp1.sal%type;
 salInfo emp1.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 emp1 set SAL=salInfo where current of crs_UpadateSal;
 end loop;
end;
 
--11:将每位员工工作了多少年零多少月零多少天输出出来 
--近似
 --CEIL(n)函数：取大于等于数值n的最小整数
 --FLOOR(n)函数：取小于等于数值n的最大整数
 --truc的用法 http://publish.it168.com/2005/1028/20051028034101.shtml
declare
 cursor
 crs_WorkDay
 is
 select ENAME,HIREDATE,trunc(months_between(sysdate,hiredate) / 12) AS SPANDYEARS,trunc(mod(months_between(sysdate,hiredate),12)) AS months,trunc(mod(mod(sysdate - hiredate,365),12)) as days
 from emp1;
 r_WorkDay crs_WorkDay%rowtype;
begin
 for r_WorkDay in crs_WorkDay loop
 dbms_output.put_line(r_WorkDay.ENAME||'已经工作了'||r_WorkDay.SPANDYEARS||'年,零'||r_WorkDay.months||'月,零'||r_WorkDay.days||'天');
 end loop;
end;
 
--12:输入部门编号，按照下列加薪比例执行(用CASE实现，创建一个emp1表，修改emp1表的数据),并将更新前后的数据输出出来
-- deptno raise(%)
-- 10 5%
-- 20 10%
-- 30 15%
-- 40 20%
-- 加薪比例以现有的sal为标准
--CASE expr WHEN comparison_expr THEN return_expr
--[,WHEN comparison_expr THEN return_expr]... [ELSE else_expr] END
declare
 cursor
 crs_caseTest
 is
 select * from emp1 for update of SAL;
 r_caseTest crs_caseTest%rowtype;
 salInfo emp1.sal%type;
 begin
 for r_caseTest in crs_caseTest loop
 case 
 when r_caseTest.DEPNO=10
 THEN salInfo:=r_caseTest.SAL*1.05;
 when r_caseTest.DEPNO=20
 THEN salInfo:=r_caseTest.SAL*1.1;
 when r_caseTest.DEPNO=30
 THEN salInfo:=r_caseTest.SAL*1.15;
 when r_caseTest.DEPNO=40
 THEN salInfo:=r_caseTest.SAL*1.2;
 end case;
 update emp1 set SAL=salInfo where current of crs_caseTest;
 end loop;
end;

--13:对每位员工的薪水进行判断，如果该员工薪水高于其所在部门的平均薪水，则将其薪水减50元，输出更新前后的薪水，员工姓名，所在部门编号。
--AVG([distinct|all] expr) over (analytic_clause)
---作用：
--按照analytic_clause中的规则求分组平均值。
 --分析函数语法:
 --FUNCTION_NAME(,...)
 --OVER
 --()
 --PARTITION子句
 --按照表达式分区(就是分组),如果省略了分区子句,则全部的结果集被看作是一个单一的组
 select * from emp1
DECLARE
 CURSOR 
 crs_testAvg
 IS
 select EMPNO,ENAME,JOB,SAL,DEPNO,AVG(SAL) OVER (PARTITION BY DEPNO ) AS DEP_AVG
 FROM EMP1 for update of SAL;
 r_testAvg crs_testAvg%rowtype;
 salInfo emp1.sal%type;
 begin
 for r_testAvg in crs_testAvg loop
 if r_testAvg.SAL>r_testAvg.DEP_AVG then
 salInfo:=r_testAvg.SAL-50;
 end if;
 update emp1 set SAL=salInfo where current of crs_testAvg;
 end loop;
end;

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

c# json字符串转Oracle的insert into的小程序
文章浏览阅读773次，点赞6次，收藏9次。【代码】c# json字符串转Oracle的insert into的小程序。
PLSQL Developer远程连接Oracle报错提示：“ORA-12541：TNS：无监听程序”的解决方案及思路
文章浏览阅读8.7k次，点赞2次，收藏17次。此现象一般定位到远端的监听服务来找问题，在远端查看监听服务状态（具体看下面的解决方案会详细呈现），服务是否开启，另外查看监听端点概要是否存在host未指向到计算名的，如无直接进入监听配置文件listener.ora内添加指向即可。2、查看监听服务状态 lsnrctl status，右边为远端端点状态，未添加host指向到计算名；1、本地及远端安装好Oracle并配置好连接，Oracle服务和监听已启动；1、远程Oracle数据库：Oracle11g R2。或者进入下述服务手动重启。，再进行远程连接即可。_ora-12541:tns:无监听程序
将mysql的脚本转化为oracle的脚本攻略
文章浏览阅读2.8k次。mysql脚本转化为oracle脚本_mysql建表语句转oracle
cx_Oracle DatabaseError: DPI-1047: Cannot locate a 64-bit Oracle Client library XXX
文章浏览阅读2.2k次。cx_Oracle报错：cx_Oracle DatabaseError: DPI-1047: Cannot locate a 64-bit Oracle Client library_cx_oracle.databaseerror: dpi-1047: cannot locate a 64-bit oracle client libr
【Oracle】玩转Oracle数据库（二）：体系结构、存储结构与各类参数
文章浏览阅读1.1k次，点赞38次，收藏35次。本文深入探讨了Oracle数据库的核心要素，包括体系结构、存储结构以及各类参数。通过解析Oracle数据库的体系结构，读者可以深入了解其内部组成和工作原理。存储结构部分介绍了数据在Oracle中的存储方式，从表空间到数据文件的层层逻辑。最后，我们深入探讨了Oracle数据库中各类参数的作用和配置方法，帮助读者更好地理解和优化数据库性能。本文旨在帮助读者全面理解Oracle数据库的运作机制，为其在实践中的应用提供基础和指导。
oracle自动收集统计信息
文章浏览阅读1.5k次。默认自动收集统计信息的时间为晚上10点（周一到周五，4个小时），早上6点（周六，周日，20个小时）由于平时默认每天只收集4小时，时间有点短了，改成每天可收集8小时。oracle 18c中默认是打开的。查看当前自动收集统计信息的时间。_oracle自动收集统计信息
oracle 大页配置详细介绍
文章浏览阅读929次，点赞18次，收藏20次。只有assm（Automatic Shared Memory Management）模式可以使用大页，需要关闭amm（Memory Manager Process）HugePages_Free: 306 （空闲306页，已使用306-306=0页）防止oracle使用的内存交换，所以设置的大小与oracle配置的sga、pga相关。HugePages_Rsvd: 0 （操作系统承诺给oracle预留的页数）HugePages_Total: 306 （总共306页）_oracle11g 大页
Oracle第十五节---Oracle中的日志
文章浏览阅读801次。例如：10046：0，1，4，8，12。默认redo日志有三个，大小为50M，循环覆盖使用。redo log再覆盖之前，会被归档，形成归档日志。答：不同事件，不同级别。trace的不同级别？_oracle 日志
【MySQL基础|第一篇】——谈谈SQL中的DDL语句
文章浏览阅读4.2k次，点赞84次，收藏77次。主要讲解MySQL中SQL的DDL语句，其中包括对数据库和表的一系列操作。_sql ddl 新增字段 mysql
ORACLE物化视图materialized view
文章浏览阅读1.1k次。ON DEMAND：仅在该物化视图“需要”被刷新了，才进行刷新(REFRESH)，即更新物化视图，以保证和基表数据的一致性；ON COMMIT：一旦基表有了COMMIT，即事务提交，则立刻刷新，立刻更新物化视图，使得数据和基表一致。Method =>'C',物化视图有三种刷新方式：COMPLETE、FAST和FORCE。物化视图会占用空间，一半可用于大量数据查询时，减缓主表的查询压力使用。例如创建一个物化视图，让对接单位查询。_oracle物化视图定时刷新
Oracle NoSQL Database 的集成与开发者工具
文章浏览阅读713次，点赞21次，收藏18次。1.背景介绍在当今的大数据时代，数据量越来越大，传统的关系型数据库已经无法满足业务需求。因此，NoSQL数据库技术迅速崛起，成为企业和开发者的首选。Oracle NoSQL Database是Oracle公司推出的一款分布式NoSQL数据库产品，具有高性能、高可用性和易于扩展等特点。在本文中，我们将深入了解Oracle NoSQL Database的集成与开发者工具，帮助您更好地掌握这款产品的...
Oracle-如何判断字符串包含中文字符串（汉字），删除中文内容及保留中文内容
文章浏览阅读2.5k次，点赞2次，收藏4次。今天遇见一个问题需要将字段中包含中文字符串的筛选出来。_oracle查询包含中文字符
arcmap 在oracle删除表重新创建提示表名存在解决放啊
文章浏览阅读802次。arcmap 在oracle删除表重新创建提示表名存在解决放啊
Oracle连接数据库提示 ORA-12638:身份证明检索失败
文章浏览阅读4.3k次，点赞2次，收藏4次。Oracle连接数据库提示 ORA-12638:身份证明检索失败_ora-12638
2023年 Linux JDK1.8安装（详细教程）
文章浏览阅读3.4k次，点赞6次，收藏25次。etc/profile是一个全局配置文件，所有用户登录都会使用该文件构建用户环境。与windows配置环境变量是一个道理。选择Linux系统，找到适合自己系统的安装包，我的是CentOS 8 x64。接下来需要登陆Oracle账户才能下载，无账户的可以自己注册一个。Linux中export 命令用于设置或显示环境变量。模式，利用上下键到文档最后，添加以下代码。出现如图所示版本号字样，则说明安装成功。点击下载，勾选1，点击2。记住完整路径用于后面配置。找到Java并点击进去。往下翻，找到Java8。_linux安装jdk1.8
JDK安装教程详解
文章浏览阅读2.4w次，点赞26次，收藏109次。JDK 是的简称，也就是 Java 开发工具包。JDK 是整个 Java 的核心，其中JDK包含了 Java 运行环境（Java Runtime Envirnment，简称 JRE），Java 工具（比如 javac、java、javap 等等），以及 Java 基础类库（比如 rt.jar）。最主流的 JDK 是Oracle公司发布的 JDK，除了 Oracle JDK（商业化，更稳定）之外，还有很多公司和组织开发了属于自己的 JDK，比较有名的有IBM JDK（更适合 IBM） 和OpenJDK。_jdk安装教程
已解决java.sql.SQLNonTransientConnectionException:Could not create connection to database server异常的正确解决
文章浏览阅读7.5w次。出现 “java.sql.SQLNonTransientConnectionException:Could not create connection to database server” 的错误通常是由于无法连接到数据库服务器引起的。_java.sql.sqlnontransientconnectionexception: could not create connection to
ClickHouse中创建用户、数据库并进行权限分配
文章浏览阅读849次，点赞7次，收藏10次。在ClickHouse中创建用户、数据库并进行权限分配是一个重要的管理任务，它涉及到安全性和访问控制。下面是一个基本的指南来帮助你完成这些操作：1. 创建数据库首先，需要创建一个数据库。使用以下命令：CREATE DATABASE IF NOT EXISTS your_database_name;将 your_database_name 替换为你想要的数据库名。2. 创建用户接下来，创建一个新用户。使用以下命令：CREATE USER your_username IDENTIFIED WIT_在clickhouse中如何创建用户 赋权
【Oracle】玩转Oracle数据库（一）：装上去，飞起来！
文章浏览阅读1.2k次，点赞53次，收藏39次。本文是一篇关于Oracle数据库安装和使用的博文摘要。作者以轻松幽默的笔调介绍了自己在实验中掌握的Oracle数据库基本操作，包括使用组件查看命令、配置数据库监听器等。作者也分享了在实验中遇到的一些有趣问题，如SQL语句缺少分号导致的意外错误。此外，作者还强调了登录sys用户和启动实例加载数据库的注意事项，并鼓励读者面对挑战时保持乐观，不断提升自己的能力。整体风格风趣严谨，引人入胜。
人大金仓数据库KingbaseES 兼容Oracle包dbms_xmlgen的SETSKIPROWS过程使用介绍
文章浏览阅读820次，点赞17次，收藏16次。KingbaseES、xml、dbms_xmlgen、SETSKIPROWS、人大金仓、KingbaseES兼容Oracle包dbms_xmlgen的功能是通过SQL查询将关系表中数据转化为XML文档。转化方式一共有两种：（1）通过查询字符串直接转化。（2）通过上下文句柄转化。对于通过查询字符串直接转化的方式，无法跳过若干行进行查询，只能直接将表格中的所有数据转化为XML文档。
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot