SQL存储过程生成Model层,两种风格样式可选

来源:互联网 发布:年度网络安全检查报告 编辑:程序博客网 时间:2024/06/10 22:24

以下存储过程直接在数据库执行,然后按照示例调用即可。提供两种生成的代码样式

样式一:Framework 3.5 以下适用

SET ANSI_NULLS ONSET QUOTED_IDENTIFIER ONgo CREATE PROC [dbo].[p_db_wsp]    @dbname VARCHAR(50) ,   --数据库名    @path VARCHAR(100) ,    --实体类所在目录名,如D:/My/Models    @namespace VARCHAR(50) --实体类命名空间,默认值为ModelsAS --判断数据库是否存在    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)+''{''+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) awhere 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 '数据库不存在!'

输出样式:

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


样式二:Framework 3.5以上版本适用(今天才改的)

SET ANSI_NULLS ONSET QUOTED_IDENTIFIER ONgo ALTER PROC [dbo].[p_db_wsp]    @dbname VARCHAR(50) ,   --数据库名    @path VARCHAR(100) ,    --实体类所在目录名,如D:/My/Models    @namespace VARCHAR(50) --实体类命名空间,默认值为ModelsAS --判断数据库是否存在    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 '数据库不存在!'

输出样式:

public string aaa { get; set; }

调用示例:

exec [dbo].[p_db_wsp]                     '数据库名',                    '如果你的项目在那个文件夹下面就直接写物理路径。例如:D:/My/Models',                    '你需要给定的命名空间名称'

使用:
打开解决方案,点击解决方案资源管理器的“显示所有文件”
看到生成的文件后鼠标右键选中,【包括在项目中】
over.