sql练习3

--1. 求半径2米，高3米的圆柱体体积。
DECLARE
tiji number :=3.14*2*2*3; 
BEGIN
dbms_output.put_line('圆柱的体积为:'||tiji);
END;


--2. 求字符串‘abcdefg’的长度。
DECLARE
len NUMBER;--:=LENGTH('abcdefg') ; 
BEGIN
 SELECT LENGTH('abcdefg') INTO len  
 from dual;
dbms_output.put_line('字符串‘abcdefg’的长度为：'||len);
END;


--3. 显示pubs数据库中所有作家的au_lname的开头两个字母，大写显示。（字符函数）
CREATE TABLE pubs(
  au_lname VARCHAR2(20) NOT NULL,
au_num  number  NOT NULL
)
INSERT INTO pubs(au_lname,au_num)
VALUES ('abcde',12);


DECLARE
anam pubs.au_lname%TYPE;
BEGIN


SELECT au_lname INTO anam
FROM pubs ;
anam:=upper(substr(anam,1,2));
dbms_output.put_line(anam);
END;




--4. 取字符串‘abcdefg’的第2到第5个字母。（字符函数）
DECLARE
str VARCHAR2(10); 
BEGIN
 SELECT SUBSTR('abcdefg',2,4) INTO str  
 from dual;
dbms_output.put_line('字符串abcdefg的第2到第5个字母为：'||str);
END;
--5. 计算2001年9月11日到今天已经多少天了。（日期函数）
DECLARE
v_d NUMBER:=(SYSDATE-TO_DATE('2001-09-11', 'yyyy-mm-dd')); 
BEGIN
dbms_output.put_line(v_d);
END;
--6.  查询emp表，找出编号为7395的记录，如果名字为SCOTT 显示“找到了”否则显示“没找到”。（if语句）
DECLARE
v_q EMP %rowtype; 
BEGIN
 SELECT * INTO v_q  
 from emp e
 WHERE e.EMPNO=7395;


 if (v_q.ename='SCOTT')
THEN
--专门输出语句 
dbms_output.put_line('找到了');
ELSE
dbms_output.put_line('没找到');
END IF;
exception--异常处理 如果没有找到数据
when others THEN
    dbms_output.put_line('没有找到员工');
END;
--7.编写一个程序，用以接受用户输入的数字。将该数左右反转，然后显示反转后的数
--提示：使用循环控制结构.
DECLARE 
v_n NUMBER:=123;
len NUMBER:=LENGTH(v_n);
begin 
for i in  reverse 1 .. len--从1-100 reverse 倒过来100-1
loop
dbms_output.put(i);
end loop;
  dbms_output.put_line('');
end;


--8.编写一个程序，在emp表中根据empno查询职员信息。如果代码引发NO_DATA_FOUND异常，则显示一则消息.
DECLARE  --错误处理
v_s emp %rowtype;
begin 
select * into v_s
from emp e
where e.empno is NULL;
dbms_output.put_line( v_s.empno||v_s.ename);


EXCEPTION
when no_data_found THEN
dbms_output.put_line('没有该职员');--当前错误信息，系统异常


end;








--9.编写一个程序，用以接受用户输入的DEPTCODE，并从employee表中检索该雇员的EMPNO。如果代码引发TOO_MANY_ROWS异常，则显示消息“返回多行”.
declare
   info emp.empno%type;
begin
   select empno into info from emp  where (SELECT COUNT(deptno)from emp)>1;--deptno is not null;


exception
    when too_many_rows then
       dbms_output.put_line('返回多行');
end;