DECLARE
eno number;
en varchar(20);
BEGIN
--输入的信息保存在eno里
eno:=&no;
--之后根据eno的值,对数据库进行查询操作。
select ename into en from emp where empno = eno;
DBMS_OUTPUT.put_line('编号为:'||eno||'雇员的姓名为:'||en);
EXCEPTION
WHEN no_data_found THEN
DBMS_OUTPUT.put_line('没有此雇员');
END;
3.在以上的查询中再进一步:可以根据雇员的编号查出姓名及其领导的姓名和所在的部门, 进行显示。
DECLARE
eno emp.empno%TYPE ;
en emp.ename%TYPE ;
mn emp.ename%TYPE ;
dn dept.dname%TYPE ;
dept dept %rowtype ;
BEGIN
-- 输入的信息保存在 eno 里
eno := &no ;
-- 之后根据 eno 的值,对数据库进行查询操作
SELECT e.ename,m.ename,d.dname INTO en,mn,dn
FROM emp e,dept d,emp m
WHERE e.empno=7369 AND e.mgr=m.empno AND e.deptno=d.deptno ;
DBMS_OUTPUT.put_line('编号为:'||eno||'雇员的姓名为:'||en) ;
DBMS_OUTPUT.put_line('编号为:'||eno||'雇员的上级姓名为:'||mn) ;
DBMS_OUTPUT.put_line('编号为:'||eno||'雇员所在的部门:'||dn) ;
DBMS_OUTPUT.put_line(dept.deptno) ;
EXCEPTION
WHEN no_data_found THEN
DBMS_OUTPUT.put_line('没有此雇员') ;
END ;
LOOP
循环的语句 ;
EXIT WHEN 终止条件 ;
循环条件必须更改 ; END LOOP ;
例如:循环输出 1~10。
DECLARE
countNum NUMBER ;
BEGIN
--必须赋初值
countNum := 1 ;
LOOP
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
EXIT WHEN countNum>10 ;
countNum := countNum + 1 ;
END LOOP ;
END ;
注意:count关键字只能在sql语句中使用
此循环是先执行一次之后再进行判断,执行结果到11结束循环
5.while 循环
格式:
WHILE(判断循环的条件)
LOOP 循环的语句 ;
循环条件的改变 ;
END LOOP ;
使用此语句修改上面的程序:
DECLARE
countNum NUMBER ;
BEGIN
--必须赋初值
countNum := 1 ;
WHILE(countNum<10)
LOOP
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
countNum := countNum + 1 ;
END LOOP ;
END ;
此语句,是先判断,如果满足条件则继续执行循环体,执行结果到9结束循环
6.for 循环
格式:
FOR 变量名称 in 变量的初始值..结束值
LOOP
循环语句 ;
END LOOP ;
修改上例:
DECLARE
countNum NUMBER ;
BEGIN
FOR countNum IN 1..10
LOOP
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
END LOOP ;
END ;
此语句countNum大于等于1小于等于10,最后输出1-10
7.if语句
条件判断
格式:
IF 条件 THEN
满足条件时,执行此语句
END IF ;
例:
DECLARE
countNum NUMBER ;
BEGIN
countNum := 11 ;
IF countNum>10 THEN
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
END IF ;
END ;
条件语句,满足条件,执行一次
8.IF…ELSE 语句
如果 IF 满足了,则执行,否则执行 ELSE
例:
DECLARE
countNum NUMBER ;
BEGIN
countNum := 1 ;
IF countNum>10 THEN
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
ELSE
DBMS_OUTPUT.put_line('条件不不成立') ;
END IF ;
END ;
条件不满足执行else后面的语句
9.if…elsif…else 语句
例:
DECLARE
countNum NUMBER ;
BEGIN
countNum := 1 ;
IF countNum>10 THEN
DBMS_OUTPUT.put_line('countNum = '||countNum);
ELSIF countNum<5 THEN
DBMS_OUTPUT.put_line('值小于 5');
ELSE
DBMS_OUTPUT.put_line('条件不满足');
END IF ;
END ;
多重判断语句,满足条件执行对应的跳转
10.goto语句
无条件跳转语句
用于程序控制非条件跳至指定标签<<???>>。不易控制和维护,慎用!
DECLARE
eno emp.empno%TYPE ;
sal emp.sal%TYPE ;
BEGIN
eno := &en ;
SELECT sal INTO sal FROM emp WHERE empno=eno ;
IF sal>3500 THEN
goto po1 ;
ELSIF sal>2000 THEN
goto po2 ;
ELSE
goto po3 ;
END IF;
--标签
<<po1>> DBMS_OUTPUT.put_line('高工资。。。') ;
<<po2>> DBMS_OUTPUT.put_line('中等工资。。') ;
<<po3>> DBMS_OUTPUT.put_line('低工资。。。') ;
END;