5.26.txt

delphi renyuanguanlixinxioxitong

DECLARE
  v_ename employee.employeename%TYPE;
BEGIN
  SELECT employeename  INTO v_ename FROM employee WHERE sal=&&v_sal;
  dbms_output.put_line('员工名：'||v_ename);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    dbms_output.put_line('不存在工资为'||&v_sal||'的员工');
  when others then
    dbms_output.put_line('错误号'||SQLCODE);
    dbms_output.put_line('错误提示：'||SQLERRM);
END;