/*
    數(shù)據(jù)庫(kù)重命名
*/
Create procedure sp_renamedbnew
(
    @dbname varchar(30),
    @newdbname varchar(30)
)
as
    /* 清除數(shù)據(jù)庫(kù)的所有連接 */
    declare @spid int
    declare @sqlforclear nvarchar(100)

    declare curid cursor forward_only read_only for (select spid from master.dbo.sysprocesses where db_name(dbid)=@dbname)
    open curid
    fetch next from curid into @spid
    while @@fetch_status = 0
    begin
        set @sqlforclear = N'kill ' + cast(@spid as nvarchar(10))
        exec sp_executesql @sqlforclear
        --if @@error = 0 print 'clear:' + cast(@spid as nvarchar(10))
        fetch next from curid into @spid
    end
    close curid
    deallocate curid

    /* 重命名 */
    exec sp_renamedb @dbname,@newdbname
GO