Delphi 关闭SQL Server 数据库所有使用连接

本文整理自网络，侵删。

 
use master  
go

create proc KillSpByDbName(@dbname varchar(20))
as
begin
declare @sql nvarchar(500),@temp varchar(1000)
declare @spid int
set @sql='declare getspid cursor for  
select spid from sysprocesses where dbid=db_id('''+@dbname+''')'
exec (@sql)
open getspid
fetch next from getspid into @spid
while @@fetch_status<>-1
begin
 set @temp='kill '+rtrim(@spid)
 exec(@temp)
fetch next from getspid into @spid
end
close getspid
deallocate getspid
end

Use master   
 Exec KillSpByDbName '数据库名称'
 

相关阅读 >>

Delphi 配置驱动程序（firedac）

Delphi 正则提取txt中的email 数据

Delphi tlistbox添加横向滚动条

Delphi debug模式下可以但是release模式下报错原因之一

Delphi获得系统当前时间日期和格式化时间

Delphi firedac操作sqlite内存数据库

Delphi 网上获取北京时间firedac 下的 sqlite [3] - 获取数据库的基本信息

Delphi程序运行在64位机器连接odbc的问题

Delphi 2009 之 tstringbuilder 类[6]: equals

Delphi 多线程 开始、暂停、继续、停止

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 关闭SQL Server 数据库所有使用连接