【数据库编程】PL/SQL写存储过程和存储子程序

其他 2018-05-08 21:36:13 阅读次数: 2

此篇主要讲的的PL/SQL一些基本数据类型和控制流程以及包的定义

其中记载了自己在写存储过程中的遇到的坑和注意事项，以供自己日后学习
---学生表
drop table Student;
drop table Course;
drop table Sc;

CREATE TABLE Student(
  SNO VARCHAR2(7) PRIMARY KEY,
  Sname VARCHAR2(18),
  SSex CHAR(3),
  Sage SMALLINT,
  Sdept VARCHAR2(50),
  SAvgGrade NUMBER(3,0),
  SPicture BLOB
);
---课程表
CREATE TABLE Course(
  Cno VARCHAR2(4) PRIMARY KEY,
  Cname VARCHAR2(50),
  Cpno VARCHAR2(4),--前导课
  Ccredit NUMBER(2,0),
  FOREIGN KEY (Cpno) REFERENCES Course(Cno)
);

---选课表
CREATE TABLE SC(
  Sno VARCHAR2(7),
  Cno VARCHAR2(4),
  Grade NUMBER(3,0),
  PRIMARY KEY(Sno,Cno),
  FOREIGN KEY (Sno) REFERENCES Student(Sno),
  FOREIGN KEY (Cno) REFERENCES Course(Cno)
);
--测试数据：
insert into student(sno,sname,ssex,sage,sdept) values('9512101','李勇','男',19,'计算机系');
insert into student(sno,sname,ssex,sage,sdept) values('9512102','刘晨','男',20,'计算机系');
insert into student(sno,sname,ssex,sage,sdept) values('9521101','张立','男',22,'信息系');
insert into student(sno,sname,ssex,sage,sdept) values('9521102','吴宾','女',21,'信息系');
insert into student(sno,sname,ssex,sage,sdept) values('9531101','钱小平','女',18,'数学系');
insert into student(sno,sname,ssex,sage,sdept) values('9531102','王大力','男',19,'数学系');



insert into course values('1','数据处理',null,2);
insert into course values('2','数学',null,2);

insert into course values('3','操作系统','1',3);
insert into course values('4','C 语言程序设计','1',4);
insert into course values('5','数据结构','4',4);
insert into course values('6','数据库','5',4);
insert into course values('7','信息系统','6',4);

insert into sc values('9512101','1',92);
insert into sc values('9512101','2',85);
insert into sc values('9512101','3',88);
insert into sc values('9512102','2',90);
insert into sc values('9512102','3',100);

select * from student;

select avg(sc.grade) from sc where sno = '9512101';

--存储过程---
/**
*①编写存储过程，通过输入参数接收学生学号信息，
*通过输出参数输出学生相应的平均成
*/

--ORA-06502 数值或值错误：数值精度太高
CREATE OR REPLACE PROCEDURE select_info(psno IN student.Sno%TYPE)
IS
   v_avggrade number(7,4);
BEGIN
   select avg(sc.grade) into v_avggrade from sc where sno = psno;
   dbms_output.put_line(v_avggrade);
END;
---TEST1 指定参数----
DECLARE 
   psno student.sno%TYPE := '9512101';
BEGIN
  select_info(psno);
END;
  -----TEST2 指定参数--------
  BEGIN 
       select_info(&psno);
  END;


select avg(sc.grade)  from sc where sno = '9512101';
select *  from sc where sno = '9512101';
select sum(sc.grade) from sc where sno='9512101';


drop function select_sno;
drop procedure select_sno;

-------【注意】定义数据类型时不能明确指出数据的精度-----------
CREATE OR REPLACE PROCEDURE select_sno(psno IN Student.sno%TYPE, gg OUT number)
AS
BEGIN 
    SELECT AVG(sc.grade) INTO gg FROM SC WHERE SNO = psno; 
END;

DECLARE
    psno Student.Sno%TYPE := '9512101';
    gg number(3,1);
