上一篇：自动安装SQL Server数据...

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

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

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

↓相关文章：