游标变量用法经典

-- -生成测试表T
if   exists ( select   1   from  sysobjects  where  Name = N ' T '   and   objectProperty (ID,N ' IsUserTable ' ) = 1 )
     drop   table  T
go
select   top   5  ID,Name  into  T  from  sysobjects
go
方法1:

-- 创建输出游标变量的存储过程:

create   procedure  P_cursor(
                             @Roy_Test   cursor   varying  output
                        )
as

set   @Roy_Test = cursor  global  for
select  
    ID,Name
from  
    T
open   @Roy_Test
if   @@error <> 0
     return   1
go

-- 调用的存储过程:

create   procedure   P_cursor2
as
declare   @Roy_Test   cursor ,
         @ID   int , @Name  sysname

exec  P_cursor  @Roy_Test = @Roy_Test  output

IF   Cursor_Status ( ' variable ' ,  ' @Roy_Test ' )  <=   0
     return   1

fetch   next   from   @Roy_Test   into   @ID , @Name
while   @@fetch_status = 0
     begin
         print   ' ID= ' + rtrim ( @ID ) + ' ,Name= ' + @Name
         fetch   next   from   @Roy_Test   into   @ID , @Name
     end
close   @Roy_Test
deallocate   @Roy_Test
go


exec  P_cursor2         -- 查看结果

/**/ /*
ID=1,Name=sysobjects
ID=2,Name=sysindexes
ID=3,Name=syscolumns
ID=4,Name=systypes
ID=6,Name=syscomments

*/

go
create   procedure  P2_cursor( @Flag   bit )
as
declare   @roy_cursor   cursor ,
         @ID   int , @Name  sysname
if   @Flag = 0
     set   @roy_cursor = Roy_cursor
else
     return   1           -- 可以定义其它游标
open   @roy_cursor
fetch   @roy_cursor   into   @ID , @Name
while   @@fetch_status = 0
begin
     print   ' ID= ' + rtrim ( @ID ) + ' ,Name= ' + @Name
     fetch   @roy_cursor   into   @ID , @Name
end
close   @roy_cursor
if   @Flag = 0
     deallocate  Roy_cursor
else
     return   1          -- --可以定义其它游标

go
create   procedure  P2_cursor2
as
exec  ( ' declare Roy_cursor cursor global for 
        select ID,Name from T ' )
declare   @error   int
set   @error = @@error
if   @error = 0
     exec  P2_cursor  @Flag = 0
else
     return   @error  
go

exec  P2_cursor2         -- 查看结果

/**/ /*
ID=1,Name=sysobjects
ID=2,Name=sysindexes
ID=3,Name=syscolumns
ID=4,Name=systypes
ID=6,Name=syscomments

*/


删除测试:
-- drop table T
-- drop proc P_cursor,P_cursor2,P2_cursor,P2_cursor2