根据当月数据库自动生成下个月数据库--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(引用请保留此信息)--*/

/*--调用示例

-- 复制 Po易做图ec 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

上一个：根据当月数据库自动生成下个月数据库--2
下一个：逐记录导出text/ntext字段值为文本文件