------------------------2013-5-17------------------------
set serveroutput on;
-- Oracle PL/SQL 块
-- 声明部分
declare
lv_Age_num number := 12;
lv_Name_char varchar2(8) default 'AZhu'; --设置默认值--
lv_Sex_char constant varchar2(3) := '男';
-- 执行部分
begin
dbms_output.put_line(lv_Age_num);
dbms_output.put_line(lv_Name_char);
dbms_output.put_line(lv_Sex_char);
dbms_output.put_line('==========');
lv_Age_num := 18;
lv_Name_char := 'ANiu';
dbms_output.put_line(lv_Age_num);
dbms_output.put_line(lv_Name_char);
end;
-- Oracle PL/SQL 块(if then 条件判断)
-- Oracle PL/SQL 块(case 分支判断)
case lv_Age_num
when 10 then
dbms_output.put_line(lv_Name_char || '等于10');
when 18 then
dbms_output.put_line(lv_Name_char || '大于10');
else
dbms_output.put_line(lv_Name_char || '小于10');
end case;
case
when lv_Age_num = 10 then
dbms_output.put_line(lv_Name_char || '等于10');
when lv_Age_num > 10 then
dbms_output.put_line(lv_Name_char || '大于10');
else
dbms_output.put_line(lv_Name_char || '小于10');
end case;
--创建测试表
create table c6(
a int primary key,
b varchar2(10) unique
)
desc c6;
insert into c6 values(1,'Niu1');
select * from c6;
commit;
--批量添加
-- While
declare
lv_A_num number := 2;
begin
while lv_A_num < 5
loop
insert into c6
values
(lv_A_num, 'Niu' || to_char(lv_A_num));
lv_A_num := lv_A_num + 1;
end loop;
-- 提交
commit;
end;
-- For
begin
for i in reverse 11..12 --如果加了reverse，那么表示数字从12,11倒序过来了。--
loop
insert into c6
values
(i, 'Niu' || to_char(i));
end loop;
-- 提交
commit;
end;
--loop exit when方式--
declare
i number := 13;
begin
loop
exit when i = 14;
insert into c6
values
(i, 'Niu' || to_char(i));
i := i +1; --递增算法--
end loop;
-- 提交
commit;
end;
--截断表
truncate table c6;
##过程##
declare
lv_a int; --直接写类型，也可以引用表或视图类型--
lv_b varchar2(10);
begin
select a,b into lv_a,lv_b from c6 where a = 9;
dbms_output.put_line('lv_a:' || lv_a);
dbms_output.put_line('lv_b:' || lv_b);
end;
--record方式--
declare
type lvv is record(
lv_a int,
lv_b varchar2(10)
);
lv lvv;
begin
select a,b into lv from c6 where a = 8; --数据封装的值其实也是一一对应的--
dbms_output.put_line('lv_a:' || lv.lv_a);
dbms_output.put_line('lv_b:' || lv.lv_b);
end;
--record方式+cursor游标方式--
declare
type lvv is record(
lv_a int,
lv_b varchar2(10)
);
lv lvv;
cursor cur is select a,b from c6 where a = 7;
begin
open cur;
fetch cur into lv;
dbms_output.put_line('lv_a:' || lv.lv_a);
dbms_output.put_line('lv_b:' || lv.lv_b);
close cur;
end;
##存储过程##
--record方式+cursor游标方式--
create or replace procedure mypro
as
--declare
type lvv is record(
lv_a int,
lv_b varchar2(10)
);
lv lvv;
cursor cur is select a,b from c6 where a = 7;
begin
open cur;
fetch cur into lv;
dbms_output.put_line('lv_a:' || lv.lv_a);
dbms_output.put_line('lv_b:' || lv.lv_b);
close cur;
end;
#调用#
begin
mypro;
end;
--cursor + record + while--
declare
type lvv is record(
lv_a int,
lv_b varchar2(10)
);
lv lvv;
cursor cur is select a,b from c6 where a > 7; --游标带参数方式，cursor cur (p_a int) is select a,b from c6 where a > p_a;
begin
open cur; --游标带参数方式，open cur(5);
fetch cur into lv;
while cur%found
loop
dbms_output.put_line('lv_a:' || lv.lv_a);
dbms_output.put_line('lv_b:' || lv.lv_b);
fetch cur into lv; --提取下一个
end loop;
close cur;
end;
--cursor + record + while--
declare
cursor cur is select a,b from c6;
begin
-- 以下操作全部自动
-- 打开游标
-- 提取游标
-- 关闭游标
for lv in cur
loop
dbms_output.put_line('lv_a:' || lv.a);
dbms_output.put_line('lv_b:' || lv.b);
end loop;
end;
begin
-- 以下操作全部自动
-- 打开游标
-- 提取游标
-- 关闭游标
for lv in (select a,b from c6) --直接写SQL语句--
loop
dbms_output.put_line('lv_a:' || lv.a);
dbms_output.put_line('lv_b:' || lv.b);
end loop;
end;
###62.sql###
declare
-- 变量名 类型 默认值
name varchar2(8) default 'Aniu';
sex nvarchar2(2) := '男';
-- 常量，定义关键字：constant
Pi constant number(9,8) := 3.14159265;
-- 执行
begin
dbms_output.put_line(Pi);
-- print
dbms_output.put_line(name);
dbms_output.put_line(sex);
--Pi := 4; --会报错，常量不能修改值。
name := 'AZhu';
--dbms_output.put_line(Pi);
dbms_output.put_line(name);
-- 异常处理
-- exception
end;
-- 条件判断 IF
-- 分支判断 CASE（选择器，准确值），（表达式，范围），（比较赋予值）
-- 循环控制 while 条件 loop ... end loop; -- while与loop之间都是没有符号的!!
for i in 5 .. 10 loop ... end loop; for i in reverse 11 .. 15 -- i计数器for递增，不需要手动修改，否则会报错。
loop exit when 条件; end loop;
##case第三个情况##
declare
type lvv is record(
lv_a int,
lv_b varchar2(10)
);
lv lvv;
cursor cur is select a,b from c6;
lv_txt varchar2(18);
begin
open cur;
loop
fetch cur into lv;
exit when cur%notfound;
lv_txt := case lv.lv_a --设置的字段，将值给lv_txt变量--
when '1' then '排第一个'
when '2' then '排第二个'
when '3' then '排第三个'
when '4' then '排第四个'
else '其他'
end;
dbms_output.put_line('lv_txt:' || lv_txt);
end loop;
close cur;
end;
begin
for i in 1..3
loop
dbms_output.put_line(i);
--i := i + 1; -- PLS-00363: 表达式 'I' 不能用作赋值目标
end loop;
end;
-- 语句跳转
begin
dbms_output.put_line('1');
dbms_output.put_line('2');
goto test_row;
dbms_output.put_line('3');
dbms_output.put_line('4');
<<test_row>>
dbms_output.put_line('5');
end;
-- 非法"跳转"
-- 注意：不可跳转至if/while/for/loop等子句
begin
dbms_output.put_line('1');
goto test_row;
dbms_output.put_line('3');
if 1 = 1 then
dbms_output.put_line('4');
<<test_row>>
end if;
dbms_output.put_line('5');
end;
-- 注意：不可从异常处理块中跳转回到PL/SQL块的执行部分
declare
i int;
begin
i := i / 0;
<<test_row>>
exception
when zero_divide then
go_to test_row;
end;
--创建表--
create table c7
(
a int primary key
);
insert into c7 values (1);
select * from c7;
begin
insert into c7 values (1);
exception
when dup_val_on_index then
dbms_output.put_line('错误: 添加重复值！');
end;
-- 捕获自定义异常
-- (1)声明 exception
-- (2)绑定 pragma exception_init(exception, code)
-- (3)捕获
declare
-- 声明异常
Invalid_Number exception;
-- 绑定
pragma exception_init(Invalid_Number, -01722);
begin
insert into c7 values ('ABC');
exception
-- 捕获异常
when Invalid_Number then
dbms_output.put_line('错误: 非法数字值！');
end;
begin
insert into c7 values ('ABC');
exception
-- 捕获异常
when others then -- 其他异常
dbms_output.put_line(sqlcode); -- 异常编号
--dbms_output.put_line(sqlerrmsg); -- 报错：PLS-00201: 必须说明标识符 'SQLERRMSG'
dbms_output.put_line(sqlerrm); -- sqlerrm就对了。
dbms_output.put_line('错误: 未知！');
end;
while cur_titles%found loop end loop;
或
loop exit when cur_titles%notfound end loop;
select trunc(sysdate) from dual;
----------
17-5月 -13
declare
ex_title_test exception;
pragma exception_init( ex_title_test, -01476);
lv_test_num number(4);
lv_errmsg_txt varchar2(80) := 'No any error!';
lv_errnum_txt varchar2(10) := '911';
begin
lv_test_num := 12 / 0;
dbms_output.put_line ( lv_errmsg_txt );
dbms_output.put_line ( lv_errnum_txt );
exception
when ex_title_test then dbms_output.put_line ( '除数不可以为零！' );
lv_errmsg_txt := substr(sqlerrm, 1 , 80);
lv_errnum_txt := sqlcode;
dbms_output.put_line ( lv_errmsg_txt );
dbms_output.put_line ( lv_errnum_txt );
end;
select 60 / 0 from dual;
ORA-01476: 除数为 0
select sqlcode from dual; -- 执行出错
select sqlerrm from dual; -- 执行出错
