DECLARE

CURSOR mycur IS                        --申请内存

SELECT * FROM books;                   --查出结果集 要实现对结果逐条处理

myrecord books%ROWTYPE;                --准备变量 用于游标取出的数据的存储 因为取出表中所有的字段采取%ROWTYPE记　　　　　　　　　　　　　　　　　　　　　　　　录的方式

BEGIN
OPEAN mycur;　　　　　　　　　　　　　　　 --打开游标结果集
FETCH mycur INTO myrecord;　　　　　　　 --将结果集存在变量中 取得是SELECT语句结果集的第一条
WHILE mycur%FOUND LOOP                 --如果游标中有数据则执行循环 在LOOP前必须先有FETCH语句 才能判断是否有据
DBMS_OUTPUT.PUT_LINE(myrecord.books_id||','||myrecord.books_name); --输出字段 ||为连接字符串的 像是'+'                                                                       也可以连接不同类型的变量
FETCH mycur INTO myrecord;
END LOOP;
CLOSE mycur;
END;
/

DECLARE

CURSOR cur_para(id varchar2) IS           --参数不需要添加长度 不用写varchar2(10)

SELECT book_name FROM books WHERE book_id=id;

t_name books.book_name%TYPE;              --定义变量t_name指定t_name为books.book_name类型和长度

BEGIN

OPEAN cur_para('');                   --传进参数0001

LOOP

FETCH cur_para INTO t_name;

EXIT WHEN cur_para%NOTFOUND;

DBMS_OUTPUT.PUT_LINE(t_name);

END LOOP;

END;

/

DECLARE

t_name varchar2();

CURSOR mycur IS

SELECT name FROM deptment;

BEGIN

OPEN mysur;

LOOP

FETCH mycur INTO t_name;

EXIT WHEN mycur%NOTFOUND OR mycur%NOTFOUND IS NULL;

DBMS_OUTPUT.PUT_LINE('游标mycur ROWCOUNT:'||mycur%ROWCOUNT);

END LOOP;

CLOSE mycur;

END;

/

DECLARE

CURSOR cur IS

SELECT name FROM deptment FOR UPDATE;

text varchar2(10);

BEGIN

OPEN cur;

FETCH cur INTO text;                  --将游标中的数据取出放入text

WHILE cur%FOUND LOOP

UPDATE deptment SET name=name||'_t' WHERE CURRENT OF cur;   --判断游标当前行 修改当前行数据

FETCH cur INTO text;

END LOOP;

CLOSE cur;

END;

/

BEGIN

FOR cur IN(SELECT name FROM deptmenet) LOOP

DBMS_OUTPUT.PUT_LINE(cur.name);

END LOOP;

END;

/