自动生成数据库字典(sql2008)

每次做项目的时候都要做数据字典，这种重复的工作实在很是痛苦，于是广找资料，终于完成了自动生成数据库字典的工作，废话少说，上代码。

存储过程：

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

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

-- Author:        <Carbe>

-- Create date: <2014-09-19>

-- Description:    <生成数据库字典>

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

CREATE PROCEDURE [dbo].[CreateDatabaseDictionarie]

AS

BEGIN

    DECLARE @TableName nvarchar(35),@htmls varchar(8000)

    DECLARE @字段名称 VARCHAR(200)

    DECLARE @类型  VARCHAR(200)

    DECLARE @长度 VARCHAR(200)

    DECLARE @数值精度 VARCHAR(200)

    DECLARE @小数位数 VARCHAR(200)

    DECLARE @默认值 VARCHAR(200)

    DECLARE @允许为空 VARCHAR(200)

    DECLARE @外键 VARCHAR(200)

    DECLARE @主键 VARCHAR(200)

    DECLARE @描述 VARCHAR(200)

    SET NOCOUNT ON;

    DECLARE Tbls CURSOR

    FOR

        Select distinct Table_name

        FROM INFORMATION_SCHEMA.COLUMNS

        order by Table_name

    OPEN Tbls

        PRINT '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'

        PRINT '<html xmlns="http://www.w3.org/1999/xhtml">'

        PRINT '    <head>'

        PRINT '        <title>KC管理系统-数据库字典</title>'

        PRINT '        <style type="text/css">'

        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 '        </style>'

        PRINT '    </head>'

        PRINT '    <body>'

    FETCH NEXT FROM Tbls INTO @TableName

    WHILE @@FETCH_STATUS = 0

    BEGIN

        Select @htmls = '        <h3>' + @TableName + ' : '+ CAST(Value as varchar(1000)) + '</h3>'

        FROM sys.extended_properties AS A

        WHERE A.major_id = OBJECT_ID(@TableName)

        and name = 'MS_Description' and minor_id = 0

        PRINT '        <div class="tableBox">'

        PRINT @htmls

        PRINT '            <table cellspacing="0">'

        PRINT '                <tr>'

        PRINT '                    <th>字段名称</th>'

        PRINT '                    <th>类型</th>'

        PRINT '                    <th>长度</th>'

        PRINT '                    <th>数值精度</th>'

        PRINT '                    <th>小数位数</th>'

        PRINT '                    <th>默认值</th>'

        PRINT '                    <th>允许为空</th>'

        PRINT '                    <th>外键</th>'

        PRINT '                    <th>主键</th>'

        PRINT '                    <th>描述</th>'

        PRINT '                </tr>'

        DECLARE TRows CURSOR

        FOR

            SELECT

            '                    <td>' + CAST(clmns.name AS VARCHAR(35)) + '</td>',

            '                    <td>' + CAST(udt.name AS CHAR(15)) + '</td>' ,

            '                    <td>' + 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)) + '</td>',

            '                    <td>' + CAST(CAST(clmns.precision AS INT) AS VARCHAR(20)) + '</td>',

            '                    <td>' + CAST(CAST(clmns.scale AS INT) AS VARCHAR(20)) + '</td>',

            '                    <td>' + isnull(CAST(cnstr.definition 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(exprop.value AS VARCHAR(500)),'') + '</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 idxcol.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 typ.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 don't wand to include comments on indexes

            ORDER BY clmns.column_id ASC

        OPEN TRows

        FETCH NEXT FROM TRows INTO @字段名称,@类型,@长度,@数值精度,@小数位数,@默认值,@允许为空,@外键,@主键,@描述

        WHILE @@FETCH_STATUS = 0

        BEGIN

            PRINT '                <tr>'

            PRINT @字段名称

            PRINT @类型

            PRINT @长度

            PRINT @数值精度

            PRINT @小数位数

            PRINT @默认值

            PRINT @允许为空

            PRINT @外键

            PRINT @主键

            PRINT @描述

            PRINT '                </tr>'

            FETCH NEXT FROM TRows INTO @字段名称,@类型,@长度,@数值精度,@小数位数,@默认值,@允许为空,@外键,@主键,@描述

        END

        CLOSE TRows

        DEALLOCATE TRows

        PRINT '            </table>'

        PRINT '        </div>'

    FETCH NEXT FROM Tbls INTO @TableName

    END

        PRINT '    </body>'

        PRINT '</html>'

    CLOSE Tbls

    DEALLOCATE Tbls

END

当然这些通过PRING出来的代码使用传统的方式是调用不到的，通过查找资料，终于在国外一个XXX网站找到了解决方案。

private static string message = "";

        public static string ExecuteNonQuery(string connextionString, CommandType commandType, string commandText, bool outputMsg)

        {

            if (connextionString == null || connextionString.Length == ) throw new ArgumentNullException("connectionString");

            // Create & open a SqlConnection, and dispose of it after we are done

            using (SqlConnection connection = new SqlConnection(connextionString))

            {

                message = "";

                connection.Open();

                connection.InfoMessage += delegate(object sender, SqlInfoMessageEventArgs e)

                {

                    message += "\n" + e.Message;

                };

                // Call the overload that takes a connection in place of the connection string

                if (connection == null) throw new ArgumentNullException("connection");

                // Create a command and prepare it for execution

                SqlCommand cmd = new SqlCommand(commandText, connection); ;

                cmd.CommandType = commandType;

                // Finally, execute the command

                int retval = cmd.ExecuteNonQuery();

                // Detach the SqlParameters from the command object, so they can be used again

                cmd.Parameters.Clear();

                connection.Close();

                return message;

            }

        }

调用就不用写了嘛。一切就这么简单，生成的是一份标准的htm代码，可直接放到HTML里面，当然也可以直接从数据库读取出来显示。

自动生成数据库字典(sql2008)的更多相关文章

自动生成数据库字典(sql2008) 转自飘渺の云海
每次做项目的时候都要做数据字典,这种重复的工作实在很是痛苦,于是广找资料,终于完成了自动生成数据库字典的工作,废话少说,上代码. 截取一部分图片: 存储过程: SET ANSI_NULLS ON GO ...
MVC Code First 自动生成数据库
1.新建一个MVC项目
MVC自动生成数据库【Code-FIrst方式】
一般我们写好实体之后,配置好数据上下文对象,还有在配置文件中改好连接字符串之后. 还不能生成数据库,自动生成数据库,有两步关键步骤: 1. Enable Migrations 2. Upd ...
EntityFramework系列：SQLite.CodeFirst自动生成数据库
http://www.cnblogs.com/easygame/p/4447457.html 在Code First模式下使用SQLite一直存在不能自动生成数据库的问题,使用SQL Server C ...
【工具篇】利用DBExportDoc V1.0 For MySQL自动生成数据库表结构文档
对于DBA或开发来说,如何规范化你的数据库表结构文档是灰常之重要的一件事情.但是当你的库,你的表排山倒海滴多的时候,你就会很头疼了. 推荐一款工具DBExportDoc V1.0 For MySQL( ...
基于数据库的自动化生成工具，自动生成JavaBean、自动生成数据库文档等(v4.1.2版)
目录: 第1版:http://blog.csdn.net/vipbooks/article/details/51912143 第2版:htt ...
atitit.自动生成数据库结构脚本，或者更换数据库，基于hibernate4
atitit.自动生成数据库结构脚本,或者更换数据库,基于hibernate4 目前近况:: 更换数据库,但是是使用spring集成的.  ...
如何快速生成数据库字典（thinkphp5.0）
本教程将教你快速生成数据库字典示例代码使用PHP框架:Thinkphp5.0 PHP代码: /** * 生成数据库字典html * 可直接另存为再copy到word文档中使用 * * @return ...
MS SQL生成数据库字典脚本
开发一个项目时都会有一个蛋疼的问题——写数据库需求文档,然后根据这个文档来建数据库,如果后来需求改了,要改数据库还要改文档,有时忙着忙着就忘改了,导致文档是过期的.那么我们自己写个脚本在数据库运行直接 ...

随机推荐

log4j.properties
### set log levels ### log4j.rootLogger = INFO, stdout , D , E ### \u8F93\u51FA\u5230\u63A7\u5236\u5 ...
==与equals的区别
==比较两个对象在内存里是不是同一个对象,就是说在内存里的存储位置一致.两个String对象存储的值是一样的,但有可能在内存里存储在不同的地方 . ==比较的是引用而equals方法比较的是内容.pu ...
sphinx全文检索安装配置和使用
公司项目刚刚导入大量产品数据,然后发现网站的产品搜索很卡,原本是原生sql的like来做模糊搜索,数据量20W的时候还可以接受,但是上百万就很卡了,所以需要做优化. 经过考虑,打算采用全文检索 sph ...
Linux FTP的安装与配置
Linux FTP的安装与配置 ftp安装部分,操作步骤如下: 可以使用yum命令直接安装ftp # yum install vsftpd ftp服务的开启与关闭命令: 开启:# service ...
plsql dev
访问v$session,v$sesstat and v$statname视图的权限 grant create session,resource to chf; grantselectonv_$sess ...
关于DYNPRO程序的系统迁移与版本不匹配问题之一
前段时间公司做的一个项目,这两天在将项目程序导入公司,出问题了,搞了半天才发现是系统版本问题,但是还是不知道怎么解决,纠结ING... DYNRPO程序在创建(或是首次运行)的时候会自动生成一个DYN ...
js中Json 对象,Json字符串转换
//tmppcd 是一个对象 //JSON.stringify() 是把对象转换成json 字符串
Java—网络技术
1 TCP Sockets基础 Sockets是一个编程抽象概念,它是网络上与另一个应用程序通信连接的句柄.Sockets编程将用户代码与TCP/IP协议堆栈的底层实现隔离开,允许用户灵活地实现自己 ...
Maven学习链接
别人的资料很多且写的很详细,我这里先收藏,等学习到一定阶段且有时间再整理自己的积累. 1.eclipse安装maven插件方法: http://blog.csdn.net/kittyboy0001/a ...
ajax无刷新删除、复制 THINKPHP
一.jquery 代码: <SCRIPT LANGUAGE=javascript> function delGoods(goodsID) { if(confirm( " ...

自动生成数据库字典(sql2008)

自动生成数据库字典(sql2008)的更多相关文章

随机推荐

热门专题