SQL Server 根据数据库名创建实体类

set ANSI_NULLS ON set QUOTED_IDENTIFIER ON go -- ============================================= -- Author: <shipeng.wang> -- Create date: <2009-09-14> -- Description: <根据数据库名创建实体类> -- ============================================= create 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)+''{''+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 '数据库不存在！'