复制Set nocount on DECLARE @TableName nvarchar(35) DECLARE Tbls CURSOR FOR Select distinct Table_name FROM INFORMATION_SCHEMA.COLUMNS --put any exclusions here --where table_name not like %old order by Table_name OPEN Tbls PRINT <HTML><body> FETCH NEXT FROM Tbls INTO @TableName WHILE @@FETCH_STATUS = 0 BEGIN PRINT </br> PRINT <tableborder="1"> Print <B> + @TableName + </B> PRINT </br> --Get the Description of the table --Characters 1-250 Select substring(cast(Value as varchar(1000)),据字
1,250) FROM sys.extended_properties A WHERE A.major_id = OBJECT_ID(@TableName) and name = MS_Description and minor_id = 0 --Characters 251-500 Select substring(cast(Value as varchar(1000)),251, 250) FROM sys.extended_properties A WHERE A.major_id = OBJECT_ID(@TableName) and name = MS_Description and minor_id = 0 PRINT <tr><b> --Set up the Column Headers for the Table PRINT <td><b>Column Name</b></td> PRINT <td><b>Description</b></td> PRINT <td><b>InPrimaryKey</b></td> PRINT <td><b>IsForeignKey</b></td> PRINT <td><b>DataType</b></td> PRINT <td><b>Length</b></td> PRINT <td><b>Numeric Precision</b></td> PRINT <td><b>Numeric Scale</b></td> PRINT <td><b>Nullable</b></td> PRINT <td><b>Computed</b></td> PRINT <td><b>Identity</b></td> PRINT <td><b>Default Value</b></td> --Get the Table Data SELECT </b></tr>, <tr>, <td> + CAST(clmns.name AS VARCHAR(35)) + </td>, <td> + substring(ISNULL(CAST(exprop.value AS VARCHAR(255)),),1,250), substring(ISNULL(CAST(exprop.value AS VARCHAR(500)),),251,250) + </td>, <td> + CAST(ISNULL(idxcol.index_column_id, 0)AS VARCHAR(20)) + </td>, <td> + CAST(ISNULL( (SELECT TOP 1 1 FROM sys.foreign_key_columns AS fkclmn WHERE fkclmn.parent_column_id = clmns.column_id AND fkclmn.parent_object_id = clmns.object_id ), 0) AS VARCHAR(20)) + </td>, <td> + CAST(udt.name AS CHAR(15)) + </td> , <td> + CAST(CAST(CASE WHEN typ.name IN (Nnchar, Nnvarchar) AND clmns.max_length <> -1 THEN clmns.max_length/2 ELSE clmns.max_length END AS INT) AS VARCHAR(20)) + </td>, <td> + CAST(CAST(clmns.precision AS INT) AS VARCHAR(20)) + </td>, <td> + CAST(CAST(clmns.scale AS INT) AS VARCHAR(20)) + </td>, <td> + CAST(clmns.is_nullable AS VARCHAR(20)) + </td> , <td> + CAST(clmns.is_computed AS VARCHAR(20)) + </td> , <td> + CAST(clmns.is_identity AS VARCHAR(20)) + </td> , <td> + isnull(CAST(cnstr.definition AS VARCHAR(20)),) + </td> FROM sys.tables AS tbl INNER JOIN sys.all_columns AS clmns ON clmns.object_id=tbl.object_id LEFT OUTER JOIN sys.indexes AS idx ON idx.object_id = clmns.object_id AND 1 =idx.is_primary_key LEFT OUTER JOIN sys.index_columns AS idxcol ON idxidxcol.index_id = idx.index_id AND idxcol.column_id = clmns.column_id AND idxcol.object_id = clmns.object_id AND 0 = idxcol.is_included_column LEFT OUTER JOIN sys.types AS udt ON udt.user_type_id = clmns.user_type_id LEFT OUTER JOIN sys.types AS typ ON typ.user_type_id = clmns.system_type_id AND typtyp.user_type_id = typ.system_type_id LEFT JOIN sys.default_constraints AS cnstr ON cnstr.object_id=clmns.default_object_id LEFT OUTER JOIN sys.extended_properties exprop ON exprop.major_id = clmns.object_id AND exprop.minor_id = clmns.column_id AND exprop.name = MS_Description WHERE (tbl.name = @TableName and exprop.class = 1) --I dont wand to include comments on indexes ORDER BY clmns.column_id ASC PRINT </tr></table> FETCH NEXT FROM Tbls INTO @TableName END PRINT </body></HTML> CLOSE Tbls DEALLOCATE Tbls 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.37.38.39.40.41.42.43.44.45.46.47.48.49.50.51.52.53.54.55.56.57.58.59.60.61.62.63.64.65.66.67.68.69.70.71.72.73.74.75.76.77.78.79.80.81.82.83.84.85.86.87.88.89.90.91.92.93.94.95.96.97.98.99.
(责任编辑：应用开发)
