Question

oracle数据库根据条件删除数据

编写Pl/sql块，输入部门号，删除该部门的信息，并处理可能出现的错误。
如果成功删除，则显示“该部门被删除”；
如果该部门不存在，则显示消息“部门不存在”；
如果违反了完整性约束，则显示信息“该部门有员工不能删除”

Answer 1

CREATE OR REPLACE PROCEDURE proc_name(ERRBUFF OUT VARCHAR2
,AA IN VARCHAR2
)
IS
AA =: 'AA'
E_INVALID_MGR EXCEPTION;

PRAGMA EXCEPTION_INIT(E_INVALID_MGR,-02291);
BEGIN

BEGIN
DELETE DEPTTEST
WHERE DEPT_NO = 部门号;
COMMIT;
dbms_output.put_line('该部门被删除');
EXCEPTION
WHEN NO_DATA_FOUND THEN
dbms_output.put_line('部门不存在');
ROLLBACK;
WHEN E_INVALID_MGR THEN
dbms_output.put_line('该部门有员工不能删除');
ROLLBACK;
WHEN OTHERS THEN
ROLLBACK;
END;

EXCEPTION
WHEN OTHERS THEN
ERRBUFF := 'err : ' || SQLERRM;
ROLLBACK;
END proc_name;