如何重复运行DDL脚本无报错？批量处理对象及变量重置方法

一、批量处理15个序列的简便实现 #

1. 用集合存储序列名，循环统一处理 #

把所有需要操作的序列名存入一个集合，通过循环遍历集合执行删除、创建逻辑，避免重复编写15次相同代码：

DECLARE
    TYPE seq_name_list IS TABLE OF VARCHAR2(30);
    -- 这里补充剩下的12个序列名
    seqs seq_name_list := seq_name_list('EMPLOYEE_SEQ', 'DEPARTMENT_SEQ', 'PROJECT_SEQ');
    cnt NUMBER;
BEGIN
    FOR seq_idx IN seqs.FIRST..seqs.LAST LOOP
        -- 每次循环重置*cnt*变量
        cnt := 0;
        SELECT COUNT(*) INTO cnt 
        FROM all_sequences 
        WHERE sequence_name = seqs(seq_idx)
          AND owner = USER; -- 加上所属用户判断，避免误操作其他用户的序列
        
        IF cnt <> 0 THEN
            EXECUTE IMMEDIATE 'DROP SEQUENCE ' || seqs(seq_idx);
        END IF;
        -- 统一创建序列，若部分序列参数不同，可单独分支处理
        EXECUTE IMMEDIATE 'CREATE SEQUENCE ' || seqs(seq_idx) || 
            ' MINVALUE 1 MAXVALUE 9999999999999999999999999999 INCREMENT BY 1 START WITH 1 CACHE 20 NOORDER NOCYCLE NOKEEP NOSCALE GLOBAL';
    END LOOP;
END;
/

2. 简化逻辑：直接捕获删除异常 #

无需提前查询序列是否存在，直接执行删除语句，捕获"序列不存在"的异常即可，代码更简洁：

DECLARE
    TYPE seq_name_list IS TABLE OF VARCHAR2(30);
    -- 补充剩余序列名
    seqs seq_name_list := seq_name_list('EMPLOYEE_SEQ', 'DEPARTMENT_SEQ', 'PROJECT_SEQ');
    seq_not_exist EXCEPTION;
    PRAGMA EXCEPTION_INIT(seq_not_exist, -2289); -- 序列不存在的Oracle错误码为-2289
BEGIN
    FOR seq_idx IN seqs.FIRST..seqs.LAST LOOP
        BEGIN
            EXECUTE IMMEDIATE 'DROP SEQUENCE ' || seqs(seq_idx);
        EXCEPTION
            WHEN seq_not_exist THEN
                NULL; -- 序列不存在时忽略异常，继续执行后续逻辑
        END;
        -- 创建序列
        EXECUTE IMMEDIATE 'CREATE SEQUENCE ' || seqs(seq_idx) || 
            ' MINVALUE 1 MAXVALUE 9999999999999999999999999999 INCREMENT BY 1 START WITH 1 CACHE 20 NOORDER NOCYCLE NOKEEP NOSCALE GLOBAL';
    END LOOP;
END;
/

二、清除cnt变量的方法 #

• 如果是单个PL/SQL块：每次执行块时，cnt变量会被重新声明，本身处于初始状态，无需额外清除。
• 如果在同一个块中循环复用cnt：只需在每次循环开始时手动重置值（比如cnt := 0;），确保每次查询的结果不会被上一次循环的旧值干扰。

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