----高分求：精典存储过程----

Question

---高分求：各类精典存储过程！---望各位大侠不吝献上！---小弟在此深表感谢！---顺便问一下，小F：本来想多散点分，怎么我这最高只能散100分呢？

Answer 1

-----------指定数据在哪个对象中存在
CREATE PROC sp_ValueSearch
@value sql_variant,  --要搜索的数据
@precision bit=1     --1=仅根据sql_variant中的数据类型查找对应类型的数据列.<>1,查询兼容的所有列,字符数据使用like匹配
AS
SET NOCOUNT ON
IF @value IS NULL RETURN--数据类型处理
SELECT xtype INTO #t FROM systypes
WHERE name=SQL_VARIANT_PROPERTY(@value,N'BaseType')--扩展数据类型及查询处理语句
DECLARE @sql nvarchar(4000),@sql1 nvarchar(4000)
IF @precision=1
    SET @sql=CASE SQL_VARIANT_PROPERTY(@value,N'BaseType')
        WHEN N'text' THEN N' LIKE N''%''+CAST(@value as varchar(8000))+''%'''
        WHEN N'ntext' THEN N' LIKE ''%''+CAST(@value as nvarchar(4000))+''%'''
        ELSE N'=@value' END
ELSE
BEGIN
    SET @sql=CAST(SQL_VARIANT_PROPERTY(@value,N'BaseType') as sysname)
    IF @sql LIKE N'%char' or @sql LIKE N'%text'
    BEGIN
        INSERT #t SELECT xtype FROM systypes
        WHERE name LIKE N'%char' or name LIKE N'%text'
        SELECT @sql=N' LIKE N''%''+CAST(@value as '
            +CASE 
                WHEN LEFT(@sql,1)=N'n' THEN ' nvarchar(4000)'
                ELSE 'varchar(8000)' END
            +N')+N''%'''
    END
    ELSE IF @sql LIKE N'%datetime'
    BEGIN
        INSERT #t SELECT xtype FROM systypes
        WHERE name LIKE N'%datetime'
        SET @sql=N'=@value'    
    END
    ELSE IF @sql LIKE N'%int' 
        OR @sql LIKE N'%money' 
        OR @sql IN(N'real',N'float',N'decimal',N'numeric')
    BEGIN
        INSERT #t SELECT xtype FROM systypes
        WHERE name LIKE N'%int' 
            OR name LIKE N'%money' 
            OR name IN(N'real',N'float',N'decimal')
        SET @sql=N'=@value'    
    END
    ELSE
        SET @sql=N'=@value'
