收藏几段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