Oracle存储过程编写求助：随机按区间更新AEROPUERTO表字段

原代码存在的问题 #

• 游标定义错误：TABLE(AEROPUERTO)属于冗余写法，直接查询表即可
• 数据类型不匹配：CONTADOROP是整数类型，CASE分支中却用字符串常量（如'1'）做比较，应使用数字常量
• UPDATE语句语法混乱：CASE分支中嵌入WHERE子句不符合SQL规范，且多WHERE子句的写法错误
• 冗余变量：声明的ID、NOMBRE、ID_PA、ID_PR未被使用，可直接删除
• 低效遍历：无需通过游标逐行更新，单条UPDATE语句即可完成批量操作
• NULL判断错误：ID != NULL应改为ID IS NOT NULL（Oracle中判断非空必须用IS NOT NULL）

修正后的存储过程代码 #

CREATE OR REPLACE PROCEDURE AERO_COR(ID1 IN INT, ID2 IN INT, ID3 IN INT) IS
  CONTADOROP INT;
BEGIN
  -- 生成1-3的随机整数，FLOOR比ROUND更稳定，确保只产生1、2、3
  CONTADOROP := FLOOR(DBMS_RANDOM.VALUE(1, 4));

  -- 批量更新符合条件的记录，无需游标循环
  UPDATE AEROPUERTO
  SET ID_PRINCIPAL = CASE CONTADOROP
                      WHEN 1 THEN ID1
                      WHEN 2 THEN ID2
                      WHEN 3 THEN ID3
                    END
  WHERE 
    CASE CONTADOROP
      WHEN 1 THEN ID BETWEEN 1 AND 7
      WHEN 2 THEN ID BETWEEN 8 AND 14 -- 调整区间避免重复覆盖，若需保留原区间可改回7-14
      WHEN 3 THEN ID BETWEEN 15 AND 20 -- 同理调整，原需求为14-20可改回
    END
    AND ID IS NOT NULL;

  -- 如需自动提交事务可添加COMMIT，建议由调用方控制事务
  -- COMMIT;
END;
/

关键说明 #

1. 随机数生成：使用FLOOR(DBMS_RANDOM.VALUE(1,4))确保稳定生成1、2、3三个整数，避免ROUND可能出现的边界值偏差
2. 批量更新：通过CASE语句关联随机数与目标ID区间，一次性完成符合条件的记录更新，比游标循环效率提升显著
3. 区间划分：调整区间边界避免重复覆盖（如1-7、8-14），若原需求允许区间重叠，可自行修改为原区间范围
4. 代码精简：仅保留必要的随机数变量，删除冗余声明，提升代码可读性

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