oracle数据库sql语句07 PL SQL程序结构

PL/SQL程序结构

set serveroutput on

--求两数之和 ，之差 相除

declare

 a number(2):=10;

 b number(2):=20;

 c number(7,2);

begin

 a:=&num1;

 b:=&num2;

 c:=(a+b)/(a-b);

 dbms_output.put_line('结果为'||c);

exception

 when zero_divide then

  dbms_output.put_line('除数为0');

end;

/

--查询编号为7782员工姓名

declare

 var_empno number;

 var_ename varchar2(50);

begin

 select empno,ename into var_empno, var_ename from emp where empno=7782;

 if sql%found then

  dbms_output.put_line('雇员编号：'||var_empno||'雇员名称'||var_ename);

 end if;

exception

 when too_many_rows then

  dbms_output.put_line('返回记录超过一行');

 when no_data_found then

  dbms_output.put_line('无数据记录');

end;

/

--查询编号为7782员工姓名和工资

declare

 var_empno number;

 var_ename varchar2(50);

 var_sal number;

begin

 select empno,ename,sal into var_empno, var_ename, var_sal from emp where empno=7782;

 if sql%found then

  dbms_output.put_line('empno：'||var_empno||' ename：'||var_ename||' sal：'||var_sal);

 end if;

exception

 when too_many_rows then

  dbms_output.put_line('返回记录超过一行');

 when no_data_found then

  dbms_output.put_line('无数据记录');

end;

/

--查询编号为7782员工姓名、工资、职位、所在部门

set serveroutput on

declare

 var_ename emp.ename%type;

 var_sal emp.sal%type;

 var_job emp.job%type;

 var_dname dept.dname%type;

begin

 select ename,sal,job,dept.dname into var_ename, var_sal, var_job, var_dname from emp join dept on dept.deptno=emp.deptno where empno=7782;

 if sql%found then

  dbms_output.put_line('ename：'||var_ename||' sal：'||var_sal||' job：'||var_job||' dname：'||var_dname);

 end if;

end;

/

--查询编号为7499员工信息

declare

 info emp%rowtype;

begin

 select * into info from emp where empno=7499;

  dbms_output.put_line('empno：'||info.empno||', ename：'||info.ename||', sal：'||info.sal||', job：'||info.job||', deptno：'||info.deptno);

end;

/