Solved

Get errors from a DTS Package run in DOS Shell

Posted on 2004-03-30
2
344 Views
Last Modified: 2007-12-19
I'm running the process like this:

Shell("...blah\...DTSExecutor.exe", AppWinStyle.NormalFocus, True)

This is most of the important code that does everything in my DTSExecutor program:

pkg = New DTS.Package
            'Begin - set up events sink
            Dim cpContainer As UCOMIConnectionPointContainer
            cpContainer = CType(pkg, UCOMIConnectionPointContainer)
            Dim cpPoint As UCOMIConnectionPoint
            Dim PES As PackageEventsSink = New PackageEventsSink
            Dim guid As Guid = _
                New Guid("10020605-EB1C-11CF-AE6E-00AA004A34D5")
            cpContainer.FindConnectionPoint(guid, cpPoint)
            Dim intCookie As Integer
            cpPoint.Advise(PES, intCookie)
            'End - set up events sink
         
            pkg.LoadFromSQLServer("OMABC2", "sa", "", _
            DTSSQLServerStorageFlags.DTSSQLStgFlag_Default, _
            "", "", "", "test dts", Nothing)

            Console.WriteLine("PACKAGE EXECUTION BEGINNING")
            pkg.Execute()
            Console.WriteLine("PACKAGE EXECUTION COMPLETED")
            Console.WriteLine("The package contained {0} steps.", _
                pkg.Steps.Count.ToString)
            pkg.UnInitialize()
            pkg = Nothing
            cpPoint.Unadvise(intCookie)
            cpPoint = Nothing
            cpContainer = Nothing
            PES = Nothing

If something simple goes wrong, like it can't find the sheet in in the Excel workbook it's getting its data from, I want to throw the error and for the user to have a fairly accurate idea of where things've gone wrong.

This is being done in a major hurry and has to be finished soon.  I've only had 5 minutes to sit down and look at it and now I'm going home and it'd be nice to know what to do when I arrive tomorrow morning!

If somebody could point out how I get the error, that would be much appreciated!  Just catch and exception as normal?  I don't have time to try it!  Argh!
0
Comment
Question by:_Canidae_
2 Comments
 
LVL 1

Accepted Solution

by:
dapcom earned 50 total points
ID: 10722672
Catching the error of the pkg.execute will give you something basic, like: Package failed because step sss failed.
You can also check the steps object properties to know if other steps status.
maybe this can help you:

        Dim oStep As [Step]
        For Each oStep In oPkg.Steps()
            strResult = strResult & "<p> Step [" & oStep.Name & "] "
            If oStep.ExecutionResult = DTSStepExecResult.DTSStepExecResult_Failure Then
                strResult = strResult & " failed<br>"
                bSuccess = False
            Else
                strResult = strResult & " succeeded<br>"
            End If
            strResult = strResult & "Task """ & _
             oPkg.Tasks.Item(oStep.TaskName).Description & """</p>"
        Next

        If bSuccess Then
            strResult = "<p>Execution of package [" & oPkg.Name & "] succeeded</p>" & strResult
        Else
            strResult = "<p>Execution of package [" & oPkg.Name & "] failed</p>" & strResult
        End If
        Return strResult


If you need more precise infi, you have the log files.

Not an expert, but I try to help...

Dan
0
 
LVL 1

Author Comment

by:_Canidae_
ID: 10722796
Thanks for your help but I managed to sort this out earlier and forgot to delete the question.  You can have the points anyway, for being the only person who offered any help.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In this post we will learn how to connect and configure Android Device (Smartphone etc.) with Android Studio. After that we will run a simple Hello World Program.
Although it can be difficult to imagine, someday your child will have a career of his or her own. He or she will likely start a family, buy a home and start having their own children. So, while being a kid is still extremely important, it’s also …

679 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question