查询Sqlserver数据库死锁的一个存储过程

CREATE procedure sp_who_lock  

as     

begin     

   declare @spid int     

   declare @blk int     

   declare @count int     

   declare @index int     

   declare @lock tinyint     

   set @lock=0     

   create table #temp_who_lock     

 (     

  id int identity(1,1),     

  spid int,     

  blk int     

 )     

 if @@error<>0 return @@error     

 insert into #temp_who_lock(spid,blk)     

 select 0 ,blocked      

 from (select * from master..sysprocesses where blocked>0)a     

 where not exists(select * from  master..sysprocesses where a.blocked =spid and blocked>0)     

 union select spid,blocked from  master..sysprocesses where blocked>0     

 if @@error<>0 return @@error     

 select @count=count(*),@index=1 from #temp_who_lock     

 if @@error<>0 return @@error     

 if @count=0     

 begin     

  select ‘没有阻塞和死锁信息‘     

  return 0     

 end     

 while @index<[email protected]count      

 begin     

  if exists(select 1 from #temp_who_lock a where id>@index and exists(select 1 from #temp_who_lock where id<[email protected]index and a.blk=spid))     

  begin     

   set @lock=1     

   select @spid=spid,@blk=blk from #temp_who_lock where [email protected]index     

   select ‘引起数据库死锁的是: ‘+ CAST(@spid AS VARCHAR(10)) + ‘进程号,其执行的SQL语法如下‘     

   select  @spid, @blk   

   dbcc inputbuffer(@spid)     

   dbcc inputbuffer(@blk)     

  end     

  set @index[email protected]index+1     

 end     

 if @lock=0      

 begin     

  set @index=1     

  while @index<[email protected]count      

  begin     

   select @spid=spid,@blk=blk from #temp_who_lock where [email protected]index     

   if @spid=0     

    select ‘引起阻塞的是:‘+cast(@blk as varchar(10))+ ‘进程号,其执行的SQL语法如下‘     

   else      

    select ‘进程号SPID：‘+ CAST(@spid AS VARCHAR(10))+ ‘被‘ + ‘进程号SPID：‘+ CAST(@blk AS VARCHAR(10)) +‘阻塞,其当前进程执行的SQL语法如下‘     

   dbcc inputbuffer(@spid)   

   dbcc inputbuffer(@blk)     

   set @index[email protected]index+1     

  end     

 end     

 drop table #temp_who_lock     

 return 0     

end           

GO