收藏几段SQL Server语句和存储过程

收藏几段SQL  Server语句和存储过程

 

-- ======================================================

--列出SQL SERVER 所有表，字段名，主键，类型，长度，小数位数等信息

--在查询分析器里运行即可,可以生成一个表，导出到EXCEL中

-- ======================================================

SELECT

       (case when a.colorder=1 then d.name else @#@# end)表名,

       a.colorder 字段序号,

       a.name 字段名,

       (case when COLUMNPROPERTY( a.id,a.name,@#IsIdentity@#)=1 then @#√@#else @#@# end) 标识,

       (case when (SELECT count(*)

       FROM sysobjects

       WHERE (name in

                 (SELECT name

                FROM sysindexes

                WHERE (id = a.id) AND (indid in

                          (SELECT indid

                         FROM sysindexkeys

                         WHERE (id = a.id) AND (colid in

                                   (SELECT colid

                                  FROM syscolumns

                                  WHERE (id = a.id) AND (name = a.name))))))) AND

              (xtype = @#PK@#))>0 then @#√@# else @#@# end) 主键,

       b.name 类型,

       a.length 占用字节数,

       COLUMNPROPERTY(a.id,a.name,@#PRECISION@#) as 长度,

       isnull(COLUMNPROPERTY(a.id,a.name,@#Scale@#),0) as 小数位数,

       (case when a.isnullable=1 then @#√@#else @#@# end) 允许空,

       isnull(e.text,@#@#) 默认值,

       isnull(g.[value],@#@#) AS 字段说明   

 

FROM  syscolumns  a left join systypes b

on  a.xtype=b.xusertype

inner join sysobjects d

on a.id=d.id  and  d.xtype=@#U@# and  d.name<>@#dtproperties@#

left join syscomments e

on a.cdefault=e.id

left join sysproperties g

on a.id=g.id AND a.colid = g.smallid 

order by a.id,a.colorder

-------------------------------------------------------------------------------------------------

 

 

 

 

 

 

列出SQL SERVER 所有表、字段定义，类型，长度，一个值等信息

并导出到Excel 中

-- ======================================================

-- Export all user tables definition and one sample value

-- jan-13-2003,Dr.Zhang

-- ======================================================

在查询分析器里运行：

SET ANSI_NULLS OFF

GO

SET NOCOUNT ON

GO

 

SET LANGUAGE @#Simplified Chinese@#

go

DECLARE @tbl nvarchar(200),@fld nvarchar(200),@sql nvarchar(4000),@maxlen int,@sample nvarchar(40)

 

SELECT d.name TableName,a.name FieldName,b.name TypeName,a.length Length,a.isnullable IS_NULL INTO #t

FROM  syscolumns  a,  systypes b,sysobjects d 

WHERE  a.xtype=b.xusertype  and  a.id=d.id  and  d.xtype=@#U@#

 

DECLARE read_cursor CURSOR

FOR SELECT TableName,FieldName FROM #t

 

SELECT TOP 1 @#_TableName                     @# TableName,

            @#FieldName                      @# FieldName,@#TypeName             @# TypeName,

            @#Length@# Length,@#IS_NULL@# IS_NULL,

            @#MaxLenUsed@# AS MaxLenUsed,@#Sample Value          @# Sample,

             @#Comment   @# Comment INTO #tc FROM #t

 

OPEN read_cursor

 

FETCH NEXT FROM read_cursor INTO @tbl,@fld

WHILE (@@fetch_status <> -1)  --- failes

BEGIN

       IF (@@fetch_status <> -2) -- Missing

       BEGIN

              SET @sql=N@#SET @maxlen=(SELECT max(len(cast(@#+@fld+@# as nvarchar))) FROM @#+@tbl+@#)@#

              --PRINT @sql

              EXEC SP_EXECUTESQL @sql,N@#@maxlen int OUTPUT@#,@maxlen OUTPUT

              --print @maxlen

              SET @sql=N@#SET @sample=(SELECT TOP 1 cast(@#+@fld+@# as nvarchar) FROM @#+@tbl+@# WHERE len(cast(@#+@fld+@# as nvarchar))=@#+convert(nvarchar(5),@maxlen)+@#)@#

              EXEC SP_EXECUTESQL @sql,N@#@sample varchar(30) OUTPUT@#,@sample OUTPUT

              --for quickly  

              --SET @sql=N@#SET @sample=convert(varchar(20),(SELECT TOP 1 @#+@fld+@# FROM @#+

                     --@tbl+@# order by 1 desc ))@# 

              PRINT @sql

              print @sample

              print @tbl

              EXEC SP_EXECUTESQL @sql,N@#@sample nvarchar(30) OUTPUT@#,@sample OUTPUT

              INSERT INTO #tc SELECT *,ltrim(ISNULL(@maxlen,0)) as MaxLenUsed,

                     convert(nchar(20),ltrim(ISNULL(@sample,@# @#))) as Sample,@# @# Comment FROM #t where TableName=@tbl and FieldName=@fld

       END

       FETCH NEXT FROM read_cursor INTO @tbl,@fld

END

 

CLOSE read_cursor

DEALLOCATE read_cursor

GO

 

SET ANSI_NULLS ON

GO

SET NOCOUNT OFF

GO

select count(*)  from #t

DROP TABLE #t

GO

 

select count(*)-1  from #tc

 

select * into ##tx from #tc order by tablename

DROP TABLE #tc

 

--select * from ##tx

 

declare @db nvarchar(60),@sql nvarchar(3000)

set @db=db_name()

--请修改用户名和口令 导出到Excel 中

set @sql=@#exec master.dbo.xp_cmdshell @#@#bcp ..dbo.##tx out c:@#+@db+@#_exp.xls -w -C936 -Usa -Psa @#@#@#

print @sql

exec(@sql)

GO

DROP TABLE ##tx

GO

 

 

 

-- ======================================================

--根据表中数据生成insert语句的存储过程

--建立存储过程，执行 spGenInsertSQL 表名

--感谢playyuer

-- ======================================================

CREATE   proc spGenInsertSQL (@tablename varchar(256))

 

as

begin

  declare @sql varchar(8000)

  declare @sqlValues varchar(8000)

  set @sql =@# (@#

  set @sqlValues = @#values (@#@#+@#

  select @sqlValues = @sqlValues + cols + @# + @#@#,@#@# + @# ,@sql = @sql + @#[@# + name + @#],@#

    from

        (select case

                  when xtype in (48,52,56,59,60,62,104,106,108,122,127)                               

                       then @#case when @#+ name +@# is null then @#@#NULL@#@# else @# + @#cast(@#+ name + @# as varchar)@#+@# end@#

                  when xtype in (58,61)

                       then @#case when @#+ name +@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@# + @# + @#cast(@#+ name +@# as varchar)@#+ @#+@#@#@#@#@#@#@#@#@#+@# end@#

                 when xtype in (167)

                       then @#case when @#+ name +@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@# + @# + @#replace(@#+ name+@#,@#@#@#@#@#@#@#@#,@#@#@#@#@#@#@#@#@#@#@#@#)@# + @#+@#@#@#@#@#@#@#@#@#+@# end@#

                  when xtype in (231)

                       then @#case when @#+ name +@# is null then @#@#NULL@#@# else @#+@#@#@#N@#@#@#@#@#@# + @# + @#replace(@#+ name+@#,@#@#@#@#@#@#@#@#,@#@#@#@#@#@#@#@#@#@#@#@#)@# + @#+@#@#@#@#@#@#@#@#@#+@# end@#

                  when xtype in (175)

                       then @#case when @#+ name +@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@# + @# + @#cast(replace(@#+ name+@#,@#@#@#@#@#@#@#@#,@#@#@#@#@#@#@#@#@#@#@#@#) as Char(@# + cast(length as varchar)  + @#))+@#@#@#@#@#@#@#@#@#+@# end@#

                  when xtype in (239)

                       then @#case when @#+ name +@# is null then @#@#NULL@#@# else @#+@#@#@#N@#@#@#@#@#@# + @# + @#cast(replace(@#+ name+@#,@#@#@#@#@#@#@#@#,@#@#@#@#@#@#@#@#@#@#@#@#) as Char(@# + cast(length as varchar)  + @#))+@#@#@#@#@#@#@#@#@#+@# end@#

                  else @#@#@#NULL@#@#@#

                end as Cols,name

           from syscolumns 

          where id = object_id(@tablename)

        ) T

  set @sql =@#select @#@#INSERT INTO [@#+ @tablename + @#]@# + left(@sql,len(@sql)-1)+@#) @# + left(@sqlValues,len(@sqlValues)-4) + @#)@#@# from @#+@tablename

  --print @sql

  exec (@sql)

end

 

GO

 

 

 

-- ======================================================

--根据表中数据生成insert语句的存储过程

--建立存储过程，执行 proc_insert 表名

--感谢Sky_blue

-- ======================================================

 

CREATE proc proc_insert (@tablename varchar(256))

as

begin

       set nocount on

       declare @sqlstr varchar(4000)

       declare @sqlstr1 varchar(4000)

       declare @sqlstr2 varchar(4000)

       select @sqlstr=@#select @#@#insert @#+@tablename

       select @sqlstr1=@#@#

       select @sqlstr2=@# (@#

       select @sqlstr1= @# values ( @#@#+@#

       select @sqlstr1=@sqlstr1+col+@#+@#@#,@#@#+@# ,@sqlstr2=@sqlstr2+name +@#,@# from (select case

--     when a.xtype =173 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(@#+convert(varchar(4),a.length*2+2)+@#),@#+a.name +@#)@#+@# end@#

       when a.xtype =104 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(1),@#+a.name +@#)@#+@# end@#

       when a.xtype =175 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@#+@#+@#replace(@#+a.name+@#,@#@#@#@#@#@#@#@#,@#@#@#@#@#@#@#@#@#@#@#@#)@# + @#+@#@#@#@#@#@#@#@#@#+@# end@#

       when a.xtype =61  then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@#+@#+@#convert(varchar(23),@#+a.name +@#,121)@#+ @#+@#@#@#@#@#@#@#@#@#+@# end@#

       when a.xtype =106 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(@#+convert(varchar(4),a.xprec+2)+@#),@#+a.name +@#)@#+@# end@#

       when a.xtype =62  then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(23),@#+a.name +@#,2)@#+@# end@#

       when a.xtype =56  then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(11),@#+a.name +@#)@#+@# end@#

       when a.xtype =60  then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(22),@#+a.name +@#)@#+@# end@#

       when a.xtype =239 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@#+@#+@#replace(@#+a.name+@#,@#@#@#@#@#@#@#@#,@#@#@#@#@#@#@#@#@#@#@#@#)@# + @#+@#@#@#@#@#@#@#@#@#+@# end@#

       when a.xtype =108 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(@#+convert(varchar(4),a.xprec+2)+@#),@#+a.name +@#)@#+@# end@#

       when a.xtype =231 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@#+@#+@#replace(@#+a.name+@#,@#@#@#@#@#@#@#@#,@#@#@#@#@#@#@#@#@#@#@#@#)@# + @#+@#@#@#@#@#@#@#@#@#+@# end@#

       when a.xtype =59  then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(23),@#+a.name +@#,2)@#+@# end@#

       when a.xtype =58  then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@#+@#+@#convert(varchar(23),@#+a.name +@#,121)@#+ @#+@#@#@#@#@#@#@#@#@#+@# end@#

       when a.xtype =52  then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(12),@#+a.name +@#)@#+@# end@#

       when a.xtype =122 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(22),@#+a.name +@#)@#+@# end@#

       when a.xtype =48  then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(6),@#+a.name +@#)@#+@# end@#

--     when a.xtype =165 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#convert(varchar(@#+convert(varchar(4),a.length*2+2)+@#),@#+a.name +@#)@#+@# end@#

       when a.xtype =167 then @#case when @#+a.name+@# is null then @#@#NULL@#@# else @#+@#@#@#@#@#@#@#@#@#+@#+@#replace(@#+a.name+@#,@#@#@#@#@#@#@#@#,@#@#@#@#@#@#@#@#@#@#@#@#)@# + @#+@#@#@#@#@#@#@#@#@#+@# end@#

       else @#@#@#NULL@#@#@#

       end as col,a.colid,a.name

       from syscolumns a where a.id = object_id(@tablename) and a.xtype <>189 and a.xtype <>34 and a.xtype <>35 and  a.xtype <>36

       )t order by colid

      

       select @sqlstr=@sqlstr+left(@sqlstr2,len(@sqlstr2)-1)+@#) @#+left(@sqlstr1,len(@sqlstr1)-3)+@#)@#@# from @#+@tablename

--  print @sqlstr

       exec( @sqlstr)

       set nocount off

end

GO

原文转自：http://www.ltesting.net