Executando um DTS através de sua aplicação ASP.Net

Fala, galera!!

Segue mais um código de grande utilidade para quem precisa trabalhar com DTS em suas aplicações.
O .net fornece classes para que você possa executar um DTS de dentro de sua aplicação.

Veja:


        Dim objDTS As New Global.DTS.Package
        Dim objStep As Global.DTS.Step
        Dim sSrc, sDsc As String
        Dim dErr As Double
      
        Try
            Dim obj As Object
            obj = Global.DTS.DTSSQLServerStorageFlags.DTSSQLStgFlag_Default
            objDTS.LoadFromSQLServer(Servidor, Usuario, Senha, 0, , , , NomeDTS)

            For Each objStep In objDTS.Steps
                objStep.ExecuteInMainThread = True
            Next

            objDTS.Execute()

            For Each objStep In objDTS.Steps
                If objStep.ExecutionResult = Global.DTS.DTSStepExecResult.DTSStepExecResult_Failure Then
                    objStep.GetExecutionErrorInfo(dErr, sSrc, sDsc)
                    If dErr > 0 AndAlso sSrc.Length > 0 Then
                        Response.Write(dErr & ": " & sSrc & " - " & sDsc & "<br>")
                    End If
                End If
            Next

Um abraço e até a próxima!!