注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

一车,一房,一个温暖家

10万左右的车,80平方的房子,这是我奋斗的暖暖的家

 
 
 

日志

 
 

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

2015-06-22 10:31:14|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

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

样式一: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 '数据库不存在!'


  评论这张
 
阅读(7)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018