html 自动生产,用Sql Server自动生产html格式的数据字典

Set nocount on

DECLARE @TableName nvarchar(35)DECLARE Tbls CURSOR

FOR

Select distinctTable_nameFROMINFORMATION_SCHEMA.COLUMNS--put any exclusions here

--where table_name not like ‘%old‘

order byTable_nameOPENTblsPRINT ‘‘

PRINT ‘‘

PRINT ‘

‘

PRINT ‘

数据库字典‘

PRINT ‘

PRINT ‘body{margin:0; font:11pt "arial", "微软雅黑"; cursor:default;}‘

PRINT ‘.tableBox{margin:10px auto; padding:0px; width:1000px; height:auto; background:#FBF5E3; border:1px solid #45360A}‘

PRINT ‘.tableBox h3 {font-size:12pt; height:30px; line-height:30px; background:#45360A; padding:0px 0px 0px 15px; color:#FFF; margin:0px; text-align:left }‘

PRINT ‘.tableBox table {width:1000px; padding:0px }‘

PRINT ‘.tableBox th {height:25px; border-top:1px solid #FFF; border-left:1px solid #FFF; background:#F7EBC8; border-right:1px solid #E0C889; border-bottom:1px solid #E0C889 }‘

PRINT ‘.tableBox td {height:25px; padding-left:10px; border-top:1px solid #FFF; border-left:1px solid #FFF; border-right:1px solid #E0C889; border-bottom:1px solid #E0C889 }‘

PRINT ‘‘

PRINT ‘‘

PRINT ‘

‘

FETCH NEXT FROMTblsINTO @TableName

WHILE @@FETCH_STATUS = 0

BEGIN

PRINT ‘

‘

Select ‘

表‘ + @TableName + ‘:‘+cast(Value as varchar(1000)) + ‘

‘

FROMsys.extended_properties AWHERE A.major_id = OBJECT_ID(@TableName)and name = ‘MS_Description‘ and minor_id = 0

PRINT ‘

--Get the Description of the table

--Characters 1-250

PRINT ‘

‘ --Set up the Column Headers for the Table

PRINT ‘

字段名称‘

PRINT ‘

描述‘

PRINT ‘

主键‘

PRINT ‘

外键‘

PRINT ‘

类型‘

PRINT ‘

长度‘

PRINT ‘

数值精度‘

PRINT ‘

小数位数‘

PRINT ‘

允许为空‘

PRINT ‘

计算列‘

PRINT ‘

标识列‘

PRINT ‘

默认值‘

--Get the Table Data

SELECT ‘

‘,‘‘ + CAST(clmns.name AS VARCHAR(35)) + ‘‘,‘‘ + ISNULL(CAST(exprop.value AS VARCHAR(500)),‘‘) + ‘‘,‘‘ + CAST(ISNULL(idxcol.index_column_id, 0)AS VARCHAR(20)) + ‘‘,‘‘ + CAST(ISNULL(

(SELECT TOP 1 1

FROM sys.foreign_key_columns ASfkclmnWHERE fkclmn.parent_column_id =clmns.column_idAND fkclmn.parent_object_id = clmns.object_id),0) AS VARCHAR(20)) + ‘

‘,‘‘ + CAST(udt.name AS CHAR(15)) + ‘‘,‘‘ + CAST(CAST(CASE WHEN typ.name IN (N‘nchar‘, N‘nvarchar‘) AND clmns.max_length <> -1

THEN clmns.max_length/2

ELSE clmns.max_length END AS INT) AS VARCHAR(20)) + ‘

‘,‘‘ + CAST(CAST(clmns.precision AS INT) AS VARCHAR(20)) + ‘‘,‘‘ + CAST(CAST(clmns.scale AS INT) AS VARCHAR(20)) + ‘‘,‘‘ + CAST(clmns.is_nullable AS VARCHAR(20)) + ‘‘,‘‘ + CAST(clmns.is_computed AS VARCHAR(20)) + ‘‘,‘‘ + CAST(clmns.is_identity AS VARCHAR(20)) + ‘‘,‘‘ + isnull(CAST(cnstr.definition AS VARCHAR(20)),‘‘) + ‘‘

FROM sys.tables AS tbl INNER JOIN sys.all_columns ASclmnsON clmns.object_id=tbl.object_id

LEFT OUTER JOIN sys.indexes ASidxON idx.object_id = clmns.object_id

AND 1 =idx.is_primary_keyLEFT OUTER JOIN sys.index_columns ASidxcolON idxcol.index_id =idx.index_idAND idxcol.column_id =clmns.column_idAND idxcol.object_id = clmns.object_id

AND 0 =idxcol.is_included_columnLEFT OUTER JOIN sys.types ASudtON udt.user_type_id =clmns.user_type_idLEFT OUTER JOIN sys.types AStypON typ.user_type_id =clmns.system_type_idAND typ.user_type_id =typ.system_type_idLEFT JOIN sys.default_constraints AScnstrON cnstr.object_id=clmns.default_object_idLEFT OUTER JOINsys.extended_properties expropON exprop.major_id = clmns.object_id

AND exprop.minor_id =clmns.column_idAND exprop.name = ‘MS_Description‘

WHERE (tbl.name = @TableName andexprop.class= 1) --I don‘t wand to include comments on indexes

ORDER BY clmns.column_id ASC

PRINT ‘

‘

PRINT ‘

‘

FETCH NEXT FROMTblsINTO @TableName

END

PRINT ‘‘

CLOSETblsDEALLOCATE Tbls