BEGIN
    select_sno(psno, gg);
    dbms_output.put_line(gg);
END;

/**
*②.编写存储函数，通过输入参数接收学生学号信息，返回学生的平均成绩；
*/
drop function ff;
CREATE OR REPLACE FUNCTION ff(pno IN SC.cno%TYPE) 
RETURN number ---///***注意这个位置返回值一定不能要;分号，否则报pls-00103错误end-of-file
IS
--    v_grade sc.grade%TYPE;
--number(p,s);
--p是精确度，s是范围例如：decimal(3,1)是指这样一个数字：小数点前2位数字，小数点后1位数字

      v_grade number(3,2);
BEGIN
    SELECT AVG(SC.Grade) INTO v_grade from sc where sno = pno;
    RETURN(v_grade);
END;

--调用函数---由于数值精度太高回报错ORA-06502
DECLARE 
   sno Sc.Sno%TYPE := '9512101';
   vv_grade sc.grade%TYPE;
BEGIN
   vv_grade := ff(sno);
   dbms_output.put_line(vv_grade);
END;
--Test2
DECLARE 
   vv_grade number(3,2);
BEGIN 
  vv_grade := ff(&sno);
  dbms_output.put_line(vv_grade);
END;


/**
*③如果要求程序依据接收的学生学号信息，提供学生的平均成绩以及选课信息，又该如何实现
*（提示：由于选课信息是多行多列的结果集，借助游标方可实现）？
*/
select * from sc where sno='9512101';
SELECT cno,CNAME FROM COURSE where cno in (select cno from sc where sno='9512101');
-----【注意事项】多表查询时不要用笛卡尔积-->要用自然连接natural join 和 内连接 以及子查询
--使用inner join连接查询
--语法格式 select * from table1 inner join table2 on 连接rule where xxx;

--select ST.sno,ST.sname from (student) as st INNER JOIN sc on sc.sno=ST.sno; 
--select sname,cno,cname from student natural join course natural join sc where sno='9512101';

CREATE OR REPLACE PROCEDURE get_info (pno IN SC.sno%TYPE,gg OUT SC.Grade%TYPE, 
       info_cursor OUT sys_refcursor)
AS
BEGIN
       select avg(sc.grade) into gg FROM SC where sno=pno;
       open info_cursor for select cno,cname from course natural join sc where sno=pno;    
 --  open info_cursor for select cname from TB_COURSE WHERE CNO IN (SELECT CNO FROM SC WHERE SNO = PNO);
--EXCEPTION     
END;

--Test--
DECLARE 
       --声明变量
       info_cursor sys_refcursor;
   --    v_info_row sc%ROWTYPE;      --行记录类型那个
       type type_a_b is record(col_1 course.cno%TYPE,col_2 course.cname%TYPE);
       result_temp type_a_b;
       v_sno student.sno%TYPE := '9512101';
       v_grade sc.grade%TYPE;
BEGIN  
       get_info(v_sno,v_grade,info_cursor);
       dbms_output.put_line('学号'||v_sno||'平均分'||v_grade);
       LOOP
          FETCH info_cursor into result_temp;
--          IF v_info_row%NOTFOUND
  --           THEN 
  --              EXIT;
    --      ELSE
            exit when info_cursor%NOTFOUND;
                Dbms_Output.put_line('cno:'||result_temp.col_1 ||'cname:'+result_temp.col_2);
        --  END IF;
        END LOOP;
        close info_cursor;    --关闭游标                                 --
END;  


