![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
|
CODE Imports DTS |
#2
| |||
| |||
|
|
DTSRUN OUTPUT C:\Documents and Settings\jwildes>dtsrun /S USGLE98APPFX100 /U stmt /P |
|
Hello All I have a DTS package that works fine when I run it from Enterprise Manager, but when I call it from VB.NET all of the components fail. The number of the error message is 0 . I have included code that I use to run the DTS package. How do I troubleshoot this? Thanks for any help john CODE Imports DTS Module DataFunctions Public Function refreshStatementData(ByVal progressbar As System.Windows.Forms.ProgressBar, ByVal label As System.Windows.Forms.Label) Dim pkg As New DTS.Package Dim steps As String Dim bStatus As Boolean Dim errSource As String Dim errDescription As String Dim i As Integer Dim oStep As [Step] Dim sMessage As String 'load DTS package from server pkg.LoadFromSQLServer("USGLE98APPFX100", "stmt", "generator", , , , , "Refresh TAM Data", ) pkg.Execute() For Each oStep In pkg.Steps sMessage = oStep.Description If oStep.ExecutionResult = DTSStepExecResult.DTSStepExecResult_Failure Then sMessage = sMessage & " failed." bStatus = False label.Text = sMessage oStep.GetExecutionErrorInfo(i) MsgBox("Refresh Statement Data step " & sMessage & " with error code " & i, MsgBoxStyle.Information, "Refresh Statement Generator Data") Else sMessage = sMessage & " succeeded." label.Text = sMessage progressbar.PerformStep() bStatus = True MsgBox("Refresh Statment Data step " & sMessage, MsgBoxStyle.Information, "Refresh Statement Generator Data") End If Next End Function 'refreshStatementData End Module |
![]() |
| Thread Tools | |
| Display Modes | |
| |