SQLSERVER를 방지하는 이벤트 탐색기 추적 소프트웨어

두 가지 방법의 원리는 같다
첫 번째 방법:

 
  
procedure SQLCloseAllTrack; 
  
const 
  
sql = 'declare @TID integer ' + 
  
'declare Trac Cursor For ' + 
  
'SELECT Distinct Traceid FROM :: fn_trace_getinfo(default) ' + 
  
'open Trac ' + 
  
'Fetch Next From Trac into @TID ' + 
  
'while @@fetch_status=0 ' + 
  
'begin ' + 
  
' exec sp_trace_setstatus @TID,0 ' + 
  
' exec sp_trace_setstatus @TID,2 ' + 
  
' Fetch Next From Trac into @TID ' + 
  
'end ' + 
  
'Close Trac ' + 
  
'deallocate Trac'; 
  
begin 
  
//    SQLSERVER    ,      �e    
  
ExecSql(sql); 
  
end; 
  
 
 

두 번째 방법:

 
  
with faq1 do 
  
begin 
  
Close; 
  
sql.Clear; 
  
sql.add('declare @t_count int'); 
  
sql.add('set @t_count=1'); 
  
sql.add('while exists(SELECT * FROM ::::fn_trace_geteventinfo(@t_count))'); 
  
sql.add('begin'); 
  
sql.add('exec sp_trace_setstatus @t_count,0'); 
  
sql.add('set @t_count=@t_count+1'); 
  
sql.add('end'); 
  
try 
  
execSQL; 
  
except; 
  
end; 
  
close;sql.Clear; 
  
end; 
  
end;