Oracle Class7. 异常和游标管理 全新时代

------------------------2013-5-18------------------------
异常
raise_application_error：错误编号必须介于-20000和-20999之间
错误消息的长度可长达2048个字节。

游标类型
静态游标
  隐式游标 sql%found  sql%rowcount
  显式游标 cur_xxx%found
ref游标

游标属性
  %notfound
  %found
  %rowcount
  %isopen
控制显示游标
  open
  fetch
  close

循环游标 显式游标
  隐式打开游标
  自动从活动集获取行
  在处理完所有行时关闭游标
优点
  简化代码的编写

游标变量的类型：强游标，弱游标。

游标管理 限制
  不能在程序包中声明游标变量
  远程子程序不能接受游标变量的值
  不能使用比较操作符对游标变量进行相等或不相等测试
  不能将空值赋予游标变量
  表不能存储游标变量的值

-- 包
create or replace package pkg_Test
is
type type_title_rec is record             -- 可以理解为java里面的对象，可以作为参数来传递。--
(
Title c6.a%type,
Price c6.b%type
);

gc_Name_char constant varchar2(12) := 'AZhu';

gv_Age_num number := 18;

function FunGetTitleByTitleID (p_TitleID in c6.a%type) return type_title_rec;

procedure ProGetTitleByTitleID(p_TitleID in c6.a%type,lvv out type_title_rec);

end pkg_Test;

-- 包主体
create or replace package body pkg_Test
is
  function FunGetTitleByTitleID     -- 函数实现，没有create，如果是过程的话，procedure。
  (p_TitleID in c6.a%type)
  return type_title_rec
  as
  lv_title_rec type_title_rec;
  begin
    select a, b into lv_title_rec
    from c6
    where a = p_TitleID;
    return (lv_title_rec);
  end FunGetTitleByTitleID;
 
  procedure ProGetTitleByTitleID
  (p_TitleID in c6.a%type,
   lvv out type_title_rec 
  )
  as
  begin
    select a, b into lvv
    from c6
    where a = p_TitleID;
  end ProGetTitleByTitleID;

end pkg_Test;

set serveroutput on;   --打开输出，每次重起SQLPlus Worksheet需要重新打开输出。

-- 包函数调用
declare
lv_title_rec pkg_Test.type_title_rec;
begin
  lv_title_rec := pkg_Test.FunGetTitleByTitleID('2');  -- 包.函数名
  dbms_output.put_line(lv_title_rec.title);
  dbms_output.put_line(lv_title_rec.price);
end;

-- 包过程调用
declare
lv_title_rec pkg_Test.type_title_rec;
begin
  pkg_Test.ProGetTitleByTitleID('3',lv_title_rec);     -- 包.过程名
  dbms_output.put_line(lv_title_rec.title);
  dbms_output.put_line(lv_title_rec.price);
end;

-- 包中变量和常量的调用及修改值
begin
  dbms_output.put_line(pkg_Test.gv_Age_num);           -- 包.变量名
  dbms_output.put_line(pkg_Test.gc_Name_char);         -- 包.常量名
  pkg_Test.gv_Age_num := 28;
  dbms_output.put_line(pkg_Test.gv_Age_num);           -- 包.变量名
end;

where current of c;  -- 表示操作的是当前游标，可以做修改或删除。

create or replace function FunGetTitleByTitleID2     -- 函数实现，没有create，如果是过程的话，procedure。
  (p_TitleID in c6.a%type)
  return type_title_rec
  as

  lv_title_rec type_title_rec;
  begin
    select a, b into lv_title_rec
    from c6
    where a = p_TitleID;
    return (lv_title_rec);
  end;

create type add_type3 as object(
  street varchar2(10),  --街道名
  city varchar2(10),    --城市名
  state char(2),        --州代码
  zip   c6.b%type          --邮编     --c6.b%type这样写会报错。
);

create type type_title_rec as object    -- is record会报错。
(
  Title number,
  Price varchar2(10)
);

create or replace function FunGetTitleByTitleID2
  (p_TitleID in c6.a%type)
  return c6.a%type
  --return type_title_rec;          -- 返回类型在前，创建类型在后？会报错？
                                    -- 在包声明中都定义好了，在包体中可以直接使用了。--
  as
  type type_title_rec is record     -- is record会报错。
  (
    Title c6.a%type,
    Price c6.b%type
  );
  lv_title_rec type_title_rec;
  begin
    select a,b into lv_title_rec    -- 查询的值必须一一对应，否则报创建的函数带有编译错误。--
    from c6
    where a = p_TitleID;
    --return (lv_title_rec);
    return p_TitleID;
  end;

create or replace function FunGetTitleByTitleID
(p_TitleID in titles.title_id%type)
return type_title_rec                -- 会报错!! 错误：PLS-00498: 在说明一个类型之前对其进行了非法使用

as
type type_title_rec is record
(
Title titles.title%type,
Price titles.price%type
);
lv_title_rec type_title_rec;
begin
  select title, price into lv_title_rec
  from titles
  where title_id = p_TitleID;
  return (lv_title_rec);
end;

