SET QUOTED_IDENTIFIER ON

GO
SET ANSI_NULLS ON
GO
 
ALTER PRocedure sp_who_lock
as
begin
declare @spid int,@bl int,
@intTransactionCountOnEntry int,
        @intRowcount int,
        @intCountProperties int,
        @intCounter int
 
create table #tmp_lock_who (
id int identity(1,1),
spid smallint,
bl smallint)
 
IF @@ERROR<>0 RETURN @@ERROR
 
insert into #tmp_lock_who(spid,bl) select 0 ,blocked
 from (select * from sysprocesses where blocked>0 ) a
 where not exists(select * from (select * from sysprocesses where blocked>0 ) b
 where a.blocked=spid)
 union select spid,blocked from sysprocesses where blocked>0
 
IF @@ERROR<>0 RETURN @@ERROR
 
-- 找到臨時(shí)表的記錄數(shù)
select @intCountProperties = Count(*),@intCounter = 1
from #tmp_lock_who
 
IF @@ERROR<>0 RETURN @@ERROR
 
if @intCountProperties=0
select N'現(xiàn)在沒(méi)有阻塞和死鎖信息' as message
-- 循環(huán)開(kāi)始
while @intCounter <= @intCountProperties
begin
-- 取第一條記錄
select @spid = spid,@bl = bl
from #tmp_lock_who where Id = @intCounter
begin
 if @spid =0
            select N'引起數(shù)據(jù)庫(kù)死鎖的是: '+ CAST(@bl AS VARCHAR(10)) + N'進(jìn)程號(hào),其執(zhí)行的SQL語(yǔ)法如下'
 else
            select N'進(jìn)程號(hào)SPID：'+ CAST(@spid AS VARCHAR(10))+ N'被' + N'進(jìn)程號(hào)SPID：'+ CAST(@bl AS VARCHAR(10)) +N'阻塞,其當(dāng)前進(jìn)程執(zhí)行的SQL語(yǔ)法如下'
 DBCC INPUTBUFFER (@bl )
end
 
-- 循環(huán)指針下移
set @intCounter = @intCounter + 1
end
 
 
drop table #tmp_lock_who
 
return 0
end
 
 
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO