PL/SQL笔记

最新推荐文章于 2024-07-08 18:53:41 发布

Ink_cherry

最新推荐文章于 2024-07-08 18:53:41 发布

阅读量349

点赞数

分类专栏：数据库

本文链接：https://blog.csdn.net/Ink_cherry/article/details/71107647

版权

数据库专栏收录该内容

9 篇文章 0 订阅

订阅专栏

：）隐式游标输入学号和课程名字将改学号的学生课程更改为课程名如果不存在抛出异常

set SERVEROUTPUT ON ;
DECLARE  
  var_i number(10):=0;
  var_m varchar(20):='ii';
    no_result exception;
  BEGIN
       var_i:=&x;
    var_m:=&x;
       update T_COUSE set COUSETYPE=var_m where COUSEID=var_i;
       if sql%notfound then
       raise no_result;
       end if;
    exception 
       when no_result then
       dbms_output.put_line('更新失败了');
       when others then
       dbms_output.put_line('发生其他错误');
       end;

格式化显示课程为数学的学生学号和姓名利用显示游标

set SERVEROUTPUT ON ;
 DECLARE 
  var_id number;
  var_name varchar(20);
  var_type varchar(20);
  cursor Mycur(varType varchar) is select COUSEID,COUSENAME,COUSETYPE from T_COUSE where COUSETYPE=varType;
  BEGIN
       IF MyCur%isopen = false then
       open Mycur('数学');
       END IF;
       FETCH MyCur INTO var_id,var_name,var_type;
       WHILE MyCur%FOUND
       LOOP 
         dbms_output.put_line('学号：'||var_id||'姓名：'||var_name||'课程：'||var_type);
          Fetch MyCur INTO var_id,var_name,var_type;
         END LOOP;
         CLOSE MyCur;
         END;

定义一个传递参数的过程，判断是否输入参数

set SERVEROUTPUT ON ;
create or replace procedure Mypro
(var_char in varchar2 default null)as
BEGIN if(var_char is null) then 
dbms_output.put_line('你们有输入参数');
else 
dbms_output.put_line('你输入的参数是'||var_char);
end if;
END Mypro;
execute Mypro('asdf');
execute Mypro();