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

/*--原帖地址:http://community.csdn.net/Expert/topic/3818/3818559.xml?temp=.9593317--*/

/*--处理要求

在sql数据库里有一个名为Pos200502的Database，每个月会有一个类似于这样名称(Pos200502 Pos200503)的database

我该如何利用sql server的自动作业+一段存储过程，实现以下功能：1.每个月的25号，自动创建一个下一个月的database,database名字定为：PosYYYYMM (YYYYMM是年和月，始终是执行操作时间的下一个月)2.再将本月database的所有结构（包括表、视图、存储过程等）一模一样的复制到下一个月的database中。（注意仅复制结构，不复制任何数据！）--*/

---方法1. 备份+恢复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,并且清空里面的数据

用备份+恢复的方法实现好处是在清理数据时,可以设置条件,保留指定的数据不好的地方是数据多时,速度慢,消耗的资源多

--邹建 2005.03(引用请保留此信息)--*/

/*--调用示例

-- 复制 Posexec sp_ProcCopyDb @#Pos@#--*/create proc sp_ProcCopyDb@DB_Head sysname=N@#@#  --数据库前缀asdeclare @sdbname sysname,@ddbname sysnamedeclare @s Nvarchar(4000),@bkfile Nvarchar(1000),@move Nvarchar(4000)

--复制的源库名及目标库名if @DB_Head is null set @DB_Head=N@#@#

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@#.bak@#

--数据文件移动语句set @s=N@#set @move=N@#@#@#@#select @move=@move+N@#@#,move @#@#+quotename(rtrim(name),N@#@#@#@#@#@#@#@#)+N@#@# to @#@#+quotename(rtrim(case when charindex(N@#+quotename(@sdbname,N@#@#@#@#)+N@#,filename)>0then stuff(filename,charindex(N@#+quotename(@sdbname,N@#@#@#@#)+N@#,filename),@#+cast(len(@sdbname) as nvarchar)+N@#,N@#+quotename(@ddbname,N@#@#@#@#)+N@#)else reverse(stuff(reverse(filename),charindex(@#@#\@#@#,reverse(filename)),0,+N@#@#_@#@#+reverse(N@#+quotename(@ddbname,N@#@#@#@#)+N@#)))end),N@#@#@#@#@#@#@#@#)from @#+quotename(@sdbname)+N@#.dbo.sysfiles@#exec sp_executesql @s,N@#@move Nvarchar(4000) out@#,@move out

--备份源数据库set @s=N@#backup database @#+quotename(@sdbname)+N@# to disk=@bkfile with format@#exec sp_executesql @s,N@#@bkfile Nvarchar(1000)@#,@bkfile

--还原为目标数据库set @s=N@#restore database @#+quotename(@ddbname)+N@# from disk=@bkfile with replace@#+@moveexec sp_executesql @s,N@#@bkfile Nvarchar(1000)@#,@bkfile

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

--清理目标数据库中的所有数据set @s=N@#use @#+quotename(@ddbname)+N@#exec sp_msforeachtable @command1=N@#@#truncate table ?@#@#,@whereand=N@#@# and objectproperty(o.id,N@#@#@#@#TableHasForeignRef@#@#@#@#)=0@#@#exec sp_msforeachtable @command1=N@#@#delete from ?@#@#,@whereand=N@#@# and objectproperty(o.id,N@#@#@#@#TableHasForeignRef@#@#@#@#)=1@#@#@#exec sp_executesql @sgo

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