Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Отключить пользователя и прервать все его запросы

01.01.2007
declare @pid int, @sql varchar(100)

Declare p cursor  For
 
select spid from  master.dbo.sysprocesses
 
where sid = suser_sid(@User)
 
Open p
Fetch next from p into @pid
While @@Fetch_status=0
 
begin
   
Set @sql='Kill '+cast(@pid as varchar(10))
   
Exec(@sql)
   
Fetch next from p into @pid
 
end
Close p
Deallocate p

Пользователь будет отключен и все его запросы прерваны, но код не мешает ему вновь подсоединиться.

Автор: Vit