---生成测试表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
发表于 @ 2007年11月09日 00:24:00|评论(loading...)|编辑