PL/SQL 循环、自定义函数以及存储过程实例详解

FOR I IN 起始值..结束值 LOOP
  循环体；
END LOOP;

DECLARE
  X NUMBER := &请输入数值;
  V_FLAG NUMBER := 0;
BEGIN
  FOR I IN 2..X-1 LOOP
    IF MOD(X, I) = 0 THEN
      V_FLAG := 1;
    END IF;
  END LOOP;
  ...
END;

DECLARE
  V_STR VARCHAR2(100);
BEGIN
  FOR I IN 1..9 LOOP
    V_STR := '';
    FOR J IN 1..I LOOP
      V_STR := V_STR || I || ' * ' || J || ' = ' || I*J || ' ';
    END LOOP;
    DBMS_OUTPUT.PUT_LINE(V_STR);
  END LOOP;
END;

WHILE 条件 LOOP
  循环体；
  变量自增/自减；
END LOOP;

DECLARE
  V_NUM NUMBER := 1;
BEGIN
  WHILE V_NUM <= 100 LOOP
    IF MOD(V_NUM,2) = 1 THEN
      DBMS_OUTPUT.PUT_LINE(V_NUM);
    END IF;
    V_NUM := V_NUM + 1;
  END LOOP;
END;

CREATE OR REPLACE FUNCTION 函数名(入参名 参数类型)
RETURN 返回值类型
IS
  变量声明；
BEGIN
  逻辑体；
  RETURN 结果；
END;

CREATE OR REPLACE FUNCTION ABS_BAK(P_NUM NUMBER)
RETURN NUMBER
IS
BEGIN
  RETURN REPLACE(P_NUM, '-');
END;

CREATE OR REPLACE PROCEDURE 过程名(入参名 参数类型)
IS
  变量声明；
BEGIN
  -- 数据同步、清洗、处理流程
END;

CREATE OR REPLACE PROCEDURE P_001
IS
BEGIN
  DELETE FROM H_SAL_EMP;
  INSERT INTO H_SAL_EMP
  SELECT DEPTNO, MAX(SAL) FROM EMP GROUP BY DEPTNO;
  COMMIT;
END;

BEGIN
  P_001;
END;

CREATE OR REPLACE PROCEDURE P_002(C_JOB VARCHAR2)
IS
BEGIN
  DELETE FROM EMP_J WHERE JOB = C_JOB;
  INSERT INTO EMP_J SELECT * FROM EMP WHERE JOB = C_JOB;
  COMMIT;
END;

-- 实现 ELIM 函数：删除字符串中第一次出现的指定字符
-- 示例：ELIM('A-B-C', '-') → 'AB-C'

-- 创建表 T_NUMBER(ID NUMBER)
-- 创建过程 P_004(X)，将比 X 小的所有奇数插入 T_NUMBER

create TABLE T_NUMBER(
ID NUMBER
);
commit;
CREATE OR REPLACE PROCEDURE p_004(x NUMBER)
      IS
      BEGIN
        -- 清空表格
        DELETE FROM T_NUMBER;
        COMMIT;
        -- 或者使用 TRUNCATE（更高效，但无法回滚）
        -- EXECUTE IMMEDIATE 'TRUNCATE TABLE T_NUMBER';
        for i in 1..x-1 loop
            if mod(i,2)=1
            then
            INSERT INTO T_NUMBER(ID) VALUES (i);
            end if;
        end loop;
        COMMIT;
      END;
-- 调用存储过程
BEGIN
p_004(100);
END;
select * from T_NUMBER;

CREATE OR REPLACE PROCEDURE 过程名(参数)
IS      -- 或 AS，必须存在，不能省略
BEGIN
    -- 过程体
END;
/

-- 使用 IS
CREATE OR REPLACE PROCEDURE p_004(x NUMBER) 
IS
BEGIN
    -- 逻辑
END;
-- 使用 AS（同样正确）
CREATE OR REPLACE PROCEDURE p_004(x NUMBER) 
AS
BEGIN
    -- 逻辑
END;

-- 错误示范（缺少 IS/AS）
CREATE OR REPLACE PROCEDURE p_004(x NUMBER)  -- 编译错误！
BEGIN
    NULL;
END;