Oracle 数据库基础学习 (八) PL/SQL综合练习
1、定义游标:列出每个员工的姓名、部门名称并编程显示第10个到第20个记录。
declare
cursor zemp_cursor is (select temp.ename, temp.dname
from (select e.ename, d.dname, ROWNUM rn
from zemp e, zdept d
where e.deptno=d.deptno(+)
and ROWNUM<=20) temp
where temp.rn >10) ;
begin
for zemp_record in zemp_cursor loop --隐式打开游标
dbms_output.put_line('ename is ' || zemp_record.ename || ' dname is ' || zemp_record.dname) ;
end loop; --隐式关闭游标 end;
/
2、定义游标:从雇员表中显示工资大于3000的记录,只要姓名、部门编号和工资。编程显示其中的奇数记录。
declare
cursor zemp_cursor is (select ROWNUM rn, ename, deptno, sal
from zemp
where sal > 3000) ;
begin
for zemp_record in zemp_cursor loop
--if mod(zemp_record.rn, 2)<>0 then
if mod(zemp_cursor%rowcount, 2)<>0 then
dbms_output.put_line( zemp_cursor%rowcount
--zemp_record.rn
||' ename is ' || zemp_record.ename
||' deptno is ' || zemp_record.deptno
||' sal is ' || zemp_record.sal) ;
end if ;
end loop;
end;
/
3、计算下面级数当末项小于0.001时的部分和。
1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))+ ……
declare
n number :=1 ;
total number :=0 ;
begin
loop
total:=total+1/(n*(n+1)) ;
exit when (1/(n*(n+1)))<0.001 ;
--select sum(total+1/(n*(n+1))) into total from dual ;
n:=n+1;
end loop ;
dbms_output.put_line('The final sum is:'|| total) ;
end ;
/
4、计算s=1*2+2*3+…+N*(N+1),当N=50的值。
declare
n number :=1 ;
total number(10,3):=0 ;
begin
loop
total := total + n*(n+1) ;
exit when n=50 ;
--select sum(total+(1/((n+1)*(n+2)))) into total from dual ;
n:=n+1;
end loop ;
dbms_output.put_line('The final sum is:'|| total) ;
end ;
/
5、两重循环,计算S=1!+2!+…+10!。
declare
a number:=0;
s number:=0;
begin
for i in 1..10 loop
a:=1;
for j in 1..i loop
a:=a*j;
end loop;
s:=s+a;
dbms_output.put_line(a);
end loop; dbms_output.put_line('s='||to_char(s));
end;
/
6、编程序求满足不等式 1+3^2+5^2+…+N^2>2000的最小N值。
declare
n number :=1 ;
total number :=0 ;
begin
loop
total := total+power(n,2) ;
n:=n+2;
exit when total>2000 ;
end loop ;
dbms_output.put_line('The min N is:'|| n) ;
end ;
/
7、将雇员表中的所有工资小于3000增加400,统计出增加工资的人数及增加的工资数量。
declare
cursor sal_cursor is (select sal from zemp where sal<3000) for update of sal nowait ;
--锁定sal列,保证sal能够正常更新
n number ;
begin
select count(1) into n from zemp where sal<3000 ;
if n=0 then
RAISE_APPLICATION_ERROR(-20017, '数据不存在!') ;
else
for emp_record in sal_cursor loop
update zemp set sal=emp_record.sal+400 where current of sal_cursor ;
end loop ;
commit; --提交释放
end if ;
dbms_output.put_line('增加工资的人数:'|| n ||' 增加工资的人数:'|| 400*n) ; exception
when others then
dbms_output.put_line('数据输入错误') ;
dbms_output.put_line('SQLCODE = '|| SQLCODE) ;
dbms_output.put_line('SQLERRM = '|| SQLERRM) ;
end;
/
8、将雇员表中的部门编号为30的所有员工删除,统计删除的人数及删除人的平均工资。
declare
v_avg number ;
v_count number ;
begin
select avg(sal),count(empno) into v_avg,v_count from zemp where deptno=30 ;
delete from zemp where deptno=30 ;
dbms_output.put_line('删除的人数:'|| v_count||' 删除人员的平均工资:'|| v_avg) ;
end ;
/
9、触发器的定义。
CREATE OR REPLACE TRIGGER TT
BEFORE DELETE OR UPDATE
OR INSERT ON zemp
BEGIN
DBMS_OUTPUT.PUT_LINE('触发器TT');
END;
/
调用:
UPDATE zemp SET SAL=SAL-100 WHERE SAL>1000;
触发器TT
16 rows updated
10、从雇员表中显示工资最高的前五个人的姓名,部门和工资。
declare
cursor zemp_cursor is select sal,ename,deptno from zemp order by sal desc,ename ;
i number :=0 ;
begin
dbms_output.put_line('最高工资的5个人:') ;
for zemp_xixi in zemp_cursor loop
exit when i=5;
dbms_output.put_line('姓名:'|| zemp_xixi.ename||' 部门:'|| zemp_xixi.deptno
||' 工资:'|| zemp_xixi.sal) ;
i:=i+1;
end loop ;
end;
/
11、编写过程:当给定的部门编号存在时,显示部门的信息。如果不存在则将该部门插入其中。
create or replace procedure show_insert_proc(v_deptno zdept.deptno%type)
as
v_count number ;
begin
select count(1) into v_count from zdept where deptno=v_deptno;
if v_count=0 then
dbms_output.put_line('不存在该部门!!');
insert into zdept(deptno, dname, loc) values(v_deptno,'资讯','昆山');
commit ;
dbms_output.put_line('插入成功!!');
else
for x in (select * from zdept where deptno=v_deptno) loop
dbms_output.put_line('部门编号:'||x.deptno
||' 部门名称:'||x.dname
||' 部门位置:'||x.loc) ;
end loop ;
end if ;
end ;
/
12、编写函数:对雇员表按工资从小到大排序后的第n条到第m条记录的工资总和。
create or replace function order_zemp_fun(v_start number, v_final number)
return number
as
v_sum number := 0;
begin
if v_start>v_final then
dbms_output.put_line('起点数据大于终点数据!!');
return -1 ;
else
select sum(sal) into v_sum
from (select rownum rn,sal
from (select sal from zemp order by sal)
where rownum<=v_final) temp
where temp.rn>=v_start ;
return v_sum ;
end if ;
end ;
/
测试:
declare
x number;
begin
x:=order_zemp_fun(5, 10);
dbms_output.put_line( '第五到第十条记录工资总和:'|| x) ;
end ;
/
第五到第十条记录工资总和:17835.38
PL/SQL procedure successfully completed
13、编写给定雇员编号从雇员表删除信息的过程。
create or replace procedure delete_empno_proc(v_empno zemp.empno%type)
as
v_count number ;
begin
select count(1) into v_count from zemp where empno=v_empno ;
if v_count=0 then
dbms_output.put_line('此雇员不存在!');
else
delete zemp where empno=v_empno;
dbms_output.put_line('此雇员成功删除!');
end if;
end ;
/
14、定义触发器:对表雇员表建立插入、删除、修改之前分别显示:开始插入、开始删除、开始修改。
CREATE OR REPLACE TRIGGER TT
BEFORE DELETE OR UPDATE OR INSERT
ON zemp
BEGIN
IF DELETING THEN
DBMS_OUTPUT.PUT_LINE('开始删除');
elsif UPDATING THEN
DBMS_OUTPUT.PUT_LINE('开始更新');
elsif INSERTING THEN
DBMS_OUTPUT.PUT_LINE('开始插入');
END IF;
END TT;
/
15、编写过程:从雇员表中删除按工作编号从小到大排序后第N条记录。
create or replace procedure delete_num_proc(v_num number)
as
i number :=1 ;
v_count number ;
v_empno zemp.empno%type ;
v_ename zemp.ename%type ;
begin
select count(1) into v_count from zemp ;
--错误检查
if (v_num>v_count or v_num<0) then
RAISE_APPLICATION_ERROR(-20017, '数据输入错误!') ;
RETURN ;
else
--查找到员工的编号
for c1 in (select empno,ename from zemp order by empno) loop
if i=v_num then
v_empno:=c1.empno ;
v_ename:=c1.ename ;
exit ;
end if;
i:=i+1 ;
end loop;
--删除员工信息
delete from zemp where empno=v_empno ;
dbms_output.put_line('员工:'|| v_ename ||' 编号:'||v_empno||' 删除成功!!') ;
end if ;
exception
when others then
dbms_output.put_line('数据输入非法!!') ;
dbms_output.put_line('SQLCODE = '|| SQLCODE) ;
dbms_output.put_line('SQLERRM = '|| SQLERRM) ;
end ;
/
Oracle 数据库基础学习 (八) PL/SQL综合练习的更多相关文章
- Oracle 数据库 基础学习 (一) SQL基本知识
Oracle 从零开始,不知所措.要掌握一种技能,最好的方式是先学会怎么使用它,然后再深入学习,先有样子,再有技术. 一,什么是数据库? 为什么需要数据库? 数据库实质上是一个信息的列表,或者是一 ...
- Oracle 数据库基础学习 (二) 学习小例子:创建一个表,记录商品买卖的情况
运行环境:Oracle database 11g + PL/SQL Developer ex: --创建一个表 create table plspl_test_product( --加入not n ...
- Oracle数据库编程:使用PL/SQL编写触发器
8.使用PL/SQL编写触发器: 触发器存放在数据缓冲区中. 触发器加序列能够实现自动增长. 在触发器中不能使用connit和rollback. DML触发器 ...
- Oracle 数据库基础学习 (七) SQL语句综合练习
一.多表查询综合练习 1. 列出高于在30部门工作的所有人员的薪金的员工的姓名.部门名称.部门编号.部门人数 分析: 需要的员工信息: |-emp表:姓名.部门编号 |-dept表:部门名称.部门编 ...
- Oracle 数据库基础学习 (三) Oracle 四个表结构
Oracle 四个表的 emp dept salgrade bunus 的结构,记住有利于后期SQL语句的学习 雇员表(emp) No. 字段 类型 描述 1 empno NUMBER(4) 表示 ...
- Oracle 数据库基础学习 (六) 子查询
子查询在一个select中出现多个嵌套查询语句 1.在where子句中使用子查询(一般返回"单行单列" "单行多列" "多行单列"(可以提供 ...
- Oracle 数据库基础学习 (五) 多表查询
多表查询:查询结果需要用到两个或者以上表,此时需要多表连接,产生多表查询 1.内连接(等值连接) 示例:将两个表内容连接显示 select * from dept d, emp e where d.d ...
- Oracle 数据库基础学习 (四) group by的使用
group by分组查询 示例:要求查询出每个部门的编号,人数,以及最高和最低工资 select deptno, count(empno), max(sal), min(sal) from em ...
- oracle 10g 学习之PL/SQL简介和简单使用(10)
PL /SQL是一种高级数据库程序设计语言,该语言专门用于在各种环境下对ORACLE数据库进行访问.由于该语言集成于数据库服务器中,所以PL/SQL代码可以对数据进行快速高效的处理.PL/SQL是 P ...
随机推荐
- Ubuntu 16 安装ElasticSearch
首先安装Java,参见博客:http://www.cnblogs.com/1zhk/p/6056406.html 下载ElasticSearch安装包 curl -L -O https://artif ...
- 自定义view(二)
1.View 的绘制 通过继承View 并重写它的onDraw()来完成绘制. onDraw()有一个参数,就是Canvas对象.使用这个Canvas就可以绘制图像了,Canvas canvas = ...
- 30个你必须记住的CSS选择符
所以你学会了基础的id,类和后代选择符,然后你就一直用它们了吗?如果是这样,你丢失了(css的)巨大的灵活性.在本文中提到的很多选择器属于CSS3规范的一部分,因此,只有在现代浏览器中才可使用. 1. ...
- 浅谈cssText
给一个HTML元素设置css属性,如 var head= document.getElementById("head"); head.style.width = "200 ...
- 深入理解脚本化CSS系列第一篇——脚本化行内样式
× 目录 [1]用法 [2]属性 [3]方法 前面的话 脚本化CSS,通俗点说,就是使用javascript来操作CSS.引入CSS有3种方式:外部样式,内部样式和行间样式.本文将主要介绍脚本化行间样 ...
- 深入理解javascript作用域系列第五篇——一张图理解执行环境和作用域
× 目录 [1]图示 [2]概念 [3]说明[4]总结 前面的话 对于执行环境(execution context)和作用域(scope)并不容易区分,甚至很多人认为它们就是一回事,只是高程和犀牛书关 ...
- 连接第二个 insance 到 first_local_net - 每天5分钟玩转 OpenStack(83)
上一节在 first_local_net 中已经部署了 cirros-vm1,今天将再部署一个instance,并验证两个 instance 的连通性. 以同样的方式 launch instance ...
- mysql default unix_timestamp(now())
按照mssql的创建方式,去创建mysql的默认值时间戳是不能被允许的,例如下面代码: CREATE TABLE USERINFO( CREATETIME INT NOT NULL DEFAULT U ...
- C# 将PowerPoint文件转换成PDF文件
PowerPoint的优势在于对演示文档的操作上,而用PPT查看资料,反而会很麻烦.这时候,把PPT转换成PDF格式保存,再浏览,不失为一个好办法.在日常编程中和开发软件时,我们也有这样的需要.本文旨 ...
- struts2学习笔记--总结获取servletAPI的几种方式
struts2的Action放弃了request,response等ServletAPI,使得在业务层上更加独立,在有时候使用struts2进行Web开发的时候,不可避免的要在action中使用ser ...