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 批量生成 a到z 字母

Delphi 提取时间成分

Delphi 获取当前进程的父进程

Delphi d10.x 安卓app开发中按返回键后程序不退出程序的方法

floattostr 将“浮点型”转换成“字符型”

Delphi winapi: getwindow - 获取与指定窗口具有指定关系的窗口的句柄

Delphi可执行程序参数

Delphi文本文件读写

Delphi paramstr 获取外部参数

firemonkey listbox 的几个事件：拖动，点击，长按

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

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