回头想想来这公司有大半年了,用SQL写了不少东西,现在把它发表出来。
我首先感谢CSDN上的网友,在你们的帮助下我才能有韧有余地处理了N多有难度的东西。
特别地感谢邹建,他热心的帮忙和他经典的书。
/*-----------------------------
--批量执行sql脚本
--批量执行文件夹下面的所有sql脚本
--yangys 2005/07/04
*/
create procedure exeSqlFileBatch
(
@returnCode int=0 output, --返回错误数
@returnSucceed int=0 output, --成功执行文件数量
@serverName varchar(1000), --服务器名称
@dataBase varchar(500), --数据库名称
@uid varchar(50), --用户名
@pwd varchar(50), --密码
@filePath varchar(5000) --文件路径
)
with encryption as
declare @strsql varchar(6000)
set @strsql=' dir '+@filePath+'/*.sql'
--创建临时表
create table #tmptb(fileDes varchar(5000))
--将文件夹信息插入临时表
insert into #tmptb
exec master.dbo.xp_cmdshell @strsql
if @@error <>0
begin
set @returnCode=1
return @returnCode
end
--从临时表中提取有用的记录
select dbo.f_split(fileDes,' ')as fileDes
into #tmepUse from #tmptb
where fileDes like '%.sql'
--定义游标
declare fetFileName cursor
for select fileDes from #tmepUse
declare @strFileName varchar(2000)
declare @reExe int
--定义错误信息表
create table #errorTable(errorFileName varchar(1000))
--打开游标并历遍进行取值
open fetFileName
fetch next from fetFileName into @strFileName
while @@FETCH_STATUS = 0
begin
--执行该数据脚本文件
set @strsql='osql -S '+@serverName
+' -U '+@uid +' -P '+@pwd +' -d '+@dataBase +' -i '
+@filePath +'/'+@strFileName
exec @reExe=master.dbo.xp_cmdShell @strsql
--统计执行错误数执行成功数
if @reExe=0
set @returnSucceed=@returnSucceed+1
else
begin
--没办法,xp_cmdShell 总返回零。可能无法获取osql所发生的错误
insert #errorTable values(@strFileName)
set @returnCode=@returnCode+1
end
fetch next from fetFileName into @strFileName
end
close fetFileName
deallocate fetFileName
--返回错误错误信息
select *from #errorTable
return
--测试
declare @returnCode int
declare @returnSucceed int
set @returnCode=0
set @returnSucceed=0
exec exeSqlFileBatch @returnCode output,@returnSucceed output,'prg','yys','sa','','D:/ERP/Database/View'
print @returnCode
print @returnSucceed
--测试前请先创建函数
/*-------------------
--实现split功能 的函数
--yangys 2005/07/04
--只返回最后的一串
*/
create function f_split(
@SourceSql varchar(8000),--字符串
@StrSeprate varchar(10)--分隔符
)
returns varchar(1000)
as
begin
declare @i int
set @SourceSql=rtrim(ltrim(@SourceSql))
set @i=charindex(@StrSeprate,@SourceSql)
while @i>=1
begin
set @SourceSql=substring(@SourceSql,@i+1,len(@SourceSql)-@i)
set @i=charindex(@StrSeprate,@SourceSql)
end
return @SourceSql
end