Como fazer para apresentar todas as triggers de um database?

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja como apresentar todas as triggers de um database.

Como fazer para apresentar todas as triggers de um database? 

 

O código abaixo utiliza um par de recordsets aninhados para capturar as triggers da tabela sysobjects e apresenta-las (através do uso da stored procedure sp_helptext):

 

 

    dbname = "databasename" 
 
    ConnStr = "provider=SQLOLEDB;network=DBMSSOCN;" 
    ConnStr = ConnStr & "uid=;pwd=;server=" 
    ConnStr = ConnStr & ";database=" & dbname 
     
    set Conn = CreateObject("ADODB.Connection") 
    Conn.Open ConnStr 
     
    set rs = Conn.Execute("SELECT name FROM sysobjects WHERE xtype='TR'") 
    do while not rs.eof 
        response.write("" & rs(0) & "") 
        set rs2 = Conn.Execute("EXEC sp_helptext '" & rs(0) & "'") 
        do while not rs2.eof 
            Response.Write(rs2(0) & "") 
            rs2.movenext 
        loop 
        rs.movenext 
    loop 
     
    rs.close: set rs = nothing 
    Conn.Close: set Conn = nothing 

 

    dbname = "databasename" 
 
    ConnStr = "provider=SQLOLEDB;network=DBMSSOCN;" 
    ConnStr = ConnStr & "uid=;pwd=;server=" 
    ConnStr = ConnStr & ";database=" & dbname 
     
    set Conn = CreateObject("ADODB.Connection") 
    Conn.Open ConnStr 
     
    set rs = Conn.Execute("SELECT name FROM sysobjects WHERE xtype='TR'") 
    do while not rs.eof 
        response.write("" & rs(0) & "
") 
        set rs2 = Conn.Execute("EXEC sp_helptext '" & rs(0) & "'") 
        do while not rs2.eof 
            Response.Write(rs2(0) & "
") 
            rs2.movenext 
        loop 
        rs.movenext 
    loop 
     
    rs.close: set rs = nothing 
    Conn.Close: set Conn = nothing 
%>

    dbname = "databasename" 
 
    ConnStr = "provider=SQLOLEDB;network=DBMSSOCN;" 
    ConnStr = ConnStr & "uid=;pwd=;server=" 
    ConnStr = ConnStr & ";database=" & dbname 
     
    set Conn = CreateObject("ADODB.Connection") 
    Conn.Open ConnStr 
     
    set rs = Conn.Execute("SELECT name FROM sysobjects WHERE xtype='TR'") 
    do while not rs.eof 
        response.write("" & rs(0) & "
") 
        set rs2 = Conn.Execute("EXEC sp_helptext '" & rs(0) & "'") 
        do while not rs2.eof 
            Response.Write(rs2(0) & "
") 
            rs2.movenext 
        loop 
        rs.movenext 
    loop 
     
    rs.close: set rs = nothing 
    Conn.Close: set Conn = nothing 
%>

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?