set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
?
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 '數據庫不存在！'
?

--使用方法

exec [dbo].[p_db_wsp]
??????????????????? 'qqgroup',
??????????????????? 'D:/',
??????????????????? 'cc'

?

?

?

?

總結

以上是生活随笔為你收集整理的由存储过程直接生成类文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。