代码可编译但报SQL错误，如何修复删除客户的Oracle存储过程？

你代码里存在的问题如下：

• 游标定义语法错误：WHERE CUSTOMER_OWNER_ID = C_EMAIL); 末尾多了多余的右括号，属于语法问题
• 变量名误用：存储过程名为DELETE_CUSTOMER，计数变量是DELETE_COUNT，代码中DELETE_CUSTOMER := DELETE_CUSTOMER + 1; 错误尝试给存储过程名赋值，直接触发运行时错误
• 业务逻辑不匹配：需求是按传入的客户邮箱删除对应记录，游标过滤条件写的是CUSTOMER_OWNER_ID = C_EMAIL，和后续DELETE语句匹配的CUSTOMER_EMAIL字段不对应，会导致筛选结果和预期不符
• 冗余操作问题：用游标循环逐行删除属于不必要的操作，单条DELETE语句即可完成需求，执行效率更高

修正后的原始逻辑版本（保留游标写法） #

CREATE OR REPLACE PROCEDURE DELETE_CUSTOMER(C_EMAIL IN VARCHAR2) 
IS
  CURSOR CUSTOMERS_CURSOR IS SELECT * FROM CUSTOMER
    WHERE CUSTOMER_EMAIL = C_EMAIL; -- 修正过滤条件、删除多余右括号
  V_ROW CUSTOMERS_CURSOR%ROWTYPE;
  DELETE_COUNT INTEGER := 0;
BEGIN
  FOR V_ROW IN CUSTOMERS_CURSOR LOOP
    DELETE FROM CUSTOMER WHERE CUSTOMER_EMAIL = V_ROW.CUSTOMER_EMAIL;
    DELETE_COUNT := DELETE_COUNT + 1; -- 修正为计数变量名
  END LOOP;
  IF DELETE_COUNT = 0 THEN
    DBMS_OUTPUT.PUT_LINE('无匹配邮箱的客户记录：' || C_EMAIL || '，0条记录被删除。');
  ELSE
    DBMS_OUTPUT.PUT_LINE('已删除' || DELETE_COUNT || '条客户记录。');
  END IF;
END;
/

推荐使用更简洁的无游标优化版本，性能更好代码更易懂：

CREATE OR REPLACE PROCEDURE DELETE_CUSTOMER(C_EMAIL IN VARCHAR2) 
IS
  DELETE_COUNT INTEGER := 0;
BEGIN
  DELETE FROM CUSTOMER WHERE CUSTOMER_EMAIL = C_EMAIL;
  DELETE_COUNT := SQL%ROWCOUNT; -- 直接获取DELETE语句影响的行数
  
  IF DELETE_COUNT = 0 THEN
    DBMS_OUTPUT.PUT_LINE('无匹配邮箱的客户记录：' || C_EMAIL || '，0条记录被删除。');
  ELSE
    DBMS_OUTPUT.PUT_LINE('已删除' || DELETE_COUNT || '条客户记录。');
  END IF;
END;
/

内容的提问来源于stack exchange，提问作者Moose18