【分享帖之二】一个存储过程一分钟一键生成所有实体类（适用于FW3.5以上版本）
本帖最后由 fengyarongaa 于 2012-05-02 11:32:53 编辑 刚刚这个存储过程是的输出采用的以下格式

public string aaa
{
  set{ _aaa=value;}
  get{return _aaa;}
} 

修改了一个小细节 , 输出后的格式为

public string aaa { get; set; }

修改后的存储过程：

SET ANSI_NULLS ON
SET QUOTED_IDENTIFIER ON
go
 
ALTER PROC [dbo].[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''  and name <>''sysdiagrams'''
            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'') then ''int''
when a.name=''bigint'' then ''long''
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)+''{get;set;''+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 '数据库不存在！'

[解决办法]
new B()啊
[解决办法]
new B()啊
[解决办法]
继续支持
[解决办法]
new B()啊
[解决办法]
new B()
[解决办法]
new B()啊

------解决方案--------------------

很好，很实用。
[解决办法]
厉害哦～～吼吼～～
[解决办法]
太牛了
[解决办法]


师傅就是 new B(); 啊.
[解决办法]
学不完的东西啊 每门技术都博大精深
[解决办法]
不错,但是我估计不太实用吧....
[解决办法]
看起来似乎是遍历表名生成指定格式字符串，我也写个简单的

SELECT 'public string '+NAME+'
{
  set{ _'+NAME+'=value;}
  get{return _'+NAME+';}
} 
'
FROM SYS.TABLES

把结果全部复制到VS里格式化一下应该就可以了吧，VS不熟。
[解决办法]
人才 啊 支持一个
[解决办法]
支持一下.
[解决办法]
写的还不错,但没多大用处
[解决办法]
呵呵。那我就再贴个存储过程吧。把数据访问层对表进行增删改查操作的数据访问方法和存储过程一起创建好了。

[解决办法]
许久不上来，小丫都三个星了呢。。。
[解决办法]
自动代码生成
[解决办法]
直接用C#，代码或许更简单。