游标循环结果集

来源：互联网发布：apache 长度编辑：程序博客网时间：2024/05/16 08:07

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

ALTER proc [dbo].[a]
as
--声明变量
Declare @AssetsId nvarchar(36)
Declare @AppSystemId nvarchar(50)
Declare @Purpose nvarchar(2000)
Declare @IPAddress nvarchar(50)
Declare @DevelopLanguage nvarchar(50)
Declare @ReleaseDate datetime
Declare @Scratchpad nvarchar(50)
Declare @Developer nvarchar(50)
Declare @DevelopTool nvarchar(50)
Declare @OSEdition nvarchar(50)
Declare @DataBase nvarchar(50)
Declare @OnDutyPerson nvarchar(max)
--声明游标
Declare Cur Cursor For
select AssetsUsingID,AffiliatedSystem,Purpose,IPAddress,DevelopLanguage,ReleaseDate,Scratchpad,Developer,DevelopTool,ControlSystemEdition,DataBaseInfo,getUser
from dbo.YWGL_AssetsUsing inner join YWGL_ServerInfo on YWGL_AssetsUsing.AssetsUsingID=YWGL_ServerInfo.AssetsID
where AssetsUsingId
in
(
select AssetsID from dbo.YWGL_ServerInfo
)
--打开游标
open Cur
--取值
Fetch next From Cur Into @AssetsId,@AppSystemId,@Purpose,@IPAddress,@DevelopLanguage,@ReleaseDate,@Scratchpad,@Developer,@DevelopTool,@OSEdition,@DataBase,@OnDutyPerson
--循环
While @@fetch_status=0
begin
   insert into YWGL_AddServerByAppsys(AssetsId,AppSystemId,Purpose,IPAddress,DevelopLanguage,ReleaseDate,Scratchpad,Developer,DevelopTool,OSEdition,[DataBase],OnDutyPerson)
   values(@AssetsId,@AppSystemId,@Purpose,@IPAddress,@DevelopLanguage,@ReleaseDate,@Scratchpad,@Developer,@DevelopTool,@OSEdition,@DataBase,@OnDutyPerson)
   Fetch next From Cur Into @AssetsId,@AppSystemId,@Purpose,@IPAddress,@DevelopLanguage,@ReleaseDate,@Scratchpad,@Developer,@DevelopTool,@OSEdition,@DataBase,@OnDutyPerson
end
Close Cur
Deallocate Cur