用户定义异常的Oracle更新存储过程

Question

我正在尝试创建这个存储过程，它应该将客户编号和电子邮件地址作为输入。然后更新该客户的电子邮件地址。如果新的电子邮件地址与旧的相同，则应提出异常。

CREATE OR REPLACE PROCEDURE UpdateEmail
(CUSTOMERID IN CUSTOMER.CUSTOMERNO%TYPE, 
 N_EMAIL IN CUSTOMER.EMAIL%TYPE)

IS
DECLARE 
  e_same EXCEPTION;
  V_ROWCOUNT NUMBER;

BEGIN
SELECT COUNT(EMAIL)
INTO V_ROWCOUNT
FROM CUSTOMER@FIT5148B
WHERE CUSTOMER.EMAIL = N_EMAIL
AND CUSTOMER.CUSTOMERNO = CUSTOMERID;

IF V_ROWCOUNT > 0

THEN RAISE e_same;
ELSE 
UPDATE CUSTOMER
SET EMAIL = N_EMAIL
WHERE CUSTOMER.CUSTOMERNO = CUSTOMERID;
END IF;

EXCEPTION
 WHEN e_same THEN dbms_output.put_line ('email address exist');
END;
/

但它是抛出错误。不确定我是否做得对。我正在使用最新的OracleSQLDeveloper。

错误(6，1): PLS-00103:在需要以下内容之一时遇到符号“DECLARE ”: begin function pragma procedure subtype当前光标删除存在于外部语言之前符号“begin”已替换为“DECLARE”以继续。< br >错误(28，4): PLS-00103:在需要以下内容之一时遇到符号“文件结尾”:(begin case declare end exception exit for goto if loop mod null pragma raise return select update while with

Answer 1

删除DECLARE。

不应在过程中使用“声明”。如果您正在编写PLSQL块，那么只有您应该使用声明。不在实际的过程正文中。