精通Oracle10编程SQL(6)访问ORACLE

/*
 *访问ORACLE
*/

--检索单行数据
--使用标量变量接收数据
DECLARE
  v_ename emp.ename%TYPE;
  v_sal emp.sal%TYPE;
BEGIN
  select ename,sal into v_ename,v_sal
  from emp where empno=&no;
  dbms_output.put_line('雇员名：'||v_ename);
  dbms_output.put_line('雇员薪水：'||v_sal);
END;

--使用记录变量接收数据
DECLARE
  TYPE emp_record_type IS RECORD(
    ename emp.ename%TYPE,sal emp.sal%TYPE);
  emp_record emp_record_type;
BEGIN
  select ename,sal INTO emp_record
  from emp where empno=&no;
  dbms_output.put_line('雇员名：'||emp_record.ename);
  dbms_output.put_line('雇员薪水：'||emp_record.sal);
END;

--操纵数据
--插入数据
--在PL/SQL块中使用VALUES子句插入数据
DECLARE
  v_deptno dept.deptno%TYPE;
  v_dname dept.dname%TYPE;
BEGIN
  v_deptno:=&no;
  v_dname:='&name';
  INSERT INTO dept(deptno,dname) values(v_deptno,v_dname);
END;

SELECT * FROM DEPT;

--在PL/SQL块中使用子查询插入数据
DECLARE
   v_deptno emp.deptno%TYPE:=&no;
BEGIN
   INSERT INTO employee
   select * from emp where deptno=v_deptno;
end;

select * from employee;

select * from emp;

--更新数据
--使用表达式更新列值
DECLARE
  v_deptno dept.deptno%TYPE:=&no;
  v_loc dept.loc%TYPE:='&loc';
BEGIN
  UPDATE dept set loc=v_loc where deptno=v_deptno;
END;

SELECT * FROM DEPT;

--使用子查询更新列值
--将与SCOTT岗位相同的所有雇员的工资和补助更新为与SCOTT完全相同
DECLARE
  v_ename emp.ename%TYPE:='&name';
BEGIN
  UPDATE emp set(sal,comm) = 
  (select sal,comm from emp where ename=v_ename)
  where job=(select job from emp where ename=v_ename);
END;

select * from dept;

--删除数据
--使用变量删除数据
DECLARE
  v_deptno dept.deptno%TYPE:=&no;
BEGIN
  DELETE FROM dept WHERE deptno=v_deptno;
END;

--使用子查询删除数据
--根据输入的雇员名解雇雇员所在部门的所有雇员
--下例会删除SCOTT所在部门的所有雇员
DECLARE
  v_ename emp.ename%TYPE:='&name';
BEGIN
  delete from emp where deptno=(select deptno from emp where ename=v_ename);
END;

SELECT * FROM EMP;

--SQL游标
--SQL%ISOPEN:用于确定SQL游标是否已经打开。当在PL/SQL块中执行SELECT INTO，INSERT，UPDATE以及DELETE语句时，ORACLE会隐含地打开
--游标，并且在语句执行完成之后会隐含地关闭游标，所以对于开发人员来说该属性的值永远都是FALSE，并且在开发PL/SQL应用时不需要使用该游标属性

--SQL%FOUND:用于确定SQL语句执行是否成功。
--语句执行是否成功是根据是否有作用行来判断，当SQL语句有作用行时，其属性值为TRUE，当SQL语句没有作用行时，其属性值为FALSE
DECLARE
  v_deptno emp.deptno%TYPE:=&no;
BEGIN
  update emp set sal=sal*1.1 
  where deptno=v_deptno;
  if SQL%FOUND THEN
     DBMS_OUTPUT.put_line('语句执行成功');
  else
     DBMS_OUTPUT.put_line('该部门不存在雇员');
  end if;
END;

--SQL%NOTFOUND:用于确定SQL语句执行是否成功
--语句执行是否成功是根据是否有作用行来判断，当SQL语句有作用行时，其属性值为FALSE，当SQL语句没有作用行时，其属性值为TRUE
DECLARE
  v_deptno emp.deptno%TYPE:=&no;
BEGIN
  update emp set sal=sal*1.1
  where deptno=v_deptno;
  if SQL%NOTFOUND THEN
    DBMS_OUTPUT.PUT_LINE('该部门不存在雇员');
  else
    dbms_output.put_line('语句执行成功');
  end if;
end;

--SQL%ROWCOUNT:游标属性SQL%ROWCOUNT用于返回SQL语句所作用的总计行数
DECLARE
  v_deptno emp.deptno%TYPE:=&no;
BEGIN
  update emp set sal=sal*1.1
  where deptno=v_deptno;
  dbms_output.put_line('修改了'||SQL%ROWCOUNT||'行');
END;


--事务控制语句
--在PL/SQL块中使用COMMIT和ROLLRACK语句
DECLARE
  v_sal emp.sal%TYPE:=&salary;
  v_ename emp.ename%TYPE:='&name';
BEGIN
  update emp set sal=v_sal where ename=v_ename;
  commit;
EXCEPTION
  WHEN OTHERS THEN
     ROLLBACK;
END;

select * from emp;

--在PL/SQL块中使用ROLLBACK和SAVEPOINT语句
create table temp
(
  tempid    NUMBER(10)
)

select * from dual;

select * from temp;

BEGIN
  INSERT INTO temp VALUES(1);
  SAVEPOINT a1;
  INSERT INTO temp VALUES(2);
  SAVEPOINT a2;
  INSERT INTO temp VALUES(3);
  SAVEPOINT a3;
  ROLLBACK TO a2;
  COMMIT;
END;

select * from temp;