END
--保存结果的临时表
CREATE TABLE #(TableName sysname,FieldName sysname,Type sysname,SQL nvarchar(4000))DECLARE tb CURSOR LOCAL
FOR
SELECT N'SELECT * FROM '
    +QUOTENAME(USER_NAME(o.uid))
    +N'.'+QUOTENAME(o.name)
    +N' WHERE '+QUOTENAME(c.name)
    +@sql,
    N'INSERT # VALUES(N'+QUOTENAME(o.name,N'''')
    +N',N'+QUOTENAME(c.name,N'''')
    +N',N'+QUOTENAME(QUOTENAME(t.name)+CASE 
        WHEN t.name IN (N'decimal',N'numeric')
        THEN N'('+CAST(c.prec as varchar)+N','+CAST(c.scale as varchar)+N')'
        WHEN t.name=N'float'
            OR t.name like N'%char'
            OR t.name like N'%binary'
        THEN N'('+CAST(c.prec as varchar)+N')'
        ELSE N'' END,N'''')
    +N',@sql)'
FROM sysobjects o,syscolumns c,systypes t,#t tt
WHERE o.id=c.id
    AND c.xusertype=t.xusertype
    AND t.xtype=tt.xtype
    AND OBJECTPROPERTY(o.id,N'IsUserTable')=1OPEN tb
FETCH tb INTO @sql,@sql1
WHILE @@FETCH_STATUS=0
BEGIN
    SET @sql1=N'IF EXISTS('+@sql+N') '+@sql1
    EXEC sp_executesql @sql1,N'@value sql_variant,@sql nvarchar(4000)',@value,@sql
    FETCH tb INTO @sql,@sql1
END
CLOSE tb
DEALLOCATE tb
SELECT * FROM #exec sp_ValueSearch '要搜索的值',1 --1或不输入（即默认值1）精确匹配
exec sp_ValueSearch '要搜索的值',0 --不等于1，模糊匹配---------------第二种方法------------------Create   PROC xb_GetTableNameAndColNameForValue
 @value varchar(200)
AS
--求test库中包含值为@value的表和列名--存储表名和列名
IF object_id('tabss') IS NOT NULL 
 exec('drop table tabss')
CREATE TABLE Tabss(id int identity(1,1),tabname varchar(100),colName varchar(100))--查询某表某列是否包含某个值
IF object_id('ysgs') IS NOT NULL
 exec('drop proc ysgs')
exec('create PROC ysgs(@tab varchar(100),@col varchar(100))
AS
exec(''select 1 from ''+@tab+'' where ''+@col+'' like ''''%'+@value+'%'''''')')--将结果存入tabss表中
EXEC master.dbo.xp_execresultset 'SELECT ''exec ysgs ''''''+object_name(id)+'''''',''''''+name+'''''';if @@rowcount>0  insert tabss (colname,tabname)values(''''''+name+'''''',''''''+object_name(id)+'''''')'' FROM syscolumns s WHERE xtype in(SELECT xtype FROM systypes s2 WHERE name in(''char'',''varchar'',''nchar'',''nvarchar''))
AND id in(SELECT id FROM sysobjects s2 WHERE xtype=''u'')',N'test'
GO
/*调用
exec xb_GetTableNameAndColNameForValue 'aa_1'
SELECT * FROM tabss
*/
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/fredrickhu/archive/2009/09/20/4574197.aspx

Answer 2

/*--用存储过程实现的分页程序
 显示指定表、视图、查询结果的第X页
 对于表中主键或标识列的情况,直接从原表取数查询，其它情况使用临时表的方法
 如果视图或查询结果中有主键,不推荐此方法--邹建 2003.09(引用请保留此信息)--*//*--调用示例
 exec p_show '地区资料' exec p_show '地区资料',5,3,'地区编号,地区名称,助记码','地区编号'
--*/if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_show]') 
and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_show]
GOCREATE Proc p_show
@QueryStr nvarchar(4000), --表名、视图名、查询语句
@PageSize int=10,   --每页的大小(行数)
@PageCurrent int=1,   --要显示的页
@FdShow nvarchar (4000)='',--要显示的字段列表,如果查询结果有标识字段,需要指定此值,且不包含标识字段
@FdOrder nvarchar (1000)='' --排序字段列表
as
declare @FdName nvarchar(250) --表中的主键或表、临时表中的标识列名
 ,@Id1 varchar(20),@Id2 varchar(20) --开始和结束的记录号
 ,@Obj_ID int    --对象ID
--表中有复合主键的处理
declare @strfd nvarchar(2000) --复合主键列表
 ,@strjoin nvarchar(4000) --连接字段
 ,@strwhere nvarchar(2000) --查询条件
select @Obj_ID=object_id(@QueryStr)
 ,@FdShow=case isnull(@FdShow,'') when '' then ' *' else ' '+@FdShow end
 ,@FdOrder=case isnull(@FdOrder,'') when '' then '' else ' order by '+@FdOrder end
 ,@QueryStr=case when @Obj_ID is not null then ' '+@QueryStr else ' ('+@QueryStr+') a' end--如果显示第一页，可以直接用top来完成
if @PageCurrent=1 
begin
 select @Id1=cast(@PageSize as varchar(20))
 exec('select top '+@Id1+@FdShow+' from '+@QueryStr+@FdOrder)
 return
end--如果是表,则检查表中是否有标识更或主键
if @Obj_ID is not null and objectproperty(@Obj_ID,'IsTable')=1
begin
 select @Id1=cast(@PageSize as varchar(20))
  ,@Id2=cast((@PageCurrent-1)*@PageSize as varchar(20)) select @FdName=name from syscolumns where id=@Obj_ID and status=0x80
 if @@rowcount=0   --如果表中无标识列,则检查表中是否有主键
 begin
  if not exists(select 1 from sysobjects where parent_obj=@Obj_ID and xtype='PK')
   goto lbusetemp  --如果表中无主键,则用临时表处理  select @FdName=name from syscolumns where id=@Obj_ID and colid in(
   select colid from sysindexkeys where @Obj_ID=id and indid in(
    select indid from sysindexes where @Obj_ID=id and name in(
     select name from sysobjects where xtype='PK' and parent_obj=@Obj_ID
   )))
  if @@rowcount>1  --检查表中的主键是否为复合主键
  begin
   select @strfd='',@strjoin='',@strwhere=''
   select @strfd=@strfd+',['+name+']'
    ,@strjoin=@strjoin+' and a.['+name+']=b.['+name+']'
    ,@strwhere=@strwhere+' and b.['+name+'] is null'
    from syscolumns where id=@Obj_ID and colid in(
    select colid from sysindexkeys where @Obj_ID=id and indid in(
     select indid from sysindexes where @Obj_ID=id and name in(
      select name from sysobjects where xtype='PK' and parent_obj=@Obj_ID
    )))
   select @strfd=substring(@strfd,2,2000)
    ,@strjoin=substring(@strjoin,5,4000)
    ,@strwhere=substring(@strwhere,5,4000)
   goto lbusepk
  end
 end
end
else
 goto lbusetemp/*--使用标识列或主键为单一字段的处理方法--*/
lbuseidentity: 
 exec('select top '+@Id1+@FdShow+' from '+@QueryStr
  +' where '+@FdName+' not in(select top '
  +@Id2+' '+@FdName+' from '+@QueryStr+@FdOrder
  +')'+@FdOrder
  )
 return/*--表中有复合主键的处理方法--*/
lbusepk:  
 exec('select '+@FdShow+' from(select top '+@Id1+' a.* from
  (select top 100 percent * from '+@QueryStr+@FdOrder+') a
  left join (select top '+@Id2+' '+@strfd+' 
  from '+@QueryStr+@FdOrder+') b on '+@strjoin+'
  where '+@strwhere+') a'
  )
 return/*--用临时表处理的方法--*/
lbusetemp:  
select @FdName='[ID_'+cast(newid() as varchar(40))+']'
 ,@Id1=cast(@PageSize*(@PageCurrent-1) as varchar(20))
 ,@Id2=cast(@PageSize*@PageCurrent-1 as varchar(20))exec('select '+@FdName+'=identity(int,0,1),'+@FdShow+'
  into #tb from'+@QueryStr+@FdOrder+'
 select '+@FdShow+' from #tb where '+@FdName+' between '
 +@Id1+' and '+@Id2
 )
GO本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/fredrickhu/archive/2009/09/18/4566261.aspx

Answer 3

create proc sp_name
as
begin
  print '经典'
end

Answer 4

--呵呵：谢谢josy，牛人，--谢谢 小F

Answer 5

--金额阿拉伯数字转换为中文的存储过程   
  Create         Procedure         AtoC   
          @ChangeMoney         Money           
  as   
          Set   Nocount   ON   
          Declare         @String1         char(20)   
          Declare         @String2         char(30)   
          Declare         @String4         Varchar(100)   
          Declare   @String3           Varchar(100)         --从原A值中取出的值   
                  Declare   @i                   int                 --循环变量   
          Declare   @J                   Int                 --A的值乘以100的字符串长度   
                  Declare   @Ch1                   Varchar(100)         --数字的汉语读法   
                  Declare   @Ch2                   Varchar(100)         --数字位的汉字读法   
          Declare   @Zero                   Int                 --用来计算连续有几个零   
          Declare         @ReturnValue         VarChar(100)   
    
          Select   @ReturnValue   =   ''   
          Select           @String1   =   '零壹贰叁肆伍陆柒捌玖'   
          Select         @String2   =   '万仟佰拾亿仟佰拾万仟佰拾元角分'   
    
          Select   @String4   =   Cast(@ChangeMoney*100   as   int)           
    
          select   @J=len(cast((@ChangeMoney*100)   as   int))   
    
          Select   @String2=Right(@String2,@J)   
    
          Select         @i   =   1     
    
          while         @i<=   @j   Begin   
    
                  Select   @String3   =   Substring(@String4,@i,1)   
    
                  if   @String3<>'0'   Begin   
    
                          Select           @Ch1   =   Substring(@String1,   Cast(@String3   as   Int)   +   1,   1)   
                          Select         @Ch2   =   Substring(@String2,   @i,   1)   
                          Select         @Zero   =   0                                         --表示本位不为零   
                  end   
                  else   Begin   
                          If   (@Zero   =   0)   Or   (@i   =   @J   -   9)   Or   (@i   =   @J   -   5)   Or   (@i   =   @J   -   1)   
                                                  Select   @Ch1   =   '零'     
                                          Else   
                                                  Select   @Ch1   =   ''   
    
                                          Select   @Zero   =   @Zero   +   1                           --表示本位为0   
                                                    
                          --如果转换的数值需要扩大，那么需改动以下表达式   I   的值。   
                          Select   Ch2   =   ''   
    
                                  If   @i   =   @J   -   10     Begin   
                                                  Select   @Ch2   =   '亿'   
                                                  Select   @Zero   =   0   
                          end   
                                            
                          If   @i   =   @J   -   6   Begin   
                                                  Select   @Ch2   =   '万'   
                                                  Select   @Zero   =   0   
                          end   
                                            
                          if   @i   =   @J   -   2   Begin   
                                                  Select   @Ch2   =   '元'   
                                                  Select   @Zero   =   0   
                          end   
                                            
                          If   @i   =   @J     
                                                  Select   @Ch2   =   '整'   
                                                    
                  end           
    
                  Select   @ReturnValue   =   @ReturnValue   +   @Ch1   +   @Ch2   
    
                  select   @i   =   @i+1   
          end   
    
          --最后将多余的零去掉   
          If   CharIndex('仟仟',@ReturnValue)   <>   0     
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '仟仟',   '仟')   
    
          If   CharIndex('佰佰',@ReturnValue)   <>   0     
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '佰佰',   '佰')   
    
                  If   CharIndex('零元',@ReturnValue)   <>   0     
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '零元',   '元')   
            
                  If   CharIndex('零万',@ReturnValue)   <>   0     
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '零万',   '万')   
          
                  If   CharIndex('零亿',@ReturnValue)   <>   0   
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '零亿',   '亿')   
            
                  If   CharIndex('零整',@ReturnValue)   <>   0     
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '零整',   '整')   
            
          If   CharIndex('零佰',@ReturnValue)   <>   0     
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '零佰',   '零')   
    
          If   CharIndex('零仟',@ReturnValue)   <>   0     
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '零仟',   '零')   
    
          If   CharIndex('元元',@ReturnValue)   <>   0     
                          Select   @ReturnValue   =   Replace(@ReturnValue,   '元元',   '元')   
            
          Select   @ReturnValue     
  GO       

Answer 6

--存储过程解密程序   
    
  CREATE   PROCEDURE   sp_decrypt_sp   (@objectName   varchar(50))   
  AS   
  begin   
  declare   @objectname1   varchar(100)   
  declare   @sql1   nvarchar(4000),@sql2   nvarchar(4000),@sql3   nvarchar(4000),@sql4   nvarchar(4000),@sql5     
  nvarchar(4000),@sql6   nvarchar(4000),@sql7   nvarchar(4000),@sql8   nvarchar(4000),@sql9   nvarchar   
    
  (4000),@sql10   nvarchar(4000)   
  DECLARE   @OrigSpText1   nvarchar(4000),   @OrigSpText2   nvarchar(4000)   ,   @OrigSpText3   nvarchar(4000),     
    
  @resultsp   nvarchar(4000)   
  declare   @i   int   ,   @t   bigint   
  declare   @m   int,@n   int,@q   int   
  set   @m=(SELECT   max(colid)   FROM   syscomments   WHERE   id   =   object_id(@objectName))   
  set   @n=1   
  --get   encrypted   data   
  create   table   #temp(colid   int,ctext   varbinary(8000))   
  insert   #temp   SELECT   colid,ctext   FROM   syscomments   WHERE   id   =   object_id(@objectName)   
  set   @sql1='ALTER   PROCEDURE   '+   @objectName   +'   WITH   ENCRYPTION   AS   '   
  --set   @sql1='ALTER   PROCEDURE   '+   @objectName   +'   WITH   ENCRYPTION   AS   '   
  set   @q=len(@sql1)   
  set   @sql1=@sql1+REPLICATE('-',4000-@q)   
  select   @sql2=REPLICATE('-',4000),@sql3=REPLICATE('-',4000),@sql4=REPLICATE   
    
  ('-',4000),@sql5=REPLICATE('-',4000),@sql6=REPLICATE('-',4000),@sql7=REPLICATE   
    
  ('-',4000),@sql8=REPLICATE('-',4000),@sql9=REPLICATE('-',4000),@sql10=REPLICATE('-',4000)   
  exec(@sql1+@sql2+@sql3+@sql4+@sql5+@sql6+@sql7+@sql8+@sql9+@sql10)   
  while   @n<=@m   
  begin   
  SET   @OrigSpText1=(SELECT   ctext   FROM   #temp   WHERE   colid=@n)   
  set   @objectname1=@objectname+'_t'   
  SET   @OrigSpText3=(SELECT   ctext   FROM   syscomments   WHERE   id=object_id(@objectName)   and   colid=@n)   
  if   @n=1   
  begin   
  SET   @OrigSpText2='CREATE   PROCEDURE   '+   @objectName   +'   WITH   ENCRYPTION   AS   '--   
  set   @q=4000-len(@OrigSpText2)   
  set   @OrigSpText2=@OrigSpText2+REPLICATE('-',@q)   
  end   
  else   
  begin   
  SET   @OrigSpText2=REPLICATE('-',   4000)   
  end   
  --start   counter   
  SET   @i=1   
  --fill   temporary   variable   
  SET   @resultsp   =   replicate(N'A',   (datalength(@OrigSpText1)   /   2))   
    
  --loop   
  WHILE   @i<=datalength(@OrigSpText1)/2   
  BEGIN   
  --reverse   encryption   (XOR   original+bogus+bogus   encrypted)   
  SET   @resultsp   =   stuff(@resultsp,   @i,   1,   NCHAR(UNICODE(substring(@OrigSpText1,   @i,   1))   ^   
  (UNICODE(substring(@OrigSpText2,   @i,   1))   ^   
  UNICODE(substring(@OrigSpText3,   @i,   1)))))   
  SET   @i=@i+1   
  END   
  --drop   original   SP   
  --EXECUTE   ('drop   PROCEDURE   '+   @objectName)   
  --remove   encryption   
  --preserve   case   
  SET   @resultsp=REPLACE((@resultsp),'WITH   ENCRYPTION',   '')   
  SET   @resultsp=REPLACE((@resultsp),'With   Encryption',   '')   
  SET   @resultsp=REPLACE((@resultsp),'with   encryption',   '')   
  IF   CHARINDEX('WITH   ENCRYPTION',UPPER(@resultsp)   )>0   
  SET   @resultsp=REPLACE(UPPER(@resultsp),'WITH   ENCRYPTION',   '')   
  --replace   Stored   procedure   without   enryption   
  print   @resultsp   
  --execute(   @resultsp)   
  set   @n=@n+1   
  end   
  drop   table   #temp   
  end   
    
  GO