####解决方法####
create or replace function FunGetTitleByTitleID
(p_TitleID in titles.title_id%type)
--return type_title_rec                -- 会报错!! 错误：PLS-00498: 在说明一个类型之前对其进行了非法使用
return titles%rowtype                  -- 使用rowtype解决。
as
type type_title_rec is record
(
Title_id titles.title_id%type,
Title titles.title%type,
Price titles.price%type,
Type titles.type%type
);
lv_title_rec type_title_rec;
begin
  select title_id, title, price,type into lv_title_rec
  from titles
  where title_id = p_TitleID;
  return (lv_title_rec);
end;

####调用方法####
declare
lv_rr titles%rowtype;
begin
lv_rr := FunGetTitleByTitleID(2);
dbms_output.put_line(lv_rr.Title_id);
dbms_output.put_line(lv_rr.Title);
dbms_output.put_line(lv_rr.Price);
dbms_output.put_line(lv_rr.Type);
end;

--创建异常测试表--
create table exp1(
  expid int primary key,
  expname varchar2(12) unique,
  expdate date
);

set serveroutput on;      --打开控制台输出--

declare
lv_errnum_num int;
begin
  insert into exp1 values(1,'Exp1','01-1月-05');
  exception
    when others then
    dbms_output.put_line('错误编号：' ||  sqlcode);
    dbms_output.put_line('错误描述：' ||  sqlerrm);
end;

错误编号：-1
错误描述：ORA-00001: 违反唯一约束条件 (NEWLIFEYHJ.SYS_C002167)

insert into exp1 values(1,'Exp1','01-0月-05');    -- 写成0月
错误编号：-1843
错误描述：ORA-01843: 无效的月份

insert into exp1 values('aaa','exp1','01-2月-05'); --'aaa'
错误编号：-1722
错误描述：ORA-01722: 无效数字

declare
lv_errnum_num int;
begin
insert into exp1 values('aaa','exp1','01-2月-05');
exception
when others then
  dbms_output.put_line('错误编号：' ||  sqlcode);
    dbms_output.put_line('错误描述：' ||  sqlerrm);
--if sqlcode = -1 then
  --dbms_output.put_line('名字不能重复!!');
--end if;
  case sqlcode
  when -1 then
    dbms_output.put_line('名字不能重复!!');
  when -1722 then
    dbms_output.put_line('名字必须是数字!!');
  end case;
end;

declare
lv_errnum_num int;
MyFirstException exception;
pragma exception_init(MyFirstException,-0001);  --绑定异常code
begin
insert into exp1 values(1,'exp1','01-2月-05');
exception
  --when dup_val_on_index then
  when MyFirstException then
    dbms_output.put_line('名字不能重复!!');
end;

declare
DUP_VAL_ON_INDEX2 exception;
pragma exception_init(DUP_VAL_ON_INDEX2,-0001);  --系统自己绑定的不需要自己去绑定了!!
begin
  insert into exp1 values(1,'exp1','01-1月-05');
  exception
  when DUP_VAL_ON_INDEX then                     --这样一样可以捕获的到异常!! 写成DUP_VAL_ON_INDEX2也可以!!
    dbms_output.put_line('DoItYourself!');
end;

-- 自定义异常
declare
lv_TitleCount_num numeric(3) := 0;
lv_NoTitles_exp exception;
lv_MoreTitles_exp exception;
begin
  select count(title_id) into lv_TitleCount_num
  from titles;
  dbms_output.put_line(lv_TitleCount_num);       --测试语句，打印出当前值是多少。--
  if lv_TitleCount_num > 0 then
    Raise lv_MoreTitles_exp;
  elsif lv_TitleCount_num <= 0 then
    Raise lv_NoTitles_exp;
  end if;
exception
  when lv_NoTitles_exp then
    dbms_output.put_line ('No Titles!');
  when lv_MoreTitles_exp then
    dbms_output.put_line ('More Titles!');
end;

##raise_application_error应用##
declare
lv_i_num int;
JDI_M exception;
JDI_L exception;
pragma exception_init( JDI_M, -20001);
pragma exception_init( JDI_L, -20998);
begin
  lv_i_num := 8;
  if lv_i_num > 10 then
    raise_application_error( -20001, 'Too Many!');    --错误编号必须介于-20000和-20999之间
  else
    raise_application_error( -20998, 'Too Little!');  --错误编号必须介于-20000和-20999之间
  end if;
exception
  when JDI_M then
    dbms_output.put_line('TM');
  when JDI_L then
    dbms_output.put_line('TL');
end;

declare
lv_TitleCount_num numeric(3) := 0;
lv_NoTitles_exp exception;
lv_MoreTitles_exp exception;
pragma exception_init(lv_NoTitles_exp,-20001);
pragma exception_init(lv_MoreTitles_exp,-20002);
begin
  select count(title_id) into lv_TitleCount_num
  from titles;
  dbms_output.put_line(lv_TitleCount_num);       --测试语句，打印出当前值是多少。--
  if lv_TitleCount_num > 0 then
    Raise_Application_error(-20002,'书籍太多！');
  elsif lv_TitleCount_num <= 0 then
    Raise_Application_error(-20001,'没有书籍！');
  end if;
--exception                                     --如果没有注释，那么执行打印信息。否则输出Raise_Application_error的定义信息。--
  --when lv_NoTitles_exp then
  --  dbms_output.put_line ('No Titles!');
  --when lv_MoreTitles_exp then
  --  dbms_output.put_line ('More Titles!');
end;