- 浏览: 27458 次
- 性别:
- 来自: 长沙
最新评论
-
endual:
可以采用ajax方式,把体验做的好点。
JavaBean创建和使用:计算器 -
qq_24665727:
顶一个
画图板小结 -
leaf-stop:
BS_YG 写道就用你的注册了,0.0,我这不是搞事吗,电子邮 ...
在HTML中使用正则表达式规范输入数据 -
BS_YG:
就用你的注册了,0.0,我这不是搞事吗,电子邮箱正则表达式有点 ...
在HTML中使用正则表达式规范输入数据 -
然并卵-277:
写的真好!
计算机网络中IP/ICMP协议分析实验
-- PL/SQL编程
-- SQL: Structed Query Language
-- PL: Procedure Language
--是对sql语言的补充
--为什么需要PL/SQL编程[在数据库服务端编程]
--减小网络开销
--提高性能
--提高了安全性
-- PL/SQL块 是基本单元
--允许输出
set serveroutput on;
--案例1
declare
str varchar2(20) := 'Hello World';
begin
--输出语句
dbms_output.put_line(str);
end;
--修改7499的工资
begin
update empbak set sal=2000 where empno=7499;
end;
--------------------------------------------------------
/*
数据类型
标量类型
数字型 Binary_Integer Number PLS_Integer
字符型 Char varchar2 long raw long Raw
时间日期型: Date Timestamp
布尔型: Boolean
LOB类型
BFile
BLOB
CLOB
NCLOB
属性类型
%type
%rowtype
复合类型
自定义类型,类似于C语言中的结构体
----------------------------------------------------
操作符
:= 赋值操作符 相当于Java中的 =
|| 连接操作符 相当于Java中的 +
-- 单行注释
<<>> 标签分隔符
.. 范围操作符
** 求幂操作符
比较运算符
= 等于 相当于Java中的 ==
<> != 不等于
>
<
>=
<=
逻辑运算符
and 并且 相当于Java中的 &&
or 或者 相当于Java中的 ||
not 非 相当于Java中的 !
*/
--查询执行编号的员工的姓名
declare
v_ename varchar2(5);--声明一个变量用来接收查询的结果
begin
select ename into v_ename from empbak where empno=&aaa;
dbms_output.put_line('名字是:'||v_ename);
--处理异常
exception
when no_data_found then
dbms_output.put_line('没有这个编号的员工!');
end;
-----------------------------------------------
--属性类型
-- %type 参照字段类型
--根据编号查询员工的姓名和工资
declare
--变量的类型参照empbak表中ename字段的类型
v_ename empbak.ename%type;
v_sal empbak.sal%type;
begin
select ename,sal into v_ename,v_sal from empbak where empno=&aaa;
dbms_output.put_line('名字是:'||v_ename||' ,工资:'||v_sal);
--处理异常
exception
when no_data_found then
dbms_output.put_line('没有这个编号的员工!');
end;
---------------------------------------------------------------------
--复合类型
declare
--定义一个复合类型
type myrecord is record(
v_ename empbak.ename%type,
v_sal empbak.sal%type
);
--定义一个复合类型的变量
aa myrecord;
begin
select ename,sal into aa from empbak where empno=&no;
dbms_output.put_line('姓名:'||aa.v_ename||' 工资:'||aa.v_sal);
end;
------------------------------------------------------------------------
--根据员工编号查询员工的所有信息
--使用 %rowtype表示整行数据
declare
--%rowtype 表示变量是一个包含了empbak表所有字段的复合类型
aa empbak%rowtype;
begin
select * into aa from empbak where empno=&no;
dbms_output.put_line('姓名:'||aa.ename||' 工资:'||aa.sal);
end;
---------------流程控制------------------------------------------
--分支
-- if
--根据编号查询员工工资,如果发现工资低于1500,就给涨工资200
-- 否则减少200
declare
v_sal empbak.sal%type;
v_no empbak.empno%type;
begin
v_no :=&eno;
select sal into v_sal from empbak where empno=v_no;
if v_sal<1500 then
update empbak set sal=v_sal+200 where empno=v_no;
else
update empbak set sal=v_sal-200 where empno=v_no;
end if;
end;
--根据编号查询员工岗位,
--如果是 'MANAGER' 就+500sal
--如果是 'SALESMAN' 就+300sal
--如果是 'CLERK' 就+100sal
declare
v_job empbak.job%type;
v_no empbak.empno%type;
begin
v_no :=&eno;
select job into v_job from empbak where empno=v_no;
if v_job = 'MANAGER' then
update empbak set sal=sal+500 where empno=v_no;
elsif v_job = 'SALESMAN' then
update empbak set sal=sal+300 where empno=v_no;
elsif v_job = 'CLERK' then
update empbak set sal=sal+100 where empno=v_no;
else
null;--什么都不做
end if;
end;
--case语句
--根据编号查询员工岗位,
--如果是 'MANAGER' 就+500sal
--如果是 'SALESMAN' 就+300sal
--如果是 'CLERK' 就+100sal
declare
v_job emp.job%type;
v_no empbak.empno%type;
begin
v_no:=&no;
select job into v_job from empbak where empno=v_no;
case v_job
when 'MANAGER' then
update empbak set sal=sal+500 where empno=v_no;
when 'SALESMAN' then
update empbak set sal=sal+300 where empno=v_no;
when 'CLERK' then
update empbak set sal=sal+100 where empno=v_no;
else
null;
end case;
end;
--循环
--loop
--创建表
create table aa(id number,name varchar2(20));
--往表中插入10条测试数据
declare
i number:=0;
begin
loop
exit when i>=10;--当i等于10的时候退出循环
insert into aa values(i,'张三'||i);
i:=i+1;
end loop;
end;
--for循环
begin
--for中的i是不需要声明的,会自加,包含两边的边界
for i in 10..20 loop
insert into aa values(i,'张三'||i);
end loop;
end;
--while循环
declare
i number:=21;
begin
while i<=30 loop
insert into aa values(i,'张三'||i);
i:=i+1;
end loop;
end;
--跳转
--goto
declare
i number:=0;
begin
dbms_output.put_line('循环开始');
loop
if i=10 then
goto aa;
end if;
dbms_output.put_line('循环中'||i);
i:=i+1;
end loop;
dbms_output.put_line('循环结束111');
<<aa>> --goto的标签
dbms_output.put_line('循环结束222');
end;
--null语句
--表示此地不执行任何代码
---------------------------------------------------------------------------
--游标类型:用来表示一个结果集(多条数据)的类型
隐式游标
任何一个DML语句执行的时候都会默认创建一个游标
这个游标的名字是SQL
隐式游标有四个属性可以使用:
%found --执行的语句影响到了一行或者多行数据,就为true,否则为false
%notfound --执行的语没有影响数据,就为true,否则为false
%rowcount --获得执行语句影响到了多少行
%isopen --判断游标是否打开,隐式游标始终是false
--判断数据是否修改成功
begin
update empbak set sal=10000 where empno=&no;
if SQL%rowcount=0 then
dbms_output.put_line('更新失败!!');
else
dbms_output.put_line('更新成功!!');
end if;
end;
显式游标
--获取部门10的所有员工的姓名和工资
declare
v_ename emp.ename%type;
v_sal emp.sal%type;
--定义显式游标,一定要绑定一个查询语句
--游标mc中装的是查询语句的结果集
cursor mc is select ename,sal from emp where deptno=10;
begin
--打开游标[游标默认是关闭的],打开后才能够提取游标中的数据
open mc;
loop
--提取游标中的数据
--每fetch一次,就提取了一条数据
fetch mc into v_ename,v_sal;
--判断是否有数据,如果没有就退出
exit when mc%notfound;
dbms_output.put_line(v_ename||' '||v_sal);
end loop;
--关闭游标
close mc;
end;
--获取部门10的所有员工的基本信息
declare
v_emp emp%rowtype;
--定义显式游标,一定要绑定一个查询语句
--游标mc中装的是查询语句的结果集
cursor mc is select * from emp where deptno=10;
begin
--打开游标[游标默认是关闭的],打开后才能够提取游标中的数据
open mc;
loop
--提取游标中的数据
--每fetch一次,就提取了一条数据
fetch mc into v_emp;
--判断是否有数据,如果没有就退出
exit when mc%notfound;
dbms_output.put_line(v_emp.ename||' '||v_emp.sal);
end loop;
--关闭游标
close mc;
end;
--带参数的游标
--获取部门人数为3人的部门的所有员工信息
declare
v_emp emp%rowtype;
v_deptno emp.deptno%type;
--定义带参数的游标
cursor mc(a number) is select * from emp where deptno=a;
begin
--获得部门人数为3人的部门
select deptno into v_deptno from emp group by deptno having count(deptno)=3;
--打开游标的时候传入参数
open mc(v_deptno);
loop
--提取游标中的数据
--每fetch一次,就提取了一条数据
fetch mc into v_emp;
--判断是否有数据,如果没有就退出
exit when mc%notfound;
dbms_output.put_line(v_emp.ename||' '||v_emp.sal);
end loop;
--关闭游标
close mc;
end;
--通过游标更新数据
--查询部门10的所有人的姓名和工资,将每个人的工资加100
declare
v_ename empbak.ename%type;
v_sal empbak.sal%type;
--定义可以更新数据的游标,指定更新的列
cursor mc is select ename,sal from empbak where deptno=20 for update of sal;
begin
open mc;
loop
fetch mc into v_ename,v_sal;
exit when mc%notfound;
dbms_output.put_line(v_ename||' '||v_sal);
if v_sal<2000 then
--current of mc当前游标
update empbak set sal=sal+500 where current of mc;
end if;
end loop;
close mc;
end;
--使用for循环提取游标中的数据
declare
cursor mc is select ename,sal from emp where deptno=10;
begin
--for循环会自动打开和关闭游标
--for循环会自动判断是否提取结束
for aa in mc loop
dbms_output.put_line(aa.ename||' '||aa.sal);
end loop;
end;
REF游标
--查询部门10的所有人的姓名和工资
declare
--定义游标类型
type cursor_type is ref cursor;
--定义游标变量,不需要绑定查询语句
mc cursor_type;
v_ename empbak.ename%type;
v_sal empbak.sal%type;
v_empno empbak.empno%type;
v_job empbak.job%type;
begin
--打开游标的时候绑定查询语句
open mc for select ename,sal from empbak where deptno=10;
--提取数据
loop
fetch mc into v_ename,v_sal;
exit when mc%notfound;
dbms_output.put_line(v_ename||' '||v_sal);
end loop;
close mc;
open mc for select empno,job from empbak;
loop
fetch mc into v_empno,v_job;
exit when mc%notfound;
dbms_output.put_line(v_empno||' '||v_job);
end loop;
close mc;
end;
----------------------------------------------------------------------------
--数据库对象过程 函数 包 触发器
浪潮之巅
吴军 google
腾讯 搜搜
天使投资
--过程:用于完成一系列不可分割的任务的子程序
--过程必须调用才能执行
--修改指定编号员工的工资
create or replace procedure pro_1 is
begin
update empbak set sal=2000 where empno=7499;
end;
--执行过程
exec pro_1;
--创建一个带参数的过程
--参数的类型是不用定义长度的
--过程的参数分为传入参数和传出参数
--传入参数 in 在调用的时候需要传入一个值
-- 传出参数 out 在调用完之后会输出一个值
--in可以省略不写
--等到Java中调用过程的时候再来详细讲传入和传出参数
create or replace procedure pro_2(v_empno in number,v_sal in out number) is
begin
update empbak set sal=v_sal where empno=v_empno;
end;
--为部门表添加一个字段maxnum,整型,该字段表示部门编制最大人数。
--创建一个存储过程add_emp,该存储过程实现添加员工的功能,参数为empbak%rowtype类型。
--当某个部门的员工数超过该部门的最大编制时,使用异常处理方式提示用户“该部门人数编制已满,不能再添加员工”。
--写一个存储过程call_addemp,验证上述存储过程的正确性。
create table deptbak as select * from dept;
alter table deptbak add (maxnum number(5));
create or replace procedure pro_add_emp(v_emp empbak%rowtype) is
--定义变量
v_count number;--部门已有人数
v_maxnum number;--部门允许最大人数
myexception Exception;--定义一个异常对象
begin
--调用函数,获得部门已经有的人数
v_count:=fun_1(v_emp.deptno);
--获得该部门允许的最大人数
select maxnum into v_maxnum from deptbak where deptno= v_emp.deptno;
dbms_output.put_line(v_count||' '||v_maxnum);
if v_count<v_maxnum then
insert into empbak values(v_emp.empno,v_emp.ename,v_emp.job,v_emp.mgr,v_emp.hiredate,v_emp.sal,v_emp.comm,v_emp.deptno);
else
raise myexception;--抛出异常
end if;
exception
when myexception then
dbms_output.put_line('该部门人数已满,不能增加新员工');
end;
----------------
create or replace procedure pro_call_pro_add_emp(v_empno number) is
v_emp emp%rowtype;
begin
select * into v_emp from emp where empno=v_empno;
--调用其它过程
pro_add_emp(v_emp);
end;
-------------------------------
函数:是一个定义了返回值的子程序
--根据部门编号查询该部门已经有的员工数
--参数是部门编号
--返回值是该部门已经有的总人数
create or replace function fun_1(v_deptno number) return number is
v_count number;
begin
select count(empno) into v_count from empbak where deptno= v_deptno;
return v_count;
end;
--如何调用函数
--1.在sql语句中调用函数
--2.在过程中调用函数
--3.在函数中调用函数
--函数的特点
--1.参数只能是传入参数
--2.必须有返回值,并且只能有一个返回值
--3.函数的参数和返回值都不能是PL/SQL类型的
--程序包:类似于命名空间
--包中可以定义类型,变量,游标,过程,函数
--包由包头和包体组成
--包头类似于C的头文件,包体类似于C的原文件
create or replace package mypackage is
type type_cursor is ref cursor;
type myrecord is record(v_ename emp.ename%type,v_sal emp.sal%type);
procedure pro_22(v_empno number);--根据编号查询员工信息
function fun_22(v_empno number) return number;--根据员工编号查询员工工资
end mypackage;
--包体是包中过程和函数的实现
create or replace package body mypackage is
--过程的实现
procedure pro_22(v_empno number) is
--定义ref游标变量
mucursor mypackage.type_cursor;
v_emp emp%rowtype;
begin
open mucursor for select * from empbak where empno=v_empno;
loop
fetch mucursor into v_emp;
exit when mucursor%notfound;
dbms_output.put_line(v_emp.ename||' '||v_emp.sal);
end loop;
close mucursor;
end;
--函数的实现
function fun_22(v_empno number) return number is
v_sal emp.sal%type;
begin
select sal into v_sal from emp where empno=v_empno;
return v_sal;
end;
end mypackage;
--包外面的过程和函数同样可以使用包中的内容
create or replace procedure pro_23 is
mr mypackage.myrecord;--使用包中定义的类型
begin
select ename,sal into mr from empbak where empno=7369;
dbms_output.put_line(mr.v_ename||' '||mr.v_sal);
end;
-----------------------------------------------------
--触发器:事件触发自动执行的存储过程
before /after /instead insert / update /delete of 列名 on 表名
--创建一个被开除的员工信息表
create table empTemp as select * from empbak where 1=2;
--当开除一个员工之后,将员工的信息从emobak表移到emptemp表中
create or replace trigger tri_1
after delete on empbak
for each row --行级触发器,每影响到一行数据,就执行一次
begin
insert into emptemp values (:old.empno,:old.ename,:old.job,:old.mgr,:old.hiredate,:old.sal,:old.comm,:old.deptno);
end;
--禁止在休息时间更新员工信息[增加/删除/修改]
create or replace trigger tri_2
before insert or delete or update on empbak
for each row
begin
if to_char(sysdate,'DAY') in ('星期六','星期日') or to_char(sysdate,'HH24:MI') not between '08:30' and '17:30' then
raise_application_error(-20001,'不能在休息时间更新员工信息!');
end if;
end;
------------------------------------------------------------------
declare
v_emp empbak%rowtype;
cursor mc is select * from empbak;
begin
open mc;
fetch mc into v_emp;
if mc%found then
dbms_output.put_line('发现数据');
else
dbms_output.put_line('没有发现数据');
end if;
close mc;
end;
----------
declare
v_ename empbak.ename%type;
v_sal empbak.sal%type;
v_deptno empbak.deptno%type;
cursor mc is select ename,sal,deptno from empbak for update of sal;
begin
open mc;
loop
fetch mc into v_ename,v_sal,v_deptno;
exit when mc%notfound;
if v_deptno=30 then
update empbak set sal=sal+200 where current of mc;
dbms_output.put_line(v_ename||' '||v_deptno||' '||v_sal);
end if;
end loop;
close mc;
end;
---------------------------------------------------------
create or replace procedure add_dept(v_deptno number,v_dname varchar2) is
begin
insert into deptbak values(v_deptno,v_dname,'',0);
end;
-----------------------------------
create or replace function get_name(v_empno number) return varchar2 is
v_ename empbak.ename%type;
begin
select ename into v_ename from empbak where empno=v_empno;
return v_ename;
end;
----------------------------------------------
创建学生表
create table student (
stdid number,
math number(4,1),
article number(4,1),
languag number(4,1),
total number(4,1),
average number(4,1)
);
课外表
create table out_school(
stdid number,
practice varchar2(20),
coment varchar2(2)
);
declare
a number:=40;
b number:=50;
c number:=60;
d number;
e number;
begin
for i in 1..10 loop
a:=a+i;
b:=b+i;
c:=c+i;
d:=a+b+c;
e:=d/3;
insert into student values(i,a,b,c,d,e);
end loop;
end;
-----
如果课外成绩是A,总分就+20
create or replace procedure pro_stu is
v_coment out_school.coment%type;
v_stdid out_school.stdid%type;
--通过游标查询所有学生的课外成绩
cursor mc is select stdid,coment from out_school;
begin
open mc;
loop
fetch mc into v_stdid,v_coment;
exit when mc%notfound;
if v_coment='A' then
update student set total=total+20 where stdid=v_stdid;
end if;
end loop;
close mc;
end;
----------------------------------------------------------------
--限定只对部门号为20的记录进行行触发器操作。
--如果改变的sal和comm比现在少的话报错,
--删除记录的话也报错,
--其他操作执行。
create or replace trigger tri_3
before delete or update of sal,comm on empbak
for each row
when (old.deptno=20) --限定条件,只对部门编号为20的员工触发操作
begin
case
when updating('sal') then
ifld.sal>:new.sal then
raise_application_error(-20012,'不能降低工资!');
end if;
when updating('comm') then
ifld.comm>:new.comm then
raise_application_error(-20013,'不能降低奖金!');
end if;
when deleting then
raise_application_error(-20014,'不能开除!');
end case;
end;
create table dropped_obj(
vname varchar2(20),
vtype varchar2(20),
times date
)
CREATE OR REPLACE TRIGGER log_drop_obj
AFTER DROP ON SCHEMA
BEGIN
INSERT INTO dropped_obj
VALUES( Sys_context('userenv','ip_address'),
ORA_DICT_OBJ_TYPE, SYSDATE);
END;
------------------------------------------------------------
select sys_context('USERENV','db_name') from dual
Oracle:
数据类型[表字段的类型]
DDL语句 [create drop alter]
DML语句 [insert into/ select/update/delete]
复杂查询[条件查询/模糊匹配查询/自连接查询]
-- SQL: Structed Query Language
-- PL: Procedure Language
--是对sql语言的补充
--为什么需要PL/SQL编程[在数据库服务端编程]
--减小网络开销
--提高性能
--提高了安全性
-- PL/SQL块 是基本单元
--允许输出
set serveroutput on;
--案例1
declare
str varchar2(20) := 'Hello World';
begin
--输出语句
dbms_output.put_line(str);
end;
--修改7499的工资
begin
update empbak set sal=2000 where empno=7499;
end;
--------------------------------------------------------
/*
数据类型
标量类型
数字型 Binary_Integer Number PLS_Integer
字符型 Char varchar2 long raw long Raw
时间日期型: Date Timestamp
布尔型: Boolean
LOB类型
BFile
BLOB
CLOB
NCLOB
属性类型
%type
%rowtype
复合类型
自定义类型,类似于C语言中的结构体
----------------------------------------------------
操作符
:= 赋值操作符 相当于Java中的 =
|| 连接操作符 相当于Java中的 +
-- 单行注释
<<>> 标签分隔符
.. 范围操作符
** 求幂操作符
比较运算符
= 等于 相当于Java中的 ==
<> != 不等于
>
<
>=
<=
逻辑运算符
and 并且 相当于Java中的 &&
or 或者 相当于Java中的 ||
not 非 相当于Java中的 !
*/
--查询执行编号的员工的姓名
declare
v_ename varchar2(5);--声明一个变量用来接收查询的结果
begin
select ename into v_ename from empbak where empno=&aaa;
dbms_output.put_line('名字是:'||v_ename);
--处理异常
exception
when no_data_found then
dbms_output.put_line('没有这个编号的员工!');
end;
-----------------------------------------------
--属性类型
-- %type 参照字段类型
--根据编号查询员工的姓名和工资
declare
--变量的类型参照empbak表中ename字段的类型
v_ename empbak.ename%type;
v_sal empbak.sal%type;
begin
select ename,sal into v_ename,v_sal from empbak where empno=&aaa;
dbms_output.put_line('名字是:'||v_ename||' ,工资:'||v_sal);
--处理异常
exception
when no_data_found then
dbms_output.put_line('没有这个编号的员工!');
end;
---------------------------------------------------------------------
--复合类型
declare
--定义一个复合类型
type myrecord is record(
v_ename empbak.ename%type,
v_sal empbak.sal%type
);
--定义一个复合类型的变量
aa myrecord;
begin
select ename,sal into aa from empbak where empno=&no;
dbms_output.put_line('姓名:'||aa.v_ename||' 工资:'||aa.v_sal);
end;
------------------------------------------------------------------------
--根据员工编号查询员工的所有信息
--使用 %rowtype表示整行数据
declare
--%rowtype 表示变量是一个包含了empbak表所有字段的复合类型
aa empbak%rowtype;
begin
select * into aa from empbak where empno=&no;
dbms_output.put_line('姓名:'||aa.ename||' 工资:'||aa.sal);
end;
---------------流程控制------------------------------------------
--分支
-- if
--根据编号查询员工工资,如果发现工资低于1500,就给涨工资200
-- 否则减少200
declare
v_sal empbak.sal%type;
v_no empbak.empno%type;
begin
v_no :=&eno;
select sal into v_sal from empbak where empno=v_no;
if v_sal<1500 then
update empbak set sal=v_sal+200 where empno=v_no;
else
update empbak set sal=v_sal-200 where empno=v_no;
end if;
end;
--根据编号查询员工岗位,
--如果是 'MANAGER' 就+500sal
--如果是 'SALESMAN' 就+300sal
--如果是 'CLERK' 就+100sal
declare
v_job empbak.job%type;
v_no empbak.empno%type;
begin
v_no :=&eno;
select job into v_job from empbak where empno=v_no;
if v_job = 'MANAGER' then
update empbak set sal=sal+500 where empno=v_no;
elsif v_job = 'SALESMAN' then
update empbak set sal=sal+300 where empno=v_no;
elsif v_job = 'CLERK' then
update empbak set sal=sal+100 where empno=v_no;
else
null;--什么都不做
end if;
end;
--case语句
--根据编号查询员工岗位,
--如果是 'MANAGER' 就+500sal
--如果是 'SALESMAN' 就+300sal
--如果是 'CLERK' 就+100sal
declare
v_job emp.job%type;
v_no empbak.empno%type;
begin
v_no:=&no;
select job into v_job from empbak where empno=v_no;
case v_job
when 'MANAGER' then
update empbak set sal=sal+500 where empno=v_no;
when 'SALESMAN' then
update empbak set sal=sal+300 where empno=v_no;
when 'CLERK' then
update empbak set sal=sal+100 where empno=v_no;
else
null;
end case;
end;
--循环
--loop
--创建表
create table aa(id number,name varchar2(20));
--往表中插入10条测试数据
declare
i number:=0;
begin
loop
exit when i>=10;--当i等于10的时候退出循环
insert into aa values(i,'张三'||i);
i:=i+1;
end loop;
end;
--for循环
begin
--for中的i是不需要声明的,会自加,包含两边的边界
for i in 10..20 loop
insert into aa values(i,'张三'||i);
end loop;
end;
--while循环
declare
i number:=21;
begin
while i<=30 loop
insert into aa values(i,'张三'||i);
i:=i+1;
end loop;
end;
--跳转
--goto
declare
i number:=0;
begin
dbms_output.put_line('循环开始');
loop
if i=10 then
goto aa;
end if;
dbms_output.put_line('循环中'||i);
i:=i+1;
end loop;
dbms_output.put_line('循环结束111');
<<aa>> --goto的标签
dbms_output.put_line('循环结束222');
end;
--null语句
--表示此地不执行任何代码
---------------------------------------------------------------------------
--游标类型:用来表示一个结果集(多条数据)的类型
隐式游标
任何一个DML语句执行的时候都会默认创建一个游标
这个游标的名字是SQL
隐式游标有四个属性可以使用:
%found --执行的语句影响到了一行或者多行数据,就为true,否则为false
%notfound --执行的语没有影响数据,就为true,否则为false
%rowcount --获得执行语句影响到了多少行
%isopen --判断游标是否打开,隐式游标始终是false
--判断数据是否修改成功
begin
update empbak set sal=10000 where empno=&no;
if SQL%rowcount=0 then
dbms_output.put_line('更新失败!!');
else
dbms_output.put_line('更新成功!!');
end if;
end;
显式游标
--获取部门10的所有员工的姓名和工资
declare
v_ename emp.ename%type;
v_sal emp.sal%type;
--定义显式游标,一定要绑定一个查询语句
--游标mc中装的是查询语句的结果集
cursor mc is select ename,sal from emp where deptno=10;
begin
--打开游标[游标默认是关闭的],打开后才能够提取游标中的数据
open mc;
loop
--提取游标中的数据
--每fetch一次,就提取了一条数据
fetch mc into v_ename,v_sal;
--判断是否有数据,如果没有就退出
exit when mc%notfound;
dbms_output.put_line(v_ename||' '||v_sal);
end loop;
--关闭游标
close mc;
end;
--获取部门10的所有员工的基本信息
declare
v_emp emp%rowtype;
--定义显式游标,一定要绑定一个查询语句
--游标mc中装的是查询语句的结果集
cursor mc is select * from emp where deptno=10;
begin
--打开游标[游标默认是关闭的],打开后才能够提取游标中的数据
open mc;
loop
--提取游标中的数据
--每fetch一次,就提取了一条数据
fetch mc into v_emp;
--判断是否有数据,如果没有就退出
exit when mc%notfound;
dbms_output.put_line(v_emp.ename||' '||v_emp.sal);
end loop;
--关闭游标
close mc;
end;
--带参数的游标
--获取部门人数为3人的部门的所有员工信息
declare
v_emp emp%rowtype;
v_deptno emp.deptno%type;
--定义带参数的游标
cursor mc(a number) is select * from emp where deptno=a;
begin
--获得部门人数为3人的部门
select deptno into v_deptno from emp group by deptno having count(deptno)=3;
--打开游标的时候传入参数
open mc(v_deptno);
loop
--提取游标中的数据
--每fetch一次,就提取了一条数据
fetch mc into v_emp;
--判断是否有数据,如果没有就退出
exit when mc%notfound;
dbms_output.put_line(v_emp.ename||' '||v_emp.sal);
end loop;
--关闭游标
close mc;
end;
--通过游标更新数据
--查询部门10的所有人的姓名和工资,将每个人的工资加100
declare
v_ename empbak.ename%type;
v_sal empbak.sal%type;
--定义可以更新数据的游标,指定更新的列
cursor mc is select ename,sal from empbak where deptno=20 for update of sal;
begin
open mc;
loop
fetch mc into v_ename,v_sal;
exit when mc%notfound;
dbms_output.put_line(v_ename||' '||v_sal);
if v_sal<2000 then
--current of mc当前游标
update empbak set sal=sal+500 where current of mc;
end if;
end loop;
close mc;
end;
--使用for循环提取游标中的数据
declare
cursor mc is select ename,sal from emp where deptno=10;
begin
--for循环会自动打开和关闭游标
--for循环会自动判断是否提取结束
for aa in mc loop
dbms_output.put_line(aa.ename||' '||aa.sal);
end loop;
end;
REF游标
--查询部门10的所有人的姓名和工资
declare
--定义游标类型
type cursor_type is ref cursor;
--定义游标变量,不需要绑定查询语句
mc cursor_type;
v_ename empbak.ename%type;
v_sal empbak.sal%type;
v_empno empbak.empno%type;
v_job empbak.job%type;
begin
--打开游标的时候绑定查询语句
open mc for select ename,sal from empbak where deptno=10;
--提取数据
loop
fetch mc into v_ename,v_sal;
exit when mc%notfound;
dbms_output.put_line(v_ename||' '||v_sal);
end loop;
close mc;
open mc for select empno,job from empbak;
loop
fetch mc into v_empno,v_job;
exit when mc%notfound;
dbms_output.put_line(v_empno||' '||v_job);
end loop;
close mc;
end;
----------------------------------------------------------------------------
--数据库对象过程 函数 包 触发器
浪潮之巅
吴军 google
腾讯 搜搜
天使投资
--过程:用于完成一系列不可分割的任务的子程序
--过程必须调用才能执行
--修改指定编号员工的工资
create or replace procedure pro_1 is
begin
update empbak set sal=2000 where empno=7499;
end;
--执行过程
exec pro_1;
--创建一个带参数的过程
--参数的类型是不用定义长度的
--过程的参数分为传入参数和传出参数
--传入参数 in 在调用的时候需要传入一个值
-- 传出参数 out 在调用完之后会输出一个值
--in可以省略不写
--等到Java中调用过程的时候再来详细讲传入和传出参数
create or replace procedure pro_2(v_empno in number,v_sal in out number) is
begin
update empbak set sal=v_sal where empno=v_empno;
end;
--为部门表添加一个字段maxnum,整型,该字段表示部门编制最大人数。
--创建一个存储过程add_emp,该存储过程实现添加员工的功能,参数为empbak%rowtype类型。
--当某个部门的员工数超过该部门的最大编制时,使用异常处理方式提示用户“该部门人数编制已满,不能再添加员工”。
--写一个存储过程call_addemp,验证上述存储过程的正确性。
create table deptbak as select * from dept;
alter table deptbak add (maxnum number(5));
create or replace procedure pro_add_emp(v_emp empbak%rowtype) is
--定义变量
v_count number;--部门已有人数
v_maxnum number;--部门允许最大人数
myexception Exception;--定义一个异常对象
begin
--调用函数,获得部门已经有的人数
v_count:=fun_1(v_emp.deptno);
--获得该部门允许的最大人数
select maxnum into v_maxnum from deptbak where deptno= v_emp.deptno;
dbms_output.put_line(v_count||' '||v_maxnum);
if v_count<v_maxnum then
insert into empbak values(v_emp.empno,v_emp.ename,v_emp.job,v_emp.mgr,v_emp.hiredate,v_emp.sal,v_emp.comm,v_emp.deptno);
else
raise myexception;--抛出异常
end if;
exception
when myexception then
dbms_output.put_line('该部门人数已满,不能增加新员工');
end;
----------------
create or replace procedure pro_call_pro_add_emp(v_empno number) is
v_emp emp%rowtype;
begin
select * into v_emp from emp where empno=v_empno;
--调用其它过程
pro_add_emp(v_emp);
end;
-------------------------------
函数:是一个定义了返回值的子程序
--根据部门编号查询该部门已经有的员工数
--参数是部门编号
--返回值是该部门已经有的总人数
create or replace function fun_1(v_deptno number) return number is
v_count number;
begin
select count(empno) into v_count from empbak where deptno= v_deptno;
return v_count;
end;
--如何调用函数
--1.在sql语句中调用函数
--2.在过程中调用函数
--3.在函数中调用函数
--函数的特点
--1.参数只能是传入参数
--2.必须有返回值,并且只能有一个返回值
--3.函数的参数和返回值都不能是PL/SQL类型的
--程序包:类似于命名空间
--包中可以定义类型,变量,游标,过程,函数
--包由包头和包体组成
--包头类似于C的头文件,包体类似于C的原文件
create or replace package mypackage is
type type_cursor is ref cursor;
type myrecord is record(v_ename emp.ename%type,v_sal emp.sal%type);
procedure pro_22(v_empno number);--根据编号查询员工信息
function fun_22(v_empno number) return number;--根据员工编号查询员工工资
end mypackage;
--包体是包中过程和函数的实现
create or replace package body mypackage is
--过程的实现
procedure pro_22(v_empno number) is
--定义ref游标变量
mucursor mypackage.type_cursor;
v_emp emp%rowtype;
begin
open mucursor for select * from empbak where empno=v_empno;
loop
fetch mucursor into v_emp;
exit when mucursor%notfound;
dbms_output.put_line(v_emp.ename||' '||v_emp.sal);
end loop;
close mucursor;
end;
--函数的实现
function fun_22(v_empno number) return number is
v_sal emp.sal%type;
begin
select sal into v_sal from emp where empno=v_empno;
return v_sal;
end;
end mypackage;
--包外面的过程和函数同样可以使用包中的内容
create or replace procedure pro_23 is
mr mypackage.myrecord;--使用包中定义的类型
begin
select ename,sal into mr from empbak where empno=7369;
dbms_output.put_line(mr.v_ename||' '||mr.v_sal);
end;
-----------------------------------------------------
--触发器:事件触发自动执行的存储过程
before /after /instead insert / update /delete of 列名 on 表名
--创建一个被开除的员工信息表
create table empTemp as select * from empbak where 1=2;
--当开除一个员工之后,将员工的信息从emobak表移到emptemp表中
create or replace trigger tri_1
after delete on empbak
for each row --行级触发器,每影响到一行数据,就执行一次
begin
insert into emptemp values (:old.empno,:old.ename,:old.job,:old.mgr,:old.hiredate,:old.sal,:old.comm,:old.deptno);
end;
--禁止在休息时间更新员工信息[增加/删除/修改]
create or replace trigger tri_2
before insert or delete or update on empbak
for each row
begin
if to_char(sysdate,'DAY') in ('星期六','星期日') or to_char(sysdate,'HH24:MI') not between '08:30' and '17:30' then
raise_application_error(-20001,'不能在休息时间更新员工信息!');
end if;
end;
------------------------------------------------------------------
declare
v_emp empbak%rowtype;
cursor mc is select * from empbak;
begin
open mc;
fetch mc into v_emp;
if mc%found then
dbms_output.put_line('发现数据');
else
dbms_output.put_line('没有发现数据');
end if;
close mc;
end;
----------
declare
v_ename empbak.ename%type;
v_sal empbak.sal%type;
v_deptno empbak.deptno%type;
cursor mc is select ename,sal,deptno from empbak for update of sal;
begin
open mc;
loop
fetch mc into v_ename,v_sal,v_deptno;
exit when mc%notfound;
if v_deptno=30 then
update empbak set sal=sal+200 where current of mc;
dbms_output.put_line(v_ename||' '||v_deptno||' '||v_sal);
end if;
end loop;
close mc;
end;
---------------------------------------------------------
create or replace procedure add_dept(v_deptno number,v_dname varchar2) is
begin
insert into deptbak values(v_deptno,v_dname,'',0);
end;
-----------------------------------
create or replace function get_name(v_empno number) return varchar2 is
v_ename empbak.ename%type;
begin
select ename into v_ename from empbak where empno=v_empno;
return v_ename;
end;
----------------------------------------------
创建学生表
create table student (
stdid number,
math number(4,1),
article number(4,1),
languag number(4,1),
total number(4,1),
average number(4,1)
);
课外表
create table out_school(
stdid number,
practice varchar2(20),
coment varchar2(2)
);
declare
a number:=40;
b number:=50;
c number:=60;
d number;
e number;
begin
for i in 1..10 loop
a:=a+i;
b:=b+i;
c:=c+i;
d:=a+b+c;
e:=d/3;
insert into student values(i,a,b,c,d,e);
end loop;
end;
-----
如果课外成绩是A,总分就+20
create or replace procedure pro_stu is
v_coment out_school.coment%type;
v_stdid out_school.stdid%type;
--通过游标查询所有学生的课外成绩
cursor mc is select stdid,coment from out_school;
begin
open mc;
loop
fetch mc into v_stdid,v_coment;
exit when mc%notfound;
if v_coment='A' then
update student set total=total+20 where stdid=v_stdid;
end if;
end loop;
close mc;
end;
----------------------------------------------------------------
--限定只对部门号为20的记录进行行触发器操作。
--如果改变的sal和comm比现在少的话报错,
--删除记录的话也报错,
--其他操作执行。
create or replace trigger tri_3
before delete or update of sal,comm on empbak
for each row
when (old.deptno=20) --限定条件,只对部门编号为20的员工触发操作
begin
case
when updating('sal') then
ifld.sal>:new.sal then
raise_application_error(-20012,'不能降低工资!');
end if;
when updating('comm') then
ifld.comm>:new.comm then
raise_application_error(-20013,'不能降低奖金!');
end if;
when deleting then
raise_application_error(-20014,'不能开除!');
end case;
end;
create table dropped_obj(
vname varchar2(20),
vtype varchar2(20),
times date
)
CREATE OR REPLACE TRIGGER log_drop_obj
AFTER DROP ON SCHEMA
BEGIN
INSERT INTO dropped_obj
VALUES( Sys_context('userenv','ip_address'),
ORA_DICT_OBJ_TYPE, SYSDATE);
END;
------------------------------------------------------------
select sys_context('USERENV','db_name') from dual
Oracle:
数据类型[表字段的类型]
DDL语句 [create drop alter]
DML语句 [insert into/ select/update/delete]
复杂查询[条件查询/模糊匹配查询/自连接查询]
相关推荐
Oracle控件ODAC的下载安装及使用 安装环境:ODAC 9.3 for Delphi 7 编译及安装: 1、打开并编译安装Source\Delphi7\dac70.dpk 2、打开并编译安装Source\Delphi7\dacvcl70.dpk 3、打开并编译安装Source\Delphi7\...
"oracled.tar.gz"是一个包含Oracle相关文件的压缩包,可能包含了Oracle数据库的二进制文件、库文件、配置文件等。在Linux环境下,通常会使用tar命令解压这个文件,然后进行后续的安装和配置。在解压前,确保你的系统...
- 自启动设置:确认`/etc/init.d/`目录下是否存在`oracled`文件并设置为可执行,同时在`/etc/rc.d/rc5.d/`下检查S78oracled链接,以确保Oracle在系统启动时自动运行。 在完成上述所有检查并确认无误后,才能进行...
如果使用ORACLED.B.ORACLE.1驱动,还需要开放2030端口用于OraMTS服务。在MSDTC的安全配置上,应用服务器的设置与数据库服务器相似,通常需要允许远程客户端、远程管理,并开启事务Internet协议(TIP)。 在一些安全...
在这种模式下,重做数据由日志写入进程从主数据库同步地传输到备用数据库,直到确认事务数据在备用服务器的磁盘上可用时,事务才在主数据库上完成。 物理 Standby 和逻辑 Standby: * 物理 Standby:直接从 ...
1. **oracled**:这是Oracle数据库服务,用于提供数据库支持。 2. **camsd**:CAMS协议处理模块服务,负责处理CAMS相关的协议和通信。 3. **tomcat4**:Tomcat Web服务器,它支持CAMS的配置管理台、自助服务平台、...
Oracle DataGuard 是一种强大的数据库高可用性和灾难恢复解决方案,它为 Oracle 数据库提供了一套全面的数据保护机制。本文将深入探讨 DataGuard 的数据同步技术及其配置。 DataGuard 的核心是日志传输,它将源...
Oracle DataGuard 是一种高级的数据库保护机制,专为Oracle数据库设计,用于提供灾难恢复和高可用性解决方案。在本文档中,我们详细介绍了如何利用Oracle DataGuard为用户提供一个异地容灾平台,确保业务连续性。 ...
首先,脚本的基本使用方法是通过命令行输入`sh oracled [start|stop|restart] SIDs`,其中`SIDs`参数是数据库实例的标识符,多个标识符之间用逗号分隔。如果未指定操作类型,默认执行`restart`,即先停止再启动...
客多啦现有系统不能满足我司的业务拓展需求,因app技术对接平台大部分采用云部署,大数据技术,为实现和其他平台对接,旧的框架Struts2 + hibernate +oracle 在大数据和高并发的趋势下,暴露出数据延迟,数据库冗余...
说明: 指定数据库的默认语言, 该语言将用于消息, 日期和月份名, AD, BC, AM 和 PM 的符号, 以及默认的排序机制。可支持的语言包括英语, 法语和日语等等。 值范围: 任何有效的语言名。 默认值: 根据操作系统而定 ...
入门教程: : 文档: : 运行获取ATOM / USD价格的演示应用程序: 将存储库克隆到本地文件夹中并运行: $ starport serve在新的浏览器窗口中,为oracle worker进程加注星号: $ oracled tx oracle start-worker --