根据当月数据库自动生成下个月数据库--2

--方法2. 脚本复制use mastergo

if exists (select * from dbo.sysobjects where id = object_id(N@#[dbo].[sp_ProcCopyDb]@#) and OBJECTPROPERTY(id, N@#IsProcedure@#) = 1)drop procedure [dbo].[sp_ProcCopyDb]GO

/*--数据库自动复制

将指定前缘的数据库,复制为一个以当前月份+1为库名的数据库中,并且清除所有的数据例如,数据库前缘为 Pos ,当前日期为 2005-3-27则要求复制数据 Pos200503 为 Pos200504,并且清空里面的数据

用生成源库脚本的方法实现好处是速度快,不需要考虑源数据库的数据但如果要保留源数据库的部分数据,则要专门做数据复制处理

--运行需求需要如下两个文件,可以在sql安装盘 X86\UPGRADE 目录下找到scptxfr.exescptxfr.rll

将其复制到下述目录%systemroot% ystem32\--邹建 2005.03(引用请保留此信息)--*/

/*--调用示例

-- 复制 Posexec sp_ProcCopyDb @#Pos@#--*/

--1.master 数据库中创建一个处理的存储过程,实现当月数据库到下月数据的自动复制

/*--系统需求需要如下两个文件,可以在sql安装盘 X86\UPGRADE 目录下找到scptxfr.exescptxfr.rll

将其复制到下述目录%systemroot% ystem32\--*/

create proc sp_ProcCopyDb@DB_Head sysname=N@#@#  --数据库前缀asdeclare @sdbname sysname,@ddbname sysnamedeclare @s Nvarchar(4000),@bkfile Nvarchar(1000)

--复制的源库名及目标库名select @sdbname=@DB_Head+convert(char(6),getdate(),112),@ddbname=@DB_Head+convert(char(6),dateadd(month,1,getdate()),112)

if db_id(@sdbname) is nullbeginraiserror(N@#源数据库"%s"不存在@#,1,16,@sdbname)returnend

if db_id(@ddbname) is not nullbeginraiserror(N@#目标数据库"%s"已经存在@#,1,16,@ddbname)returnend

--临时备份文件名select top 1 @bkfile=rtrim(reverse(filename)) from master.dbo.sysfiles where name=N@#master@#select @bkfile=stuff(@bkfile,1,charindex(@#\@#,@bkfile),N@#@#),@bkfile=reverse(stuff(@bkfile,1,charindex(@#\@#,@bkfile),N@#@#))+N@#\BACKUP\@#+cast(newid() as nvarchar(36))+N@#.sql@#

--脚本生成处理set @s=N@#scptxfr /s @#+quotename(cast(serverproperty(N@#servername@#) as nvarchar),N@#"@#)+N@# /d @#+quotename(@sdbname,N@#"@#)+N@# /I@#  --使用windows身份验证,如果使用sql身份验证,则愀为 +N@# /P "sa密码"@#,固定使用sa用户+N@# /f @#+quotename(@bkfile,N@#"@#)+N@# /Y /q /T /C /Y@#exec master..xp_cmdshell @s,no_output

--创建目标数据库set @s=N@#create database @#+quotename(@ddbname)exec sp_executesql @s

--使用源库脚本,为目标数据库创建对象set @s=N@#osql /S@#+quotename(cast(serverproperty(N@#servername@#) as nvarchar),N@#"@#)+N@# /d @#+quotename(@ddbname,N@#"@#)+N@# /E@#  --使用windows身份验证,如果使用sql身份验证,则愀为 +N@# /U"sa" /P"sa密码"@#+N@# /i@#+quotename(@bkfile,N@#"@#)exec master..xp_cmdshell @s,no_output

--删除临时备份文件set @s=@#del "@#+@bkfile+@#"@#exec master..xp_cmdshell @s,no_outputgo

原文转自：http://www.ltesting.net