id      INT,
value  VARCHAR(10),
PRIMARY KEY(id)
);
INSERT INTO test_main(id, value) VALUES (1, 'ONE');
INSERT INTO test_main(id, value) VALUES (2, 'TWO');
INSERT INTO test_main(id, value) VALUES (3, 'THREE');
简单循环处理
SQL> DECLARE
2    v_id    INT;
3    v_value VARCHAR(10);
4  -- 定义游标.
5    CURSOR c_test_main IS
6      SELECT id, value FROM test_main;
oracle游标的使用7 BEGIN
8    -- 打开游标.
9    OPEN c_test_main;
10    --填充数据.
11    FETCH c_test_main INTO v_id, v_value;
12    --假如检索到了数据，才处理.
13    WHILE c_test_main%FOUND LOOP
14      dbms_output.put_line(v_value);
15      --填充下一条数据.
16      FETCH c_test_main INTO v_id, v_value;
17    END LOOP;
18    -- 关闭游标
19    CLOSE c_test_main;
20 END;
21 /
TWO
THREE
ONE
PL/SQL procedure successfully completed.
简单循环处理2
DECLARE
-- 定义游标.
CURSOR c_test_main IS
SELECT id, value FROM test_main;
-- 保存游标数据的变量
v_main_data  c_test_main%ROWTYPE;
BEGIN
-- 打开游标.
OPEN c_test_main;
LOOP
-
- 填充数据(主表).
FETCH c_test_main INTO v_main_data;
-- 假如没有检索到(主表)数据，结束循环处理
Exit when c_test_main%NOTFOUND;
dbms_output.put_line(TO_CHAR(v_main_data.id)
|| ':' || v_main_data.value );
END LOOP;
-- 关闭游标
CLOSE c_test_main;
END;
/
FOR的使用
使用 FOR 可以避免定义多个变量。
SQL> DECLARE
2    -- 定义游标.
3    CURSOR c_test_main IS
4      SELECT id, value FROMtest_main;
5  BEGIN
6    FOR test_rec IN c_test_main
7    LOOP
8    dbms_output.put_line(test_rec.value);
9    END LOOP;
10  END;
11  /
ONE
TWO
THREE
PL/SQL 过程已成功完成。
用于更新的游标
SQL> DECLARE
2    v_id    INT;
3    v_value VARCHAR(10);
4    --定义游标.
5    CURSOR c_test_main IS
6      SELECT id, value FROM test_main
7      FOR UPDATE;
8  BEGIN
9    --打开游标.
10    OPEN c_test_main;
11    --填充数据.
12    FETCH c_test_main INTO v_id, v_value;
13    --假如检索到了数据，才处理.
14    WHILE c_test_main%FOUND LOOP
15      --输出调试.
16      dbms_output.put_line(v_value);
17      --更新数据.
18      UPDATE
19        test_main
20      SET
21        value = value || '1'
22      WHERE
23        CURRENT OF c_test_main;
24      --填充下一条数据.
25      FETCH c_test_main INTO v_id, v_value;
26    END LOOP;
27    --关闭游标
28    CLOSE c_test_main;
29  END;
30  /
PL/SQL过程已成功完成。
SQL>
SQL> select * from test_main;
ID VALUE
---------- ----------
1 ONE1
2 TWO1
3
THREE1

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。