打印 hi
set serveroutput on --打开输出开关
declare
--说明部分（变量说明，光标申明或者例外说明）
begin
--程序体，语句序列(DML语句)
dbms_out.put_line(‘hi’）；--dbms_out程序包，put_line子程序
exception
--例外处理语句
end;
/ --/表示执行上一条语句或程序
desc dbms_out --查看程序包
声明部分
-
定义基本变量
类型：char,varchar2,date,number,boolean,long
举例：
name char(15);
married boolean :=true;
psal number(7,2);
example1:
--使用基本变量类型
declare
--定义基本变量类型
--基本数据类型
number number(7,2);
--字符串变量
name varchar2(20);
--日期变量
date date;
begin
number =1;
dbms_out.put_line(nember）；
name :='zhuzhu';
dbms_out.put_line(name）；
date := sysdate;
dbms_out.put_line(date）；
--计算明天的日期
dbms_out.put_line(date +1）；
end;
example2:
--使用基本变量类型
declare
--定义基本变量类型
--基本数据类型
number number(7,2);
--字符串变量
name varchar2(20);
--日期变量
date date;
begin
number =1;
dbms_out.put_line(nember）；
name :='zhuzhu';
dbms_out.put_line(name）；
date := sysdate;
dbms_out.put_line(date）；
--计算明天的日期
dbms_out.put_line(date +1）；
end;
-
引用型变量
emp_rec emp.name%type;--引用型变量就是定义一个变量，将一个表的一个字段查询出来赋给它，然后使用它把那个字段的值打印出来（一个值一个字段）
example:
--查询并打印员工号为2的姓名和薪资
set serveroutput on
declare
emp_name emp.name%type;
emp_sal emp.sal%type;
begin
select name , sal into emp_name ,emp_sal from emp where no = 2;
select sal into emp_sal from emp where no = 2;
dbms_out.put_line(emp_name||''的工资是''||emp_sal);
end;
/
-
记录型变量
emp_rec emp%rowtype;--记录行变量就是定义一个数组，将一个表的某些字段赋给它，此时它是一个数组，那么就可以使用它将这些字段的值都打印出来（一行值多个字段）
example:
--查询并打印员工号为2的姓名和薪资
set serveroutput on
declare
emp_name_sal emp%rowtype
begin
select * into emp_name_sal from emp;
dbms_out.put_line(emp_name_sal.name||'的工资是'||emp_name_sal.sal)
end;
/
执行部分
-
判断语句
- IF 条件 THEN 语句1；-----只有两种情况
语句2 ；
END IF;
- IF 条件 THEN 语句1；-----只有两种情况
ELSE 语句2 ；
END IF;
- IF 条件 THEN 语句1；-----只有三种或三种以上情况
ELSIIF 语句2 ；
ELSIF 语句3；
else 语句4；
END IF;
example:
--判断用户从键盘输入的数字
set serveroutput on
accept num prompt'请输入'；
--num为地址值相当于指针
declare
pnum number :=#--取地址为num的值给数据类型为number的变量num
begin
IF pnum =1 THEN DBMS_OUT.PUT_LINE('值为1')；
elsif pnum =2 THEN DBMS_OUT.PUT_LINE('值为2')；
elsif pnum =3 THEN DBMS_OUT.PUT_LINE('值为3')；
elsse DBMS_OUT.PUT_LINE('其他值')；
end if；
end;
/
-
循环部分
- WHILE 循环条件 LOOP
执行语句
END LOOP;
- LOOP EXIT[WHEN 退出条件]
执行语句
ENDLOOP;
- FOR 值 IN 1.。。。n LOOP
执行语句
END LOOP;
example:
--打印1-----10
set serveroutput on
declare
pnum number :=1;
begin
while pnum<=10 loop loop for pnum in 1...10 loop
DBMS_OUT.PUT_LINE(pnum)； exit when pnum > 10 DBMS_OUT.PUT_LINE(pnum)；
pnum := pnum+1; DBMS_OUT.PUT_LINE(pnum)； pnum := pnum+1;
end loop; pnum := pnum+1; end loop;
end ; end loop;
/
-
光标:就是一个结果集（列值）,它的数据库中打开的数量是有限制的.oracle数据库中只允许在同一个会话中打开300个光标.
光标属性：%found；%notfound;%isopen (判断光标是否打开);%rowcount(影响的行数);
语法：cursor 光标名 is select 语法；
打开光标：open 光标名
定义光标：cursor c is select name from emp;
取光标值给变量：fetch c into pname ;--将当前指针指向的记录返回并且将指针指向下一个记录(需要取值时使用)
关闭光标是释放资源：close c;
example:
--查询并打印姓名，薪资
set serveroutput on
declare
cursor c is select name,sal from emp;
pname emp.name %type;
psal emp.sal%type;
begin
open c;
loop fetch c into pname,psal;
exit when c %notfound
dbms_out.put_line(pname||的薪资是||psal);
end loop;
end;
/
example:
--给不同职位的员工涨工资
set serveroutput on
declare
cursor c is select pro, job from emp;
pname emp.pro %type;
psal emp.job %type;
begin
open c;
fetch c into pro,job from emp;
exit when c %notfound
if job = '经理' then update emp set sal := sal+400;
elsif job = '职员' then update emp set sal := sal+300;
else update emp set sal := sal+200;
end loop;
close c;
dbms_out.put_line('更新完成');
end;
/
conmmit;
example:
--使用光标的%%isopen
set serveroutput on
declare
cursor c is select pro, job from emp;
pname emp.pro %type;
psal emp.job %type;
begin
open c;
if c%isopen then
dbms_out.put_line('光标已打开');
else dbms_out.put_line('光标未打开');
end if;
close c;
end;
/
example:
--使用光标的%rowcount属性
set serveroutput on
declare
cursor c is select pro, job from emp;
pname emp.pro %type;
psal emp.job %type;
begin
open c;
loop
fetch c into pro,job from emp;
exit when c%notfound;
dbms_out.put_line('rowcount'||c%rowcount);
end loop;
close c;
end;
/
关于在一个数据库会话中只能打开300个光标
查看可以打开的光标数量：
show parameter %cursor% --查看open _cuisor的数字
修改光标数量限制：alter system set open_cursor = 400 scope = both/memory/spfile; --scope可选both（都进行修改）/memory（只修改当前实例，不修改参数文件）/spfile（只修改参数文件不修改当前实例）中的一个
带参数的光标
语法：cursor 光标名 【参数名 参数数据类型，。。。】 is select 语法；
example:
set serveroutput on
declare
cursor c(dno number) is select pro, job from emp where deptno = dno; -- dno number为形参
pname emp.pro %type;
begin
open c(10); --10为实参
loop
fetch c into pname;
exit when c%notfound;
dbms_out.put_line(pename);
end loop;
close c;
end;
/
异常处理部分
例外：程序设计语言提供的一种功能，用来增强语言的容错性和健壮性，分为系统例外和自定义例外。
系统例外：no_data_found 没有找到数据
too_many_rows 查询语句匹配多行
zero_divide 被0除
value_error 算数或转换错误如根号下负数或abc转换为123之类的
timeout_on_resource 在等待资源是发生超时（如：分布式数据库）
example:
no_data_found--查询根本不存在的数据
set serveroutput on
declare
pname emp.name%type;
begin
open c(10); --10为实参
loop
select name from emp where no = 123;
eception
when no_data_found then dbms_out.put_line('未找到');
when others then dbms_out.put_line('其他异常');
end;
/