Oracle存储进程根本语法ITeye - 凯发娱乐

Oracle存储进程根本语法ITeye

2019年03月24日13时07分37秒 | 作者: 尔烟 | 标签: 存储,进程,数组 | 浏览: 1233

转自:

1  CREATE OR REPLACE PROCEDURE 存储进程名

2  IS

3  BEGIN

4  NULL;

5  END;

 

行1:

CREATE OR REPLACE PROCEDURE 是一个SQL句子告诉Oracle数据库去创立一个叫做skeleton存储进程, 假如存在就掩盖它;

行2:

IS关键词标明后边将跟从一个PL/SQL体。

行3:

BEGIN关键词标明PL/SQL体的开端。

行4:

NULL PL/SQL句子标明什么事都不做,这句不能删去,由于PL/SQL体中至少需求有一句;

行5:

END关键词标明PL/SQL体的完毕

存储进程创立语法:

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

as 

变量1 类型(值规模); vs_msg   VARCHAR2(4000); 

变量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表明输出

类型能够运用恣意Oracle中的合法类型。

2,  变量带取值规模,后边接分号

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

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

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

 

CREATE OR REPLACE PROCEDURE存储进程名
(

界说参数
 is_ym  IN CHAR(6) ,

the_count OUT NUMBER,

AS 
界说变量 
vs_msg   VARCHAR2(4000);   过错信息变量
vs_ym_beg  CHAR(6);      开端月份
vs_ym_end  CHAR(6);      停止月份
vs_ym_sn_beg CHAR(6);     同期开端月份
vs_ym_sn_end CHAR(6);     同期停止月份

界说游标(简略的说便是一个能够遍历的成果集) 


CURSOR cur_1 IS 
  SELECT 。。。 
  FROM 。。。 
    WHERE 。。。
   GROUP BY 。。。; 

BEGIN 


用输入参数给变量赋初值,用到了Oralce的SUBSTR TO_CHAR ADD_MONTHS 

 

TO_DATE 等很常用的函数。 
vs_ym_beg := SUBSTR(is_ym,1,6); 
vs_ym_end := SUBSTR(is_ym,7,6); 
vs_ym_sn_beg := TO_CHAR(ADD_MONTHS(TO_DATE(vs_ym_beg,yyyymm), -12),yyyymm); 
vs_ym_sn_end := TO_CHAR(ADD_MONTHS(TO_DATE(vs_ym_end,yyyymm), -12),yyyymm); 


先删去表中特定条件的数据。 


DELETE FROM 表名 WHERE ym = is_ym; 


  然后用内置的DBMS_OUTPUT目标的put_line办法打印出影响的记载行数,其间用到一个体系变量SQL%rowcount 


DBMS_OUTPUT.put_line(del上月记载=||SQL%rowcount||条); 

INSERT INTO表名(area_code,ym,CMCODE,rmb_amt,usd_amt) 
SELECT area_code,is_ym,CMCODE,SUM(rmb_amt)/10000,SUM(usd_amt)/10000 
FROM BGD_AREA_CM_M_BASE_T 
  WHERE ym  = vs_ym_beg 
  AND ym  = vs_ym_end 
GROUP BY area_code,CMCODE; 

DBMS_OUTPUT.put_line(ins当月记载=||SQL%rowcount||条); 
遍历游标处理后更新到表。遍历游标有几种办法,用for句子是其间比较直观的一种。

 
FOR rec IN cur_1 LOOP 
  UPDATE 表名
  SET rmb_amt_sn = rec.rmb_amt_sn,usd_amt_sn = rec.usd_amt_sn 
   WHERE area_code = rec.area_code 
   AND CMCODE = rec.CMCODE 
   AND ym = is_ym; 
END LOOP; 

COMMIT; 


过错处理部分。OTHERS表明除了声明外的恣意过错。SQLERRM是体系内置变量保存了当时过错的详细信息。 


EXCEPTION 


   WHEN OTHERS THEN 
      vs_msg := ERROR IN xxxxxxxxxxx_p(||is_ym||):||SUBSTR(SQLERRM,1,500);

 
   ROLLBACK; 


   把当时过错记载进日志表。 


   INSERT INTO LOG_INFO(proc_name,error_info,op_date) 
   VALUES(xxxxxxxxxxx_p,vs_msg,SYSDATE); 
   COMMIT; 
   RETURN; 


END;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

oracle存储进程语法

1 、判别句子: 

if 比较式 then begin end; end if; 

create or replace procedure test(x in number) is 

begin 

        if x  0 then 

         begin 

        x := 0 - x; 

        end; 

    end if; 

    if x = 0 then 

       begin 

        x: = 1; 

    end; 

    end if; 

end test; 

2 、For 循环 

For ... in ... LOOP 

 履行句子 

end LOOP; 

(1) 循环遍历游标 

create or replace procedure test() as 

Cursor cursor is select name from student; name varchar(20); 

begin 

for name in cursor LOOP 

begin 

 dbms_output.putline(name);  

end; 

end LOOP; 

end test; 

(2) 循环遍历数组 

 create or replace procedure test(varArray in myPackage.TestArray) as 

( 输入参数varArray 是自界说的数组类型,界说办法见标题6) 

i number; 

begin 

i := 1;   存储进程数组是开端方位是从1 开端的,与java 、C 、C++ 等言语不同。由于在Oracle 中本是没有数组的概念的,数组其实便是一张 

 表(Table), 每个数组元素便是表中的一个记载,所以遍历数组时就相当于从表中的第一条记载开端遍历 

for i in 1..varArray.count LOOP      

dbms_output.putline(The No.|| i || record in varArray is:||varArray(i));    

 end LOOP; 

end test; 

3 、While 循环 

while 条件句子 LOOP 

begin 

end; 

end LOOP; 

E.g 

create or replace procedure test(i in number) as 

begin 

while i   10 LOOP 

begin     

 i:= i + 1; 

end; 

end LOOP; 

 end test; 

4 、数组 

首要清晰一个概念:Oracle 中本是没有数组的概念的,数组其实便是一张表(Table), 每个数组元素便是表中的一个记载。 

运用数组时,用户能够运用Oracle 现已界说好的数组类型,或可依据自己的需求界说数组类型。 

(1) 运用Oracle 自带的数组类型 

x array;  运用时需求需求进行初始化 

e.g: 

create or replace procedure test(y out array) is 

 x array;   

 begin 

x := new array(); 

y := x; 

end test; 

(2) 自界说的数组类型 ( 自界说数据类型时,主张经过创立Package 的办法完成,以便于管理) 

create or replace package myPackage is 

   Public type declarations   type info is record(     name varchar(20),     y number); 

  type TestArray is table of info index by binary_integer;   

 此处声明晰一个TestArray 的类型数据,其实其为一张存储Info 数据类型的Table 罢了,及TestArray 便是一张表,有两个字段,一个是name ,一个是y 。需求留意的是此处运用了Index by binary_integer 编制该Table 的索引项,也能够不写,直接写成:type TestArray is 

table of info ,假如不写的话运用数组时就需求进行初始化:varArray myPackage.TestArray; varArray := new myPackage.TestArray(); 

end TestArray; 

5. 游标的运用 Oracle 中Cursor 对错常有用的,用于遍历暂时表中的查询成果。其相关办法和特点也许多,现仅就常用的用法做一二介绍: 

(1)Cursor 型游标( 不能用于参数传递) 

create or replace procedure test() is   

cusor_1 Cursor is select std_name from student where  ...;  Cursor 的运用办法1   cursor_2 Cursor; 

begin 

select class_name into cursor_2 from class where ...;  Cursor 的运用办法2 

可运用For x in cursor LOOP .... end LOOP; 来完成对Cursor 的遍历 

end test; 

(2)SYS_REFCURSOR 型游标,该游标是Oracle 以预先界说的游标,可作出参数进行传递 

create or replace procedure test(rsCursor out SYS_REFCURSOR) is 

cursor SYS_REFCURSOR; 

name varhcar(20); 

begin 

OPEN cursor FOR select name from student where ... SYS_REFCURSOR 只能经过OPEN 办法来翻开和赋值 

LOOP 

 fetch cursor into name   SYS_REFCURSOR 只能经过fetch into 来翻开和遍历 exit when cursor%NOTFOUND;              SYS_REFCURSOR 中可运用三个状况特点:                                         -%NOTFOUND( 未找到记载信息) %FOUND( 找到记载信息)                                         -%ROWCOUNT( 然后当时游标所指向的行方位) 

 dbms_output.putline(name); 

end LOOP; 

rsCursor := cursor; 

end test; 

 

 

 

实例

下面写一个简略的例子来对以上所说的存储进程的用法做一个运用: 

现假定存在两张表,一张是学生成果表(studnet) ,字段为:stdId,math,article,language,music,sport,total,average,step               

一张是学生课外成果表(out_school), 字段为:stdId,parctice,comment 

经过存储进程主动计算出每位学生的总成果和均匀成果,一起,假如学生在课外课程中获得的点评为A ,就在总成果上加20 分。 

create or replace procedure autocomputer(step in number) is 

rsCursor SYS_REFCURSOR; 

commentArray myPackage.myArray; 

math number; 

article number; 

language number; 

music number; 

sport number; 

total number; 

average number; 

stdId varchar(30); 

record myPackage.stdInfo; 

i number; 

begin 

i := 1; 

get_comment(commentArray);  调用名为get_comment() 的存储进程获取学生课外评分信息 

OPEN rsCursor for select stdId,math,article,language,music,sport from student t where t.step = step; 

LOOP 

fetch rsCursor into stdId,math,article,language,music,sport; exit when rsCursor%NOTFOUND; 

total := math + article + language + music + sport; 

for i in 1..commentArray.count LOOP  

 record := commentArray(i);     

if stdId = record.stdId then   

 begin      

 if record.comment = A then      

  begin          

 total := total + 20;    

   go to next;  运用go to 跳出for 循环        

  end;     

end if;   

end;   

end if; 

end LOOP; 

continue   average := total / 5; 

 update student t set t.total=total and t.average = average where t.stdId = stdId; 

end LOOP; 

end; 

end autocomputer; 

 获得学生谈论信息的存储进程 

create or replace procedure get_comment(commentArray out myPackage.myArray) is 

rs SYS_REFCURSOR ; 

record myPackage.stdInfo; 

stdId varchar(30); 

comment varchar(1); 

i number; 

begin 

open rs for select stdId,comment from out_school 

i := 1; 

LOOP 

 fetch rs into stdId,comment; exit when rs%NOTFOUND; 

record.stdId := stdId; 

 record.comment := comment; 

recommentArray(i) := record; 

i:=i + 1; 

end LOOP; 

end get_comment; 

 界说数组类型myArray 

create or replace package myPackage is begin 

type stdInfo is record(stdId varchar(30),comment varchar(1)); 

type myArray is table of stdInfo index by binary_integer; 

end myPackage;

 

byebye

版权声明
本文来源于网络,版权归原作者所有,其内容与观点不代表凯发娱乐立场。转载文章仅为传播更有价值的信息,如采编人员采编有误或者版权原因,请与我们联系,我们核实后立即修改或删除。

猜您喜欢的文章