几段SQLServer语句和存储过程

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

--列出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

elect count(*)  from #t

DROP TABLE #t

GO

elect count(*)-1  from #tc

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

DROP TABLE #tc

--select * from ##tx

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

et @db=db_name()

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

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

rint @sql

exec(@sql)

GO

DROP TABLE ##tx

GO

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

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

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

--感谢playyuer

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

CREATE   proc spGenInsertSQL (@tablename varchar(256))

as

egin

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

egin

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