sql 游标

关于游标的详细信息可参见http://www.cnblogs.com/moss_tan_jun/archive/2011/11/26/2263988.html博文

本文只是针对sql2008下函数使用游标的完整方法的展示

USE [hbsp]
GO
/****** Object:  UserDefinedFunction [dbo].[Func_GetTeamLeader]    Script Date: 06/06/2014 09:31:23 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:		<Author,,Name>
-- Create date: <Create Date,,>
-- Description:	<Description,,>
-- =============================================
ALTER  function [dbo].[Func_GetTeamLeader]( @SPT_ID char(13)) returns varchar(50)
as
begin
 

   declare vLeader cursor for select r.name 
from  
       dbo.t_spmember as m, 
       dbo.renyzl as r 
where  
       r.per_num =m.spm_num 
   and m.spt_id=rtrim(@SPT_ID) and m.SPM_ORDER=1 ; 
   
 declare @sResult varchar(50)
 declare @sTmp  varchar(50)
 declare @name varchar(50)
 set @sResult =''
 
  
  -- 打开游标
 OPEN vLeader
 
 -- 遍历游标开始
 FETCH NEXT FROM vLeader INTO @name
 
 WHILE @@FETCH_STATUS = 0
  BEGIN
  
 if (rtrim( @name) is not null)
 begin
       set  @sTmp = rtrim(@name);
       
        if (len(rtrim(@sResult + @sTmp)) <= 2000 )
			begin
			   if (rtrim( @sResult) is not null )
			   BEGIN
			   set @sResult = @sResult + @sTmp+',' ;
			   END
			  end
   end 
    -- 下一个
    FETCH NEXT FROM vLeader INTO @name
  END
 -- 关闭游标
 CLOSE vLeader
 -- 释放游标
 DEALLOCATE vLeader 
 if(rtrim( @sResult) is not null)
  begin
  set @sResult=SUBSTRING(@sResult,1,len(@sResult)-1);
  end
  return @sResult 
end;

 sql2008下游标中的参数必须全部定义参数的长度，否则会查不出结果

oracle 中函数使用游标实例与上面sql的方法相同

create or replace function Func_GetTeamLeader(tnum char ) return char
is 
cursor vLeader(v char) is  
     select r.name 
from  
       t_spmember m, 
       renyzl r 
where  
       r.per_num =m.spm_num 
   and m.spt_id=trim(v) and SPM_ORDER=1 ; 
 
rwf vLeader%rowtype; 
sResult varchar2(2000); 
sTmp    varchar2(2000); 
begin 
  sResult :=''; 
 
  for rwf in vLeader(tnum) loop 
     if rtrim( rwf.name) is not null then 
        sTmp := rtrim(rwf.name); 
        if length(rtrim(sResult || sTmp)) <= 2000 then 
           sResult := sResult || sTmp || ','; 
        else 
           exit; 
        end if; 
     end if; 
  end loop; 
   
  if rtrim( sResult) is not null then 
     sResult:= substr( sResult,1, length(sResult)-1); 
  end if; 
 
 
 return sResult; 
end;