码迷,mamicode.com
首页 > 数据库 > 详细

PL/SQL 上机练习(一)

时间:2018-04-03 22:04:29      阅读:329      评论:0      收藏:0      [点我收藏+]

标签:lin   处理   begin   第一个   str   第一个字符   描述   ring   between   

_(:_」∠)_ _(:_」∠)_ _(:_」∠)_骗访问量系列_(:_」∠)_ _(:_」∠)_ _(:_」∠)_

题目描述:

对员工表中所有员工的姓名做如下处理:姓名的首字母在‘A‘到‘G‘ 之间,合并为第一个字符串,在‘H‘到‘O‘之间,合并为第二个字符串,在‘P‘到‘Z‘之间,合并为第三个字符串,姓名之间用空格相隔。

代码:

DECLARE
str1 string(100);
str2 string(100);
str3 string(100);
CURSOR NAME_AG IS
SELECT ENAME FROM EMP WHERE substr(ENAME,0,1) BETWEEN A AND G;
name1 emp.ENAME%TYPE;
CURSOR NAME_HO IS
SELECT ENAME FROM EMP WHERE substr(ENAME,0,1) BETWEEN H AND O;
name2 emp.ENAME%TYPE;
CURSOR NAME_PZ IS
SELECT ENAME FROM EMP WHERE substr(ENAME,0,1) BETWEEN P AND Z;
name3 emp.ENAME%TYPE;
BEGIN
OPEN NAME_AG;
OPEN NAME_HO;
OPEN NAME_PZ;

LOOP
    FETCH NAME_AG INTO name1;
    EXIT WHEN NAME_AG%NOTFOUND;
    str1:=str1||name1|| ;
END LOOP;
LOOP
    FETCH NAME_HO INTO name2;
    EXIT WHEN NAME_HO%NOTFOUND;
    str2:=str2||name2|| ;
END LOOP;
LOOP
    FETCH NAME_PZ INTO name3;
    EXIT WHEN NAME_PZ%NOTFOUND;
    str3:=str3||name3|| ;
END LOOP;
dbms_output.put_line(str1);
dbms_output.put_line(str2);
dbms_output.put_line(str3);
END;

 

PL/SQL 上机练习(一)

标签:lin   处理   begin   第一个   str   第一个字符   描述   ring   between   

原文地址:https://www.cnblogs.com/zhaoGavin/p/8710986.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!