/**
*（3）、在学生－课程数据库中，针对student 表，定义包实现如下功能，并分别在PL/SQL 块以及PL/SQL
    DEVELOPER 中测试该存储子程序的代码，上机验证你的代码。
    ① 查询所有学生信息记录
    ② 查询指定学号的学生信息记录
    ③ 插入学生信息记录（包括学号、姓名、性别、年龄、系部字段）
    ④ 删除指定学号学生信息记录
    ⑤ 更新学生信息记录（包括学号、姓名、性别、年龄、系部字段）
*/
--定义包规范
create or replace package student_pack
as
       type student_cursor is ref cursor;
       procedure select_all(out_cursor OUT student_cursor);
       procedure select_all_by_sno(pno IN student.sno%TYPE, out_cursor OUT student_cursor);
       procedure insert_stu(stu IN student_cursor);
   --    procedure insert_stu(pno in student.sno%TYPE, pname in student.sname%TYPE,
    --                            psex in student.ssex%TYPE, page in student.sage%TYPE,pdepart in student.sdept%TYPE);
       procedure delete_stu(pno in student.sno%TYPE);
    --   procedure update_stu()                         

end student_pack;

--定义包体
drop package body student_pack;
create or replace package body student_pack
is
       procedure select_all(out_cursor out student_cursor)
       as 
       begin
             open out_cursor for select * from student;
       end select_all;
   --------------------------------------------------------    
       procedure select_all_by_sno(pno IN student.sno%TYPE, out_cursor OUT student_cursor)
       as 
       begin
              out_cursor is select * from student where sno=pno;
       end select_all_by_sno;
       --------------------------------------------
        procedure delete_stu(pno in student.sno%TYPE)
        as 
        begin
               delete from student where sno=pno;   
        end delete_stu;

end student_pack;


---TEST-----------
DECLARE
   v_out_cursor sys_refcursor;
   v_student_row student%ROWTYPE;
   v_sno student.sno%TYPE :='9512101';

BEGIN

    student_pack.select_all_by_sno(v_sno,v_out_cursor);
   --问题ORA-06550显示错误是v_out_cursor没有定义-----
    for item IN v_out_cursor
    LOOP
        dbms_output.put_line('sno :'||item.sno||'sname:'||item.sname);
    END LOOP;
    ----------------------------------
/*   
    LOOP
    FETCH v_out_cursor INTO v_student_row;
    EXIT WHEN v_out_cursor%NOTFOUND;
      dbms_output.put_line(v_student_row.sno || ' ' || v_student_row.sname || ' ' || v_student_row.ssex);
    END LOOP;
    close v_out_cursor;--关闭游标
*/
END;




/**【笔记】
       【注意事项】
            student.sno%TYPE获取数据类型
            1.赋值 ：=
            2.输出结果 1.
                   键盘输入

       select_sname_fun（&p_sno）;//函数名（参数）


       要求 输入学生一个输出参数多个
       借助系统游标实现

       sc_cursor out sys_refcursor;
       打开游标
       open sc_cursor for select * from sc where...


       测试

       Loop
         fetch sc_cursor into v_sc_row;
         exit when sc_cursor%notfound;
              dbms_output.putline();
       end loop

  ----关键通过java代码接收存储函数返回的数据

  二、自己总结内容

       游标---一定要先声明然后才能使用
      特殊的控制结构，有一个内存缓冲区（缓存SQL语句执行的结构）和一个游标指针组成。
      静态游标与SQL语句绑定
      静态分为---

    oracle仅用游标属性反映最近一次被执行的DML,DDL语句
    %FOUND  标识DML操作是否改变了记录
    %ISOPEN 标识游标是否打开
    %NOFOUND    标识游标操作是否改变行记录
    %ROWCOUNT标识DML语句影响的行数

1.隐式游标  SQL%XXX    获取游标属性
2.显式游标 游标名%XXX  获取游标属性--->仅用于查询处理
REGEXP_LIKE (job_id, '{}')---/////声明处不懂

动态游标 REF CURSOR

3.存储子程序
块分为匿名块（不能被存储，只能使用一次）
和命名块（被存储，可以多次使用，--子程序）

子程序又分为过程（没有返回值）和函数
过程强调实施某种操作，函数强调返回计算值

子程序定义在包中不能要create
独立定义要用create

使用存储子程序有点：1）代码复用
2）调用清晰
3）执行速度快。在创建是已经通过语法检查和性能优化
4）规范程序设计
5）提高系统安全性，将存储子程序独立作为用户存储数据的管道

参数模式 in(缺省参数) out in-out三种


////p14面在调用函数时execute :t1 := testFunc(v1=>:v1,v3=>w3)
不能再一个存储过程中删除另一个存储过程，只能调用另一个存储过程

4. 存储子过程的调试
1）检索用户子程序/触发器


5.包

包=包规范+包体（用来分类组织和管理子程序）

包规范可以定义数据类型、声明变量、常量，
异常，游标，子程序
【包规范是pl/sql 全局对象】


包体编写游标和子程序（过程，函数）

包规范语法
create or replace ace package 包名


end 包名;

2018/4/26   p15


  5.用包管理存储过程和局部变量

       定义包规范
           create or replace package XXX
           as 
                  type mycursor is ref cursor;
                  procedure select_aall();
                  procedure



           end XXXX;

           2.定义包体

           包体名字与包规范同名

           create or replace package body XX
           as 
                  procedure XXX
                    as
                    begin

                    end XXX;

                    ------------------
                    procedure XX
                    as 
                    begin 
                      end XX;  


               在代码块中引用

               declare


               begin

*/

