1、定义基本变量:
2、引用型的变量:
set serveroutput on
declare
pename emp.ename%type;
psal emp.sal%type;
begin
select ename,sal into pename,psal from emp where empno='7521';
dbms_output.put_line(pename||'的薪水是'||psal);
end;
/
3、记录型变量:
set serveroutput on
declare
emp_rec emp%rowtype;
begin
select * into emp_rec from emp where empno='7698';
dbms_output.put_line(emp_rec.ename||'的薪水是'||emp_rec.sal);
end;
/
4、if语句的使用
/*
判断用户从键盘的输入
*/
set serveroutput on
--接受一个键盘输入
--num:地址值,含义是在该地址上保存了输入的值
accept num prompt'请输入一个数字';
declare
--定义变量从键盘的输入
pnum number:=#
begin
if pnum=0 then dbms_output.put_line('您输入的是0');
elsif pnum=1 then dbms_output.put_line('您输入的是1');
elsif pnum=2 then dbms_output.put_line('你输入的是2');
else dbms_output.put_line('其他');
end if;
end;
/
5、while循环:
set serveroutput on
declare
pnum number := 1;
begin
while pnum <= 10 loop
dbms_output.put_line(pnum);
pnum := pnum + 1;
end loop;
end;
/
6、loop循环
set serveroutput on
declare
pnum number:=1;
begin
loop
exit when pnum>10;
dbms_output.put_line(pnum);
pnum:=pnum+1;
end loop;
end;
/
7、for循环
set serveroutput on
declare
pnum number:=1;
begin
for pnum in 1..10 loop
dbms_output.put_line(pnum);
end loop;
end;
/
(推荐使用loop循环)
8、光标的使用
--查询并打印员工的姓名和薪水
set serveroutput on
/*
光标的属性
%found:光标找到记录 %notfound:光标找不到记录
*/
declare
--定义一个光标
cursor cemp is select ename,sal from emp;
--为光标定义对应的变量
pename emp.ename%type;
psal emp.sal%type;
begin
--打开光标
open cemp;
loop
--取一条记录
fetch cemp into pename,psal;
exit when cemp %notfound;
dbms_output.put_line(pename||'的薪水是'||psal);
end loop;
--关闭光标
close cemp;
end;
/
9、实例---给员工涨工资:
set serveroutput on
declare
cursor cemp is select empno,perjob from emp;
pempno emp.empno%type;
pjob emp.perjob%type;
begin
open cemp;
loop
fetch cemp into pempno,pjob;
exit when cemp %notfound;
if pjob='PRESIDENT' then update emp set sal=sal+1500 where empno=pempno;
elsif pjob='ANALYST' then update emp set sal = sal+1000 where empno=pempno;
elsif pjob='SALESMAN' then update emp set sal = sal+500 where empno=pempno;
else update emp set sal = sal+300 where empno=pempno;
end if;
end loop;
close cemp;
commit;(如果update了数据,需在后面加上commit)
end;
/
10、光标的其他属性及其使用实例
①%isopen:
if cemp%isopen then dbms_output.put_line('光标一打开');
②%rowcount: (总共影响的行数)
dbms_output.put_line('行数:'||cemp %rowcount);
11、光标数的限制:
默认情况下oracle数据库只允许在同一个会话中打开300个光标
查看光标属性:切换到sys管理员用户下,conn sys/root as sysdba 就可以切换到sys用户
修改默认的光标数:
alter system set open_cursors=400 scope=both;
(scope的取值有三个参数:
memory:只更改当前实例,不更改系统参数文件
spfile :只更改参数文件,不更改当前实例,需重启数据库才能生效
both :是以上两者
如果设置错了,可以使用rollback命令回滚
11、带参数的光标
set serveroutput on
declare
cursor cemp(dno number) is select ename from emp where deptno=dno;
pename emp.ename%type;
begin
open cemp(10);
loop
fetch cemp into pename;
exit when cemp %notfound;
dbms_output.put_line(pename);
end loop;
close cemp;
end;
/
12、系统例外:
no_data_found (没有找到数据)
too_many_rows (select ... into 语句匹配多个行)
zero_divide (被零除)
value_error (算术或转换错误)
timeout_on_resource (在等待资源时发生超时)
13、自定义例外:
set serveroutput on
declare
pename emp.ename%type;
no_emp_found exception;
cursor cemp is select ename from emp where empno=12;
begin
open cemp;
fetch cemp into pename;
if cemp%notfound then
raise no_emp_found;
end if;
close cemp;
exception
when no_emp_found then dbms_output.put_line('找不到员工');
when others then dbms_output.put_line('其他');
end;
/
14、统计每年入职的员工数
set serveroutput on
declare
cursor cemp is select to_char(hiredate,'yyyy') from emp;
pdate varchar2(4);
count80 number := 0;
count81 number := 0;
count82 number := 0;
count87 number := 0;
begin
open cemp;
loop
fetch cemp into pdate;
exit when cemp%notfound;
if pdate='1980' then count80:=count80+1;
elsif pdate='1981' then count81:=count81+1;
elsif pdate='1982' then count82:=count82+1;
else count87:=count87+1;
end if;
end loop;
dbms_output.put_line('总共:'||(count80+count81+count82+count87));
dbms_output.put_line('1980:'||count80);
dbms_output.put_line('1981:'||count81);
dbms_output.put_line('1982:'||count82);
dbms_output.put_line('1987:'||count87);
close cemp;
end;
/
15、案例二:为员工涨工资
/*
做之前先分析
SQL语句
select empno,sal from emp order by sal asc;
-->光标-->循环-->退出条件:1.工资总额>5w 2.%notfound
变量:1.初始值 2.如何得到
涨工资的人数:
countEmp number :=0;
涨后的工资总额:
salTotal number;
select sum(sal) into salTal from emp;
张后的工资总额=涨前的工资总额 + sal * 0.1
*/
set serveroutput on
declare
cursor cemp is select empno,sal from emp order by sal;
pempno emp.empno%type;
psal emp.sal%type;
countEmp number:=0;
salTotal number;
stop_sal exception;
begin
select sum(sal) into salTotal from emp;
open cemp;
loop
if salTotal < 50000 then (加入限制只有工资总额在5000以内才执行下面的代码)
exit when salTotal>50000;
fetch cemp into pempno,psal;
exit when cemp%notfound;
countEmp := countEmp+1;
update emp set sal=sal*1.1 where empno=pempno;
salTotal := salTotal + psal*0.1;
else raise stop_sal;
end if;
end loop;
close cemp;
commit;
dbms_output.put_line('涨工资人数:'||countEmp||'工资总额:'||salTotal);
exception
when stop_sal then dbms_output.put_line('涨工资结束');
when others then dbms_output.put_line('其他');
end;
/
16、综合案例四
1、由于最后的结果也是一张表,所以先创建一张表
create table msg1(
coursename varchar2(20),
dname varchar2(20),
count1 number,
count2 number,
count3 number,
avggrade number
);
SQL语句
1、得到有哪些系
select dno,dname from dep; -->光标 -->循环-->退出条件:notfound
2、得到系中选修了“大学物理“的学生的成绩
select grade fromm sc where cno=(select cno from course where cname=??) and sno in (select sno from student where dno =??);
-->带参数的光标 -->循环 -->退出条件 -->notfound
变量:1、初始值 2、如何得到
每个分数段的人数
count1 number,count2 number,count3 number
每个系选修了大学物理的学生的平均成绩
avggrade number
1、算术运算
2、sql语句查询
set serveroutput on
declare
--系的光标
cursor cdept is select dno,dname from dep;
pdno dep.dno%type;
pdname dep.dname%type;
--成绩光标
cursor cgrade(coursename varchar2,depno number) is select grade from sc where cno=(select cno from course where cname=coursename)
and sno in (select sno from student where dno=depno);
pgrade sc.grade%type;
--每个分数段的人数
count1 number;count2 number;count3 number;
--每个系选修了大学物理的学生的平均成绩
avggrade number;
--课程名称
pcourseName varchar2(20) := '大学物理';
begin
--打开系的光标
open cdept;
loop
--取一个系的信息
fetch cdept into pdno,pdname;
exit when cdept %notfound;
--初始化工作
count1:=0;count2:=0;count3:=0;
--系的平均成绩
select avg(grade) into avggrade from sc where cno=(select cno from course where cname=pcourseName)
and sno in (select sno from student where dno=pdno);
--取系中选修了大学物理的学生成绩
open cgrade(pcourseName,pdno);
loop
--取一个学生的成绩
fetch cgrade into pgrade;
exit when cgrade%notfound;
--判断成绩的范围
if pgrade<60 then count1:=count1+1;
elsif pgrade>=60 and pgrade<85 then count2:=count2+1;
else count3:=count3+1;
end if;
end loop;
close cgrade;
--保存当前的结构
insert into msg1 values(pcourseName,pdname,count1,count2,count3,avggrade);
end loop;
close cdept;
dbms_output.put_line('数据查询成功!');
end;
/
- Oracle数据库之PL/SQL触发器
Oracle数据库之PL/SQL触发器 1. 介绍 触发器(trigger)是数据库提供给程序员和数据分析员来保证数据完整性的一种方法,它是与表事件相关的特殊的存储过程,它的执行不是由程序调用,也不是 ...
- Oracle数据库之PL/SQL包
Oracle数据库之PL/SQL包 1. 简介 包(PACKAGE)是一种数据对象,它是一组相关过程.函数.变量.常量和游标等PL/SQL程序设计元素的组合,作为一个完整的单元存储在数据库中,用名称来 ...
- Oracle数据库之PL/SQL过程与函数
Oracle数据库之PL/SQL过程与函数 PL/SQL块分为匿名块与命名块,命名块又包含子程序.包和触发器. 过程和函数统称为PL/SQL子程序,我们可以将商业逻辑.企业规则写成过程或函数保存到数据 ...
- Oracle数据库之PL/SQL异常处理
Oracle数据库之PL/SQL异常处理 异常指的是在程序运行过程中发生的异常事件,通常是由硬件问题或者程序设计问题所导致的. PL/SQL程序设计过程中,即使是写得最好的程序也可能会遇到错误或未预料 ...
- Oracle数据库之PL/SQL流程控制语句
Oracle数据库之PL/SQL流程控制语句 在任何计算机编程语言(如C,Java,C#等)都有各种流程控制语句,同样,在PL/SQL中也存在这样的流程控制结构. 几种常见的流程控制结构: 一.条件结 ...
- ORALCE PL/SQL学习笔记
ORALCE PL/SQL学习笔记 详情见自己电脑的备份数据资料
- Oracle数据库之PL/SQL程序设计简介
PL/SQL程序设计简介 一.什么是PL/SQL? PL/SQL是 Procedure Language & Structured Query Language 的缩写. ORACLE的SQL ...
- oracle数据库之PL/SQL 块结构和组成元素
一.PL/SQL 块 (一)PL/SQL 程序由三个块组成,即声明部分.执行部分.异常处理部分 PL/SQL 块的结构如下: 1.DECLARE /* 声明部分: 在此声明 PL/SQL 用到的变量, ...
- Oracle之PL/SQL学习笔记
自己在学习Oracle是做的笔记及实验代码记录,内容挺全的,也挺详细,发篇博文分享给需要的朋友,共有1w多字的学习笔记吧.是以前做的,一直在压箱底,今天拿出来整理了一下,给大家分享,有不足之处还望大家 ...
随机推荐
- windows下使用xerces -c解析XML
windows下使用Xerces-C++解析XML 前景提要 最近工作中遇到收到的数据为xml格式的情况,考虑到xml解析应该是个很常用的功能,应该有开源的lib库可以使用,于是就在网上找了找,果然发 ...
- wxpython Menus and toolbars
Menus and toolbars A common part in a GUI application is a menubar. A menubar consists of objects ca ...
- SELECT s.* FROM person p INNER JOIN shirt s ON s.owner = p.id WHERE p.name LIKE 'Lilliana%' AND s.color <> 'white';
SELECT s.* FROM person p INNER JOIN shirt sON s.owner = p.idWHERE p.name LIKE 'Lilliana%'AND s.color ...
- SpringMVC方法接收参数可以为空、默认值设置
- dos基础+环境搭建基础理论
dos基础 市面上两大操作系统 windows.*nix(unix.linux.mac.bsd(安全性比较高)) 后三种都属于unix的衍生版本 linux是为了兼容unix开发的,最后开放了源代码 ...
- 一点一点学写Makefile(4) - 编译时指定宏参数
我们在项目中有时为了方便会自定义一些与项目无关的功能,例如打印输出一些提示信息.将关键协议生成文件等,但是如果每次都通过修改代码的方法来实现,测试部门就会认为你改的这些代码可能会带来其他问题.对于这种 ...
- Sql Server中一次更新多列数据
UPATE yourTableName SET column1 = xx, column2 = yy , column3 = zz WHERE yourCondition 举个例子,比如有这样一张表: ...
- c++11之100行实现简单线程池
代码从github上拷的,写了一些理解,如有错误请指正 Threadpool.h #ifndef THREAD_POOL_H #define THREAD_POOL_H #include <ve ...
- 【转】有关onpropertychange事件
<div style="border:1px solid #fc0;height:24px;width:300px;" id="target">&l ...
- 2018.11.24 struts2中的OGNL表达式及两者的结合
OGNL表达式 OGNL:对象视图导航语言. ${user.addr.name} 这种写法就叫对象视图导航. OGNL不仅仅可以视图导航.支持比EL表达式更加丰富的功能. 理解图示 使用OGNL准备工 ...