CREATE or replace PROCEDURE XXXXX (
    C1 OUT SYS_REFCURSOR)
AS
BEGIN
  open C1 FOR WITH PRJ_REL AS(
		select 。。。
    ),
    dpt_info as (
       select 。。。
    )
    SELECT 。。。
END;

   SQL Server中的游标声名后，一定要显示的释放。若未释放，再次执行时，则会出现“游标XX已经存在”的异常。Open游标后，一定要显示的Close。
 
 
在存储过程中试用Cursor的示例：
 
IF EXISTS (SELECT * FROM SYSOBJECTS WHERE name='my_sp_test' AND TYPE='P') BEGIN
	DROP PROCEDURE my_sp_test;
END;
GO
create procedure my_sp_test @i int, @outstr varchar(100) out as
declare @loginName varchar(100);
declare cur_user cursor for 
	select ESUS_LOGIN_NAME from ES_USER where ESUS_ESCO_ID='100004';
begin try
    open cur_user; -- 开启游标
    fetch next from cur_user into @loginName;
    while @@FETCH_STATUS = 0 begin
		if(@i >=10) begin
			set @outstr = 'login name: '+@loginName;
			RAISERROR (66666, -- Message id.
					   16, -- Severity,
					   1 -- State,
					  ) ;	
		end else if (@i<10) begin
			set @outstr = 'login name: '+@loginName;
		end;
		fetch next from cur_user into @loginName;
    end;
    close cur_user; -- 关闭游标
	return;
end try
begin catch	
	if @@ERROR = 66666 begin
		close cur_user; -- 关闭游标
		deallocate cur_user;-- 释放游标
	end;	
	return;
end catch;
go
 
测试存储过程，如下代码：
 
/* 第一个入参= 12,不会产生异常
 */
DECLARE @OUTSTR_test VARCHAR(100);
exec dbo.my_sp_test 12,@OUTSTR_test out
print @OUTSTR_test ; 
-- @OUTSTR_test = 'login name: ryan'

/* 第一个入参= 8,执行第二次后则会出现下行的异常
 * '名为'cur_user' 的游标已存在。'
 */
DECLARE @OUTSTR_test_1 VARCHAR(100);
exec dbo.my_sp_test 8,@OUTSTR_test_1 out
print @OUTSTR_test_1 ; 
-- @OUTSTR_test_1 = 'login name: vicky'

/* 入参为8的测试语句执行第二次，之所以会出现异常，是因为没有将游标释放就return了。所以有使用游标的存储过程，在return之前一定要显示的释放游标。
 */
 
 相关资源下载地址：
 http://download.csdn.net/detail/chen_yu_ting/4233615

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！


                 
 一、表
学生表
CREATE TABLE `t_student` (
   `stuNum` int(11) NOT NULL auto_increment,
   `stuName` varchar(20) default NULL,
   `birthday` date default NULL,
   PRIMARY KEY  (`stuNum`)
 ) ENGINE=InnoDB DEFAULT CHARSET=utf8

学生分数表
CREATE TABLE `t_stu_score` (
   `id` int(11) NOT NULL auto_increment,
   `stuNum` int(11) default NULL,
   `score` decimal(6,2) default NULL,
   PRIMARY KEY  (`id`),
   KEY `FK_t_stu_score` (`stuNum`),
   CONSTRAINT `FK_t_stu_score` FOREIGN KEY (`stuNum`) REFERENCES `t_student` (`stuNum`)
 ) ENGINE=InnoDB DEFAULT CHARSET=utf8

学生详细表
CREATE TABLE `t_stu_detail` (
   `id` int(11) NOT NULL auto_increment,
   `stuName` varchar(20) default NULL,
   `score` decimal(6,2) default NULL,
   PRIMARY KEY  (`id`)
 ) ENGINE=InnoDB DEFAULT CHARSET=utf8

将t_Student和t_stu_score表中满足一定条件的数据插入到t_stu_detail中。


二、过程
DELIMITER &&
 CREATE PROCEDURE proc_AddStuDetail( IN p_score DECIMAL(6,2) )
  BEGIN
DECLARE vstuNum INT;
DECLARE vstuName VARCHAR(20);
DECLARE vbirthday DATE;
DECLARE vscore DECIMAL(6,2);
DECLARE done INT;

-- 定义游标
DECLARE stuCursor CURSOR
FOR
SELECT stuNum,stuName,birthday FROM t_Student;

-- 定义结束标记
DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = 1;

-- 打开游标
OPEN stuCursor;

-- 循环
stuLoop:LOOP
-- 取游标中的数据
FETCH stuCursor INTO vstuNum,vstuName,vbirthday;
IF done = 1 THEN
LEAVE stuLoop;
END IF;

IF DATE(vbirthday) >= '1990-03-01' THEN
SELECT score INTO vscore FROM t_stu_score WHERE stuNum = vstuNum;
IF vscore >= p_score THEN
INSERT INTO t_stu_detail VALUES(NULL,vstuNum,vscore);
END IF; 
END IF;
END LOOP stuLoop;

-- 关闭游标
CLOSE stuCursor;
  END
&&
DELIMITER ;

三、调用过程
CALL proc_AddStuDetail(86);            



给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow

 

-----存储过程游标使用篇-----

 -- 1.隐式游标 : 隐式Cursor是系统自动打开和关闭Cursor. 

 --SQL%ROWCOUNT 整型 代表DML语句成功执行的数据行数 

 --SQL%FOUND  布尔型  值为TRUE代表插入、删除、更新或单行查询操作成功 

 --SQL%NOTFOUND 布尔型 与SQL%FOUND属性返回值相反 

 --SQL%ISOPEN 布尔型 DML执行过程中为真，结束后为假 

 begin 

   update student set s_name = 'modify' where s_id = 4;  

   if(sql%found) then

     Dbms_Output.put_line('find the rowdata 。。。');

     commit;

     else

     Dbms_Output.put_line('unfind the rowdata 。。。');

     rollback;

   end if;

 end;

 -- 2.显示游标

 declare

   cursor cur is select * from student;

   cursor cur2 is select * from student;

   stuRow student%rowtype;

 begin

   for stu in cur loop

     --stuRow := stu;

     Dbms_Output.put_line(stu.s_name);

   end loop;

   

   open cur2;

   loop

     Fetch cur2 into stuRow; 

     Exit when cur2%notfound;

     Dbms_Output.put_line(stuRow.s_name);

   end loop;

   Dbms_Output.put_line(cur2%ROWCOUNT);

   if(cur2%isopen) then

     Dbms_Output.put_line('-close cur2-');

     close cur2;

   end if;

 end;

 -- 3.动态游标

 declare

   type cursor_type is ref cursor;

   cur cursor_type;

   sqlStr varchar2(40);

   rowData student%rowtype;

 begin

   sqlStr := 'select * from student';

   open cur for sqlStr;

   loop

     fetch cur into rowData;

     if(cur%notfound) then

       exit;

       Dbms_Output.put_line('-not find ...-');

     end if;

     Dbms_Output.put_line('-data-'||rowData.s_name);

   end loop;

   if(cur%isopen) then

    close cur;

   end if;

 end;