Oracle中PLSQL的语法

Posted 2023-02-04

--示例1  PL/SQL 的基本语法

                declare  --声明：变量、游标
  v_num number(5) :=5;  --变量名 [constant：常量] 数据类型  [赋值] 
begin    --程序开始
  DBMS_OUTPUT.PUT_LINE(v_num的当前值为：|| v_num);
--  if v_num>=10  then 
--    null;    --什么都不执行，只是为了填充语法；
--  else 
--    v_num :=v_num+10;
--  end if;
  
  
  if v_num<10 then
      v_num :=v_num+10;
  end if;
  DBMS_OUTPUT.PUT_LINE(v_num的更新值为：|| v_num);
--exception    --异常
end;  --结束
              
--示例2  输出李浩鑫的地址

                declare
  --查询结果必须 =1 否则无法存储，报错
  v_address VARCHAR2(20);  --用来存储查询出来的地址
  v_name VARCHAR2(20) :=李浩鑫;
begin
  select "Address" into v_address
  from "Student"
  where "StudentName"=v_name;
  DBMS_OUTPUT.PUT_LINE(v_name||的地址是：||v_address);
exception
  when others then
  DBMS_OUTPUT.PUT_LINE(没有查到相关信息);
end;

              
--示例3  查询学号为8的学生姓名，并输出

                declare
  v_name "Student"."StudentName"%type;  --引用表中字段的类型，作为变量数据类型
  v_no number(20) :=8;
begin
  select "StudentName" into v_name
  from "Student"
  where "StudentNo"=v_no;
  DBMS_OUTPUT.PUT_LINE(v_no||的姓名是：||v_name);
exception
when others then
  DBMS_OUTPUT.PUT_LINE(没有查到相关信息);
end;
              
--示例4  查询学号为8的学生姓名和电话，并输出

                declare
  v_stuInfo "Student"%ROWTYPE; --引用表中所有字段的类型作为变量（集合）的类型
  v_no number(20) :=8;
begin
  select * into v_stuInfo
  from "Student"
  where "StudentNo"=v_no;
  DBMS_OUTPUT.PUT_LINE(v_no||的姓名是：||v_stuInfo."StudentName");
  DBMS_OUTPUT.PUT_LINE(v_no||的电话是：||v_stuInfo."Phone");
exception
when others then
  DBMS_OUTPUT.PUT_LINE(没有查到相关信息);
end;
              
--示例5  条件判断1：根据小明的成绩获得奖励

                declare
  v_score number(10) :=85;
begin
  if v_score>80 then
    DBMS_OUTPUT.PUT_LINE(奖励一个鸡腿);
  elsif v_score>60 then    --注意：elsif !!
    DBMS_OUTPUT.PUT_LINE(什么都不奖励);
  else
    DBMS_OUTPUT.PUT_LINE(奖励男女混合双打);
  end if;
exception
  DBMS_OUTPUT.PUT_LINE(没有查到相关信息);
end;
              
--小练习：>90的-10，>60且<=90加10，<=60加20分
declare
  v_score "Result"."StudentResult"%TYPE;
  v_stuNo "Result"."StudentNo"%TYPE :=1;
  v_subNo "Result"."SubjectNo"%TYPE :=2;
begin
  --查询出指定学生的指定科目的成绩，并存入变量

                  select "StudentResult" into v_score 
  from "Result"
  where "StudentNo"=v_stuNo and "SubjectNo"=v_subNo;
  --根据规则，修改变量赋值
  if v_score >90 then
    v_score :=v_score-10; --修改变量值
  elsif v_score >=60 then
    v_score :=v_score+10;  --修改变量值
  else
    v_score :=v_score+20; --修改变量值
  end if;
  --将修改后的变量值写入数据表中
  update "Result" set "StudentResult"=v_score
  where "StudentNo"=v_stuNo and "SubjectNo"=v_subNo;
--exception
END;
              
--示例6    等值判断  case 类似于Java中switch结构

                DECLARE
  v_count number(10);  --表示学生表中的总人数
BEGIN
  select count(1) into v_count
  from "Student";
  
  CASE v_count
  WHEN 6 THEN
    DBMS_OUTPUT.PUT_LINE(一共有||v_count||个人);
  WHEN 7 THEN
    DBMS_OUTPUT.PUT_LINE(一共有||v_count||个人);
  ELSE
    DBMS_OUTPUT.PUT_LINE(一共有好多个人);
  END CASE;
END;
              
--示例7    等值判断  case

                DECLARE
  v_count number(10);  --表示学生表中的总人数
