自动生成数据库字典(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 == 0) 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里面,当然也可以直接从数据库读取出来显示。

时间: 2024-10-29 19:11:42

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

自动生成数据库字典(sql2008) 转自 飘渺の云海

每次做项目的时候都要做数据字典,这种重复的工作实在很是痛苦,于是广找资料,终于完成了自动生成数据库字典的工作,废话少说,上代码. 截取一部分图片: 存储过程: SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -- ============================================= -- Author: <Carbe> -- Create date: <2014-09-19> -- Description: &

SQL Server2008生成数据库字典

1.我们在开发过程中可能会遇到这样的一种情况"当我们进行维护其他人的项目时或者项目的二次开发时可能会对原始的数据表进行分析",这里为大家介绍一种方便快捷生成数据库字典的方式. 我们在数据表中右键,选择属性 在名称这项添加一个"MS_Description",需要注意的是必须在数据表上添加扩展数据,数据库的扩展属性添加上没用,当然有多张数据表的时候我们要对每张数据表添加这样一个值,如果数据表多了我们这样去做是不是觉得很麻烦呢.这里我们想到使用"游标的方式&q

MVC自动生成数据库【Code-FIrst方式】

一般我们写好实体之后,配置好数据上下文对象,还有在配置文件中改好连接字符串之后. 还不能生成数据库,自动生成数据库,有两步关键步骤: 1.   Enable Migrations 2. Update-database 执行玩第二步之后,就自动生成了数据库. ------------------------------------实例---------------------------------------------------------------- //实体: using System

Entityframework Codefirst模式自动生成数据库方式

EF在codefirst模式下能自动生成数据库,那它是如何生成的呢,默认情况下如何生成的呢?先来看看用来生成数据库的DbContext类吧 1 protected DbContext(); 2 protected DbContext(DbCompiledModel model); 3 public DbContext(string nameOrConnectionString); 4 public DbContext(DbConnection existingConnection, bool c

MS SQL生成数据库字典脚本

开发一个项目时都会有一个蛋疼的问题--写数据库需求文档,然后根据这个文档来建数据库,如果后来需求改了,要改数据库还要改文档,有时忙着忙着就忘改了,导致文档是过期的.那么我们自己写个脚本在数据库运行直接生产数据字典,这样只要改数据库就行了.目前在网上搜了下,发现sqlServer只有2005的生成工具,没有08的,存储过程倒是有,不过下载运行一遍到处是坑,写的也太差了,于是对脚本进行改进. -- ============================================= -- Au

完善实体类,由EF自动生成数据库过程中的一些问题

①.配置两表间的关系时WillCascadeOnDelete(false)取消级联删除 public AdminLogConfig() { this.ToTable("T_AdminLogs"); this.Property(a => a.Msg).IsRequired(); this.HasRequired(a => a.AdminUser).WithMany().HasForeignKey(a => a.AdminUserId).WillCascadeOnDele

不用工具生成数据库字典(转)

可能是我太落伍了,今天才知道SQL2005的扩展属性还可以这么用. 数据字典的重要性就不用多说了,再小的开发团队,甚至只有一个人,这个东西也不可或缺,否则日后发生问题那才要命 以前的数据字典都要单独拿出时间来进行整理,但问题多多,最明显的就是和数据结构的变化不同步,而且耗时费力,效果底下 但稍微有点责任心的数据库维护人员,在编辑数据库对象时,都会习惯性的编写备注描述 以前SQL2K时,表备注.字段备注都是直接写在名称后面,SQL会将这些信息保存到系统表:sysproperties 但到了SQL2

hibernate 自动生成数据库表

只要在hibernate.cfg.xml添加这句话,就可以自动生成数据表 <property name="hibernate.hbm2ddl.auto">update</property> update:表示自动根据model对象来更新表结构,启动hibernate时会自动检查数据库,如果缺少表,则自动建表:如果表里缺少列,则自动添加列. 还有其他的参数: create:启动hibernate时,自动删除原来的表,新建所有的表,所以每次启动后的以前数据都会丢失.

Hibernate自动生成数据库表

在hibernate.cfg.xml中添加: 引用 <properties> <property name="hibernate.hbm2ddl.auto" value="create" /> </properties> value的值可选项如下: 引用 validate  加载hibernate时,验证创建数据库表结构 create  每次加载hibernate,重新创建数据库表结构. create-drop  加载hibern