欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

全面解析Oracle Procedure 基本语法

程序员文章站 2024-01-24 13:34:28
关键字: oracle 存储过程 1.基本结构 create or replace procedure 存储过程名字 ( 参数1 in number...

关键字: oracle 存储过程

1.基本结构

create or replace procedure 存储过程名字 
( 
 参数1 in number, 
 参数2 in number 
) is 
变量1 integer :=0; 
变量2 date; 
begin 

end 存储过程名字

2.select into statement

  将select查询的结果存入到变量中,可以同时将多个列存储多个变量中,必须有一条

  记录,否则抛出异常(如果没有记录抛出no_data_found)

  例子:

 begin 
 select col1,col2 into 变量1,变量2 from typestruct where xxx; 
 exception 
 when no_data_found then 
 xxxx; 
 end; 
 ... 

3.if 判断

 if v_test=1 then 
 begin 
 do something 
 end; 
 end if;

4.while 循环

while v_test=1 loop 
 begin 
xxxx 
 end; 
 end loop;

5.变量赋值

  v_test := 123;

6.用for in 使用cursor

 ... 
 is 
 cursor cur is select * from xxx; 
 begin 
for cur_result in cur loop 
 begin 
 v_sum :=cur_result.列名1+cur_result.列名2 
 end; 
end loop; 
 end;

7.带参数的cursor

 cursor c_user(c_id number) is select name from user where typeid=c_id; 
 open c_user(变量值); 
 loop 
fetch c_user into v_name; 
exit fetch c_user%notfound; 
 do something 
 end loop; 
 close c_user;

8.用pl/sql developer debug

  连接数据库后建立一个test window

  在窗口输入调用sp的代码,f9开始debug,ctrl+n单步调试

转载:

oracle 存储过程

关键字: oracle 存储过程

存储过程创建语法:   

create or replace procedure 存储过程名(param1 in type,param2 out type)

as

变量1 类型(值范围);

变量2 类型(值范围);

begin 
 select count(*) into 变量1 from 表a where列名=param1; 
 if (判断条件) then 
 select 列名 into 变量2 from 表a where列名=param1; 
 dbms_output。put_line(‘打印信息'); 
 elsif (判断条件) then 
 dbms_output。put_line(‘打印信息'); 
 else 
 raise 异常名(no_data_found); 
 end if; 
exception 
 when others then 
 rollback; 
end;

注意事项:

1,  存储过程参数不带取值范围,in表示传入,out表示输出

2,  变量带取值范围,后面接分号

3,  在判断语句前最好先用count(*)函数判断是否存在该条操作记录

4,  用select 。。。into。。。给变量赋值

5,  在代码中抛异常用 raise+异常名

以命名的异常

命名的系统异常                          产生原因

access_into_null   未定义对象 
case_not_found   case 中若未包含相应的 when ,并且没有设置 
else 时 
collection_is_null  集合元素未初始化 
curser_already_open  游标已经打开 
dup_val_on_index   唯一索引对应的列上有重复的值 
invalid_cursor   在不合法的游标上进行操作 
invalid_number   内嵌的 sql 语句不能将字符转换为数字 
no_data_found   使用 select into 未返回行,或应用索引表未初始化的 
too_many_rows   执行 select into 时,结果集超过一行 
zero_divide    除数为 0 
subscript_beyond_count 元素下标超过嵌套表或 varray 的最大值 
subscript_outside_limit 使用嵌套表或 varray 时,将下标指定为负数 
value_error    赋值时,变量长度不足以容纳实际数据 
login_denied    pl/sql 应用程序连接到 oracle 数据库时,提供了不 
正确的用户名或密码 
not_logged_on   pl/sql 应用程序在没有连接 oralce 数据库的情况下 
访问数据 
program_error   pl/sql 内部问题,可能需要重装数据字典& pl./sql 
系统包 
rowtype_mismatch  宿主游标变量与 pl/sql 游标变量的返回类型不兼容 
self_is_null    使用对象类型时,在 null 对象上调用对象方法 
storage_error   运行 pl/sql 时,超出内存空间 
sys_invalid_id    无效的 rowid 字符串 
timeout_on_resource  oracle 在等待资源时超时

语法及示例:

1、存储过程创建存储过程的语法:

create [or replace] procedure procedure_name[(parameter_list)]{is|as}[local_declarations]beginexecutable_statements[exceptionexception_handlers]end [procedure_name];

其中:procedure_name是过程的名称。

parameter_list是参数列表。

local_declarations是局部声明。

executable_statements是可执行语句。

exception_handlers是异常处理程序。

示例1:

演示创建过程(参数列表中为in参数赋予一个默认值,不能为out、in out参数赋予默认值)

create or replace procedure find_emp(emp_no in number:=7900)asempname varchar2(20);beginselect ename into empname from emp where empno=emp_no;dbms_output.put_line('雇员姓名是 '||empname);exceptionwhen no_data_found thendbms_output.put_line('雇员编号未找到');end find_emp;

调用过程:

execute procudure_name(parameters_list);

也可以在过程里面调用,直接写上procudure_name而不必写execute。

示例2:演示创建带out参数的过程

create or replace procedure test(value1 varchar2,value2 out number) is identity number; begin select sal into identity from emp where empno=value1; if identity<2000 then value2:=1000; else value2:=500; end if; end;

调用带out参数的过程:

declare value2 number; begin test('7900',value2); dbms_output.put_line(value2); end;

示例3:

演示创建带in out参数的过程

create or replace procedure swap(p1 in out number,p2 in out number) is v_temp number; begin v_temp:=p1; p1:=p2; p2:=v_temp; end;

调用带in out参数的过程:

declare num1 number:=100; num2 number:=200; begin swap(num1,num2); dbms_output.put_line('num1= '||num1); dbms_output.put_line('num2= '||num2); end;

示例4:将过程的执行权限授予其他用户

grant execute on find_emp to scott; grant execute on swap to public; 

将find_emp过程的执行权限授予给用户scott,将执行swap过程的权限授予所有数据库用户。

删除过程语法:

drop procedure procudure_name;

2、函数 定义函数的语法如下:

create [or replace] function function_name [(parameter_list)] return datatype {is|as} [local_declarations] begin executable_statements [exception exception_handlers] end [function_name]; 

其中:function_name是函数的名称。

parameter_list是参数列表。

local_declarations是局部声明。

executable_statements是可执行语句。

exception_handlers是异常处理程序。

使用函数时注意:形式参数必须只使用数据库类型,不得使用pl/sql类型。函数的返回类型也必须是数据库类型。 函数不能单独执行,只能通过sql语句或pl/sql程序块来调用。

示例5:

演示如何创建函数

create or replace function fun_hello return varchar2 is begin return '朋友,您好'; end; 

调用函数:

select fun_hello from dual;

函数的授权:同过和的授权一样具体请看示例4。

删除函数:

drop function function_name

过程和函数的差异 过程 函数 作为pl/sql语句执行 作为表达式的一部分调用 在规范中不包含return子句 必须在规范中包含return子句 不返回任何值 必须返回单个值 可以包含return语句,但是与函数不同,它不能用于返回值 必须包含至少一条return语句

3、程序包 创建包规范的语法:

create [or replace] package package_name is|as [public type and item declarations] [subprogram specifications] end [package_name];

其中:package_name是包的名称。

public type and item declarations是声明类型、常量、变量、异常和游标等。 subprogram specifications声明pl/sql子程序。

示例6:

演示创建程序包规范

create or replace package pack_op is procedure pro_print_ename(id number); procedure pro_print_sal(id number); function fun_re_date(id number) return date; end;

创建包主体的语法:

create [or replace] package body package_name is|as [public type and item declarations] [subprogram bodies] [begin initialization_statements] end [package_name];

其中:package_name是包的名称。

public type and item declarations是声明类型、常量、变量、异常和游标等。

subprogram bodies是定义公共和私有pl/sql子程序。

示例7:演示创建程序包主体

create or replace package body pack_op is procedure pro_print_ename(id number) is name emp.ename%type; begin select ename into name from emp where empno=id; dbms_output.put_line('职员姓名:'||name); end pro_print_ename; procedure pro_print_sal(id number) is salary emp.sal%type; begin select sal into salary from emp where empno=id; dbms_output.put_line('职员工资:'||salary); end pro_print_sal; function fun_re_date(id number) return date is bedate emp.hiredate%type; begin select hiredate into bedate from emp where empno=id; return bedate; end fun_re_date; end pack_op;

示例8:调用程序包中创建的过程和函数

exec pack_op.pro_print_ename(7900); exec pack_op.pro_print_sal(7900); select pack_op.fun_re_date(7900) from dual;

示例9:演示程序包中的游标 创建包规范

create or replace package pack_emp is cursor cur_emp return emp%rowtype; procedure pro_cur; end pack_emp;

创建包主体

create or replace package body pack_emp is cursor cur_emp return emp%rowtype is select * from emp; procedure pro_cur is rec_emp emp%rowtype; begin open cur_emp; loop fetch cur_emp into rec_emp; exit when cur_emp%notfound; if rec_emp.sal<1000 then dbms_output.put_line('员工工资:'||rec_emp.sal||',需加倍努力争取提高工资'); elsif rec_emp.sal>=1000 and rec_emp.sal<2000 then dbms_output.put_line('员工工资:'||rec_emp.sal||',工资一般,争取搞个部门经理做做'); else dbms_output.put_line('员工工资:'||rec_emp.sal||',工资不错,争取搞个总经理做做'); end if; end loop; end pro_cur; end pack_emp;

调用程序包中的过程以调用程序包中的游标

exec pack_emp.pro_cur;

示例10:存储过程返回游标的子程序包(此程序包返回r_cur游标)

create or replace package scott.pk_wt is type mytype is ref cursor; procedure p_wt(mycs out mytype); end;
create or replace package body scott.pk_wt is procedure p_wt(mycs out mytype) is r_cur mytype; begin open r_cur for select * from emp; mycs:=r_cur; end p_wt; end pk_wt;

查询有关过程、函数和程序包的信息:

user_objects数据字典视图 column object_name format a18 select object_name,object_type from user_objects where object_type in ('procedure','function','package','package body');

以上所述是小编给大家介绍的oracle procedure知识,希望对大家有所帮助