SQL存储过程生成Model层代码,MSSQL代码库,德仔网

代码语言
代码分类
【MSSQL】 SQL存储过程生成Model层
作者:Gordon / 发布于2015/1/26/ 1085
以下存储过程直接在数据库执行，然后按照示例调用即可。提供两种生成的代码样式

	样式一：Framework 3.5 以下适用

	SET ANSI_NULLS ON
	SET QUOTED_IDENTIFIER ON
	go
	CREATE PROC [dbo].[CreateEntityDown35]
	 @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)+''{''+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 '数据库不存在！'

	样式二：Framework 3.5以上版本适用

	
	SET ANSI_NULLS ON
	SET QUOTED_IDENTIFIER ON
	go
	
	Create PROC [dbo].[CreateEntityUp35]
	 @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 '数据库不存在！'
试试其它关键字
　Model层　
同语言下
可能有用的
Gordon贡献的其它代码(28)