/**
    使用java调用存储过程
           Statement;
           prepareStatement psmt;

           conn.prepareStatement(sql);
      使用CallableStatement--调用存储过程/存储函数
           调用存储过程--传入参数
           cs = conn.prepareCall("{call XXX{?,?}}");
           registeroutParameter(2,java.sql.Types.DOUBLE);                     
           sc.execute();
           //获取第二个参数，单值返回
           cs.getDouble(2);



           函数

              call ? := select_avg_fun(?);


        多表连接插叙----通过内连接查询

        //ojbc
        cs.registerOutParameter(3,oracle.jdbc.OracleTypes.CURSOR)     
        rs = （ResultSet）cs.getObject(3);


        //直接列标
        //通过键值对获取



        //通过包的调用

        call student_pkg.XXX();

        回去复习PL/SQL的数据类型
2018/5/1号笔记
        PL/SQL有标量、引用、符合、和大对象等数据类型
        1.标量类型只能存储单支的数据：用于存储字符串、数字、布尔值、日期、二进制数据等
           char varchar varchar2 nchar nvarchar2
           rowid,urowid
           number数值
           boolean布尔值
           date，timestamp,interval日期时间
           ref cursor 和ref引用类型
           blob,clob大对象

        2.复合类型（记录、集合、对象）
           2.1记录的定义语法
               create type type_name is record{field,,};

               【注】1.表名%ROWTYPE和游标%ROWTYPE返回的数据类型也为记录型
                      2.记录的域均是基本标量类型
            2.2集合类型
                 2.2.1变长数组VARRAYS
                 2.2.2嵌套表    
                 2.2.3索引表

*/

此篇还有许多需要修改，未完待续。

猜你喜欢

转载自blog.csdn.net/alearn_/article/details/80158167
今日推荐
中国码农的“35岁魔咒”
蘭雅 CorelDRAW 插件 2024.5.1 国际劳动节版，免费下载
Arc Browser for Windows 1.0 正式 GA
90后程序员开发视频搬运软件、不到一年获利超 700 万，结局很刑！
《美国对全球网络空间安全与发展的威胁和破坏》报告发布
周排行
Java基础复习_day13_Collection集合
2018.11.16 c语言学习经验
且看Java内置四大核心函数式接口
小程序云开发中数据库的数据分段和显示图片
python的函数
Web-JS进阶
【干货】C++常用代码积累笔记大全
Spring的ioc操作 与 IOC底层原理
构建之法20191121-11 Scrum立会报告+燃尽图 07
Spring boot之Hello World访问404
每日归档
更多
2024-05-05(0)
2024-05-04(7)
2024-05-03(19)
2024-05-02(0)
2024-05-01(4)
2024-04-30(1)
2024-04-29(40)
2024-04-28(0)
2024-04-27(56)
2024-04-26(39)

代码天地 © 2018 codetd.com

境外服务器   最新电视剧2022