SQL语句实现移动数据库文件

看csdn上看到一朋友写了一个《贴个SQL小工具--移动数据库物理文件》
http://topic.csdn.net/u/20080712/16/5c738254-f93e-4623-a666-e7f753dbdb58.html?seed=1415079037
使用是方法是先设置数据库脱机，再移动数据库文件，然后修改数据库的存储文件路径,最后再设置数据库联机。

这里我写的使用的是，先分离数据库，再移动数据库文件，然后再附加新数据库文件的方法：

Use master
Go
If Object_id('sp_MoveDB','P') Is Not null
    Drop Proc sp_MoveDB 
Go
Create Proc sp_MoveDB
(
    @DataBase sysname,
    @PathTo nvarchar(1024)
)
As
Declare 
    @Sql nvarchar(max),
    @AttachDatabase nvarchar(max),
    @Error nvarchar(1024),
    @Dir varchar(1024),
    @ok int

If db_id(@DataBase) Is null
Begin
    Set @Error='错误的数据库名: '+@DataBase
    Raiserror 50001 @Error
    Return 
End

Set @Dir='Dir '+@PathTo
Exec @ok=xp_cmdshell @Dir,No_output
If @ok<>0
Begin
    Set @Error='错误的文件路径: '+@PathTo
    Raiserror 50001 @Error
    Return 
End

Select @DataBase=name From sys.databases Where name=@DataBase 

Print '数据库: '+@DataBase+Char(13)+Char(10)+'正在移动数据库文件,请稍候 '
Select @Sql=Isnull(@Sql+Char(13)+Char(10),'')+'Kill '+Rtrim(spid) From sys.sysprocesses Where  db_name(dbid)=@DataBase
Exec (@Sql)

Set @Sql=null
Select 
    @Sql=Isnull(@Sql+Char(13)+Char(10),'')+'Exec xp_cmdshell ''Move '+physical_name+Char(32)+@PathTo+Right(physical_name,Charindex('\',Reverse(physical_name)))+''',No_output',
    @AttachDatabase=Isnull(@AttachDatabase+',','Create Database '+Quotename(@DataBase)+' On ')+'(Filename='''+@PathTo+Right(physical_name,Charindex('\',Reverse(physical_name)))+''')'
From sys.master_files Where database_id=db_id(@DataBase)
Set @Sql='Exec sp_detach_db '+Quotename(@DataBase)+Char(13)+Char(10)+@Sql+Char(13)+Char(10)+@AttachDatabase+' For Attach'
Exec(@Sql)

If @@Error=0 
    Print '完成移动数据库文件.'
Else
    Print '移动数据库文件失败.' 

test:

Exec sp_MoveDB 'test1' ,'F:\SQL2005\test'

/*
数据库: test1
正在移动数据库文件,请稍候... ...
完成移动数据库文件.

*/

--移动所有的用户数据库文件如下：

Declare @sql nvarchar(max)
Declare @Path nvarchar(1024)
Set @Path='F:\SQL2005\test'

Select @sql=Isnull(@sql+Char(13)+Char(10),'')+'Exec sp_MoveDB '+Quotename(name) +','''+@Path+''''
From sys.databases where name Not in('master','model','msdb','tempdb','ReportServer','ReportServerTempDB')
Exec (@sql)

/*
数据库: deadlocktest
正在移动数据库文件,请稍候 
完成移动数据库文件.
数据库: test1
正在移动数据库文件,请稍候 
完成移动数据库文件.

*/