BEGIN
  select count(1) into v_count
  from "Student";
  
  CASE   --如果when后是条件判断，那么case后不加变量
  WHEN v_count<=3 THEN
    DBMS_OUTPUT.PUT_LINE(一共有好少个人);
  WHEN v_count>=4 and v_count<=8 THEN
    DBMS_OUTPUT.PUT_LINE(一共有4-8个人);
  ELSE
    DBMS_OUTPUT.PUT_LINE(一共有好多个人);
  END CASE;
END;
              
--示例8   循环  loop：默认是一个无限循环，需要exit人工（强制）退出

                DECLARE
  v_num number(10) :=1;
BEGIN
  LOOP  --循环开始
    v_num :=v_num+2;  --循环操作
    DBMS_OUTPUT.PUT_LINE(v_num);--循环操作
  IF v_num>=20 THEN    --根据需求
    EXIT;  --退出Loop循环
  END IF; 
END LOOP;  --退出循环结构
END;

--示例9   while循环
DECLARE
  v_num number(10) :=1;
BEGIN
  while v_num<=20 loop
--    v_num :=v_num+2;  --循环操作
    DBMS_OUTPUT.PUT_LINE(v_num);--循环操作
  end loop;
END;
              
--示例10  for循环

                DECLARE
  v_num number(10) :=1;
BEGIN
  for i in 1..20 loop
    DBMS_OUTPUT.PUT_LINE(v_num);--循环操作
    v_num :=v_num +2;
  IF v_num>=20 THEN    --根据需求
    EXIT;  --退出Loop循环
  END IF; 
  end loop;
END;

              
--示例11  异常：exception

                DECLARE
  v_count number;  --默认长度255
  v_excep exception;
  v_excep2 exception;
BEGIN
  select count(1) into v_count
  from "Student" where "StudentNo"=1;
  if v_count>1 then
    raise v_excep; --raise：抛出  抛出一个异常对象
  elsif v_count=1 then
    DBMS_OUTPUT.PUT_LINE(找到了学号为1的学生);
  elsif v_count=0 then
    raise v_excep2;
  end if;
EXCEPTION  --处理异常
  when v_excep then  --匹配异常
    DBMS_OUTPUT.PUT_LINE(捕获到异常，学号有重复);
  when v_excep2 then
    DBMS_OUTPUT.PUT_LINE(不存在此学生);
  when others then  --捕获异常
    DBMS_OUTPUT.PUT_LINE(其他异常);
END;
              
--示例12  动态SQL，向表中插入一条数据

                DECLARE
  v_no number(4) :=7;  --参数变量
  v_name VARCHAR2(20) := Oracle;  --参数变量
  v_hour number(4) := 40;  --参数变量
  v_gradeId number(4) :=3;  --参数变量
  
  v_sql_str  VARCHAR2(255);  --存储sql语句变量
BEGIN
  --编写SQL语句，并设置占位符“:1”
  v_sql_str :=INSERT into "Subject" values(:1,:2,:3,:4) ;
  --用参数填充占位符
  --execute：执行  immediate：立即  using：使用
  execute immediate v_sql_str using v_no,v_name,v_hour,v_gradeId;
  commit;  --提交
END;
              
--示例13  游标，类似于Java中的迭代器

                DECLARE
  v_name "Student"."StudentName"%TYPE;
  v_phone "Student"."Phone"%TYPE;
  v_Address "Student"."Address"%TYPE;

--声明游标  cursor：光标
cursor c_stu is 
  select "StudentName","Phone","Address"  
  from "Student" where "StudentNo"=2;
BEGIN
  --打开游标
  open c_stu;
  --提取游标中的信息，并存入变量
  fetch c_stu into v_name,v_phone,v_Address;
  --输出信息
  DBMS_OUTPUT.PUT_LINE(姓名:||v_name);
  DBMS_OUTPUT.PUT_LINE(电话:||v_phone);
  DBMS_OUTPUT.PUT_LINE(地址:||v_Address);
  
  --关闭游标
  close c_stu;
END;
              
--示例14   使用游标遍历多条结果

                DECLARE
  v_name "Student"."StudentName"%TYPE;
  v_phone "Student"."Phone"%TYPE;
  v_Address "Student"."Address"%TYPE;
  
  cursor c_stu is
  select "StudentName","Phone","Address" from "Student";
BEGIN
  --使用for循环遍历多条数据时，不需要打开游标，不需要提取，不需要关
  for stu in c_stu loop
    v_name :=stu."StudentName";
    v_phone :=stu."Phone";
    v_Address :=stu."Address";
    DBMS_OUTPUT.PUT_LINE(姓名:||v_name);
    DBMS_OUTPUT.PUT_LINE(电话:||v_phone);
    DBMS_OUTPUT.PUT_LINE(地址:||v_Address);
  end loop;
END;