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

23decxf

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