使用存储过程生成数据库文档

USE [MeiDongPay]
GO
/****** Object:  StoredProcedure [dbo].[RenderTableDocument]    Script Date: 09/12/2016 10:39:52 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:        <wp>
-- Description:    <读取表/字段注释>
-- =============================================
ALTER PROCEDURE [dbo].[RenderTableDocument]
AS
BEGIN
    -- SET NOCOUNT ON added to prevent extra result sets from
    -- interfering with SELECT statements.
    SET NOCOUNT ON;

    select   b.[value] from sys.columns a left join sys.extended_properties b on a.object_id=b.major_id
        and a.column_id=b.minor_id inner join sysobjects c on a.column_id=c.id
        and a.[name]='列名' and c.[name]='表名'
        SELECT
        表名=case   when   a.colorder=1   then   d.name   else   ''   end,
        表说明=case   when   a.colorder=1   then   isnull(f.value,'')   else   ''   end,
        字段名=a.name,
        标识=case   when   COLUMNPROPERTY(   a.id,a.name,'IsIdentity')=1   then   '√'else   ''   end,
        主键=case   when   exists(SELECT   1   FROM   sysobjects   where   xtype='PK'   and   name   in   (
        SELECT   name   FROM   sysindexes   WHERE   indid   in(
        SELECT   indid   FROM   sysindexkeys   WHERE   id   =   a.id   AND   colid=a.colid
        )))   then   '√'   else   ''   end,
        类型=b.name,
        默认值=isnull(e.text,''),
        字段说明=isnull(g.[value],'')
        FROM   syscolumns   a
        left   join   systypes   b   on   a.xusertype=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   sys.extended_properties   g   on   a.id=g.major_id   and   a.colid=g.minor_id
        left   join   sys.extended_properties   f   on   d.id=f.major_id   and   f.minor_id=0
        where   d.name not like 'aspnet%'         --如果只查询指定表,加上此条件
        order   by   a.id,a.colorder
END