自动生成实体类

方案一:

目前还存在的问题:生成的cs文件,没有进行排版。。。使用Ctrl+E+D后,还是不大美观。。。
如果有看客嫌不够漂亮,可以使用下面的存储过程,当然下面的就没上面那么强大了。可以控制格式,但是不能自动生成文件了。
SQL code
    
    
-- ============================================= -- Author: <shipeng.wang> -- Create date: <2009-09-11> -- Description: <根据表名创建实体类的字段和属性> -- ============================================= create proc [ dbo ] . [ p_Wsp ] @tablename varchar ( 50 ) -- 表名 as declare @sql varchar ( 8000 ) select @sql = isnull ( @sql + char ( 9 ) + ' private ' , ' public class ' + @tablename + char ( 13 ) + ' { ' + char ( 13 ) + char ( 9 ) + ' private ' ) + case when a.name in ( ' image ' , ' uniqueidentifier ' , ' ntext ' , ' varchar ' , ' ntext ' , ' nchar ' , ' nvarchar ' , ' text ' , ' char ' ) then ' string ' when a.name in ( ' tinyint ' , ' smallint ' , ' int ' , ' bigint ' ) then ' int ' when a.name in ( ' datetime ' , ' smalldatetime ' ) then ' DateTime ' when a.name in ( ' float ' , ' decimal ' , ' numeric ' , ' money ' , ' real ' , ' smallmoney ' ) then ' decimal ' when a.name = ' bit ' then ' bool ' else a.name end + ' ' + lower ( ' _ ' + b.name) + ' ; ' + char ( 13 ) + char ( 9 ) + ' public ' + case when a.name in ( ' image ' , ' uniqueidentifier ' , ' ntext ' , ' varchar ' , ' ntext ' , ' nchar ' , ' nvarchar ' , ' text ' , ' char ' ) then ' string ' when a.name in ( ' tinyint ' , ' smallint ' , ' int ' , ' bigint ' ) then ' int ' when a.name in ( ' datetime ' , ' smalldatetime ' ) then ' DateTime ' when a.name in ( ' float ' , ' decimal ' , ' numeric ' , ' money ' , ' real ' , ' smallmoney ' ) then ' decimal ' when a.name = ' bit ' then ' bool ' else a.name end + ' ' + b.name + char ( 13 ) + char ( 9 ) + ' { ' + char ( 13 ) + char ( 9 ) + char ( 9 ) + ' get{return ' + lower ( ' _ ' + b.name) + ' ;} ' + char ( 13 ) + char ( 9 ) + char ( 9 ) + ' set{ ' + lower ( ' _ ' + b.name) + ' =value;} ' + char ( 13 ) + char ( 9 ) + ' } ' + char ( 13 ) from syscolumns b, ( select distinct name,xtype from systypes where status = 0 ) a where a.xtype = b.xtype and b.id = object_id ( @tablename ) set @sql = @sql + ' } ' print @sql go -- 调用: exec [ p_Wsp ] ' admin '
方案二:
-- =============================================
-- Author:        <shipeng.wang>
-- Create date: <2009-09-14>
-- Description:    <根据数据库名创建实体类>
-- =============================================
create proc p_db_wsp
@dbname varchar(50),   --数据库名
@path varchar(100),    --实体类所在目录名,如D:/My/Models
@namespace varchar(50) --实体类命名空间,默认值为Models
as
    --判断数据库是否存在
    if(db_id(@dbname)is not null)
    begin
        if(isnull(@namespace,'')='')
            set @namespace='Models'
        -- 允许配置高级选项
        EXEC sp_configure 'show advanced options', 1
        -- 重新配置
        RECONFIGURE
        -- 启用Ole Automation Procedures 
        EXEC sp_configure 'Ole Automation Procedures', 1
        -- 启用xp_cmdshell,可以向磁盘中写入文件
        EXEC sp_configure 'xp_cmdshell', 1
        -- 重新配置
        RECONFIGURE
        declare @dbsql varchar(1000),@tablename varchar(100)
        set @dbsql='declare wsp cursor for select name from '+@dbname+'..sysobjects where xtype=''u'''
        exec(@dbsql)
        open wsp
        fetch wsp into @tablename--使用游标循环遍历数据库中每个表
        while(@@fetch_status=0)
        begin
            --根据表中字段组合实体类中的字段和属性
            declare @nsql nvarchar(4000),@sql varchar(8000)
            set @nsql='select @s=isnull(@s+char(9)+''private '',''using System;'+char(13)+'using System.Collections.Generic;'
            +char(13)+'using System.Text;'+char(13)+'namespace '+@namespace+char(13)+
            '{'+char(13)+char(9)+'public class '+@tablename+char(13)+'{''+char(13)+char(9)+''private '')+
            case when a.name in(''image'',''uniqueidentifier'',''ntext'',''varchar'',''ntext'',''nchar'',''nvarchar'',''text'',''char'') then ''string''
            when a.name in(''tinyint'',''smallint'',''int'',''bigint'') then ''int''
            when a.name in(''datetime'',''smalldatetime'') then ''DateTime''
            when a.name in(''float'',''decimal'',''numeric'',''money'',''real'',''smallmoney'') then ''decimal''
            when a.name =''bit'' then ''bool''
            else a.name end+'' ''+lower(''_''+b.name)+'';''+char(13)+char(9)+''public ''+
            case when a.name in(''image'',''uniqueidentifier'',''ntext'',''varchar'',''ntext'',''nchar'',''nvarchar'',''text'',''char'') then ''string''
            when a.name in(''tinyint'',''smallint'',''int'',''bigint'') then ''int''
            when a.name in(''datetime'',''smalldatetime'') then ''DateTime''
            when a.name in(''float'',''decimal'',''numeric'',''money'',''real'',''smallmoney'') then ''decimal''
            when a.name =''bit'' then ''bool''
            else a.name end
            +'' ''+b.name+char(13)+char(9)+''{''+char(13)+char(9)+char(9)+''get{return ''+lower(''_''+b.name)+'';}''+
            char(13)+char(9)+char(9)+''set{''+lower(''_''+b.name)+''=value;}''+char(13)+char(9)+''}''+char(13)
            from '+@dbname+'..syscolumns b,
            (select distinct name,xtype from '+@dbname+'..systypes where status=0) a
            where a.xtype=b.xtype and b.id=object_id('''+@dbname+'..'+@tablename+''')'
            exec sp_executesql @nsql,N'@s varchar(8000) output',@sql output
            set @sql=@sql+char(9)+'}'+char(13)+'}'
            --print @sql
            DECLARE @err INT,@fso INT,@fleExists BIT,@file VARCHAR(100)
            SET @file=@path+'/'+@tablename+'.cs'
            EXEC @err=sp_OACreate 'Scripting.FileSystemObject',@fso OUTPUT
            EXEC @err=sp_OAMethod @fso, 'FileExists',@fleExists OUTPUT,@file
            EXEC @err = sp_OADestroy @fso

            IF @fleExists!=0
                exec('exec xp_cmdshell ''del '+@file+'''') --存在则删除
            exec('exec xp_cmdshell ''echo '+@sql+' > '+@file+'''') --将文本写进文件中
            set @sql=null
            fetch wsp into @tablename
        end
        close wsp
        deallocate wsp
        print '生成成功!'
    end
    else
        print '数据库不存在!'
go-- =============================================
-- Author:        <shipeng.wang>
-- Create date: <2009-09-14>
-- Description:    <根据数据库名创建实体类>
-- =============================================
create proc p_db_wsp
@dbname varchar(50),   --数据库名
@path varchar(100),    --实体类所在目录名,如D:/My/Models
@namespace varchar(50) --实体类命名空间,默认值为Models
as
    --判断数据库是否存在
    if(db_id(@dbname)is not null)
    begin
        if(isnull(@namespace,'')='')
            set @namespace='Models'
        -- 允许配置高级选项
        EXEC sp_configure 'show advanced options', 1
        -- 重新配置
        RECONFIGURE
        -- 启用Ole Automation Procedures 
        EXEC sp_configure 'Ole Automation Procedures', 1
        -- 启用xp_cmdshell,可以向磁盘中写入文件
        EXEC sp_configure 'xp_cmdshell', 1
        -- 重新配置
        RECONFIGURE
        declare @dbsql varchar(1000),@tablename varchar(100)
        set @dbsql='declare wsp cursor for select name from '+@dbname+'..sysobjects where xtype=''u'''
        exec(@dbsql)
        open wsp
        fetch wsp into @tablename--使用游标循环遍历数据库中每个表
        while(@@fetch_status=0)
        begin
            --根据表中字段组合实体类中的字段和属性
            declare @nsql nvarchar(4000),@sql varchar(8000)
            set @nsql='select @s=isnull(@s+char(9)+''private '',''using System;'+char(13)+'using System.Collections.Generic;'
            +char(13)+'using System.Text;'+char(13)+'namespace '+@namespace+char(13)+
            '{'+char(13)+char(9)+'public class '+@tablename+char(13)+'{''+char(13)+char(9)+''private '')+
            case when a.name in(''image'',''uniqueidentifier'',''ntext'',''varchar'',''ntext'',''nchar'',''nvarchar'',''text'',''char'') then ''string''
            when a.name in(''tinyint'',''smallint'',''int'',''bigint'') then ''int''
            when a.name in(''datetime'',''smalldatetime'') then ''DateTime''
            when a.name in(''float'',''decimal'',''numeric'',''money'',''real'',''smallmoney'') then ''decimal''
            when a.name =''bit'' then ''bool''
            else a.name end+'' ''+lower(''_''+b.name)+'';''+char(13)+char(9)+''public ''+
            case when a.name in(''image'',''uniqueidentifier'',''ntext'',''varchar'',''ntext'',''nchar'',''nvarchar'',''text'',''char'') then ''string''
            when a.name in(''tinyint'',''smallint'',''int'',''bigint'') then ''int''
            when a.name in(''datetime'',''smalldatetime'') then ''DateTime''
            when a.name in(''float'',''decimal'',''numeric'',''money'',''real'',''smallmoney'') then ''decimal''
            when a.name =''bit'' then ''bool''
            else a.name end
            +'' ''+b.name+char(13)+char(9)+''{''+char(13)+char(9)+char(9)+''get{return ''+lower(''_''+b.name)+'';}''+
            char(13)+char(9)+char(9)+''set{''+lower(''_''+b.name)+''=value;}''+char(13)+char(9)+''}''+char(13)
            from '+@dbname+'..syscolumns b,
            (select distinct name,xtype from '+@dbname+'..systypes where status=0) a
            where a.xtype=b.xtype and b.id=object_id('''+@dbname+'..'+@tablename+''')'
            exec sp_executesql @nsql,N'@s varchar(8000) output',@sql output
            set @sql=@sql+char(9)+'}'+char(13)+'}'
            --print @sql
            DECLARE @err INT,@fso INT,@fleExists BIT,@file VARCHAR(100)
            SET @file=@path+'/'+@tablename+'.cs'
            EXEC @err=sp_OACreate 'Scripting.FileSystemObject',@fso OUTPUT
            EXEC @err=sp_OAMethod @fso, 'FileExists',@fleExists OUTPUT,@file
            EXEC @err = sp_OADestroy @fso

            IF @fleExists!=0
                exec('exec xp_cmdshell ''del '+@file+'''') --存在则删除
            exec('exec xp_cmdshell ''echo '+@sql+' > '+@file+'''') --将文本写进文件中
            set @sql=null
            fetch wsp into @tablename
        end
        close wsp
        deallocate wsp
        print '生成成功!'
    end
    else
        print '数据库不存在!'
go
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值