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