Execute a SSIS package from VB.NET

See more:

VB

Hi,

For the first time I am trying to execute a SSIS package from VB.Net (VS2013). My SQL Server is 2014. Looking at the sample code, it looks straight forward but I keep getting errors.

The error I get is
e Execute method on the task returned error code 0x80131621 (Mixed mode assembly is built against version 'v2.0.50727' of the runtime and cannot be loaded in the 4.0 runtime without additional configuration information.). The Execute method must succeed, and indicate the result using an "out" parameter. "

It has me puzzled.

What I have tried:

My code is as follows....

Private Sub cmdRun_Click(sender As Object, e As EventArgs) Handles cmdTest2.Click

Dim pkgLocation As String
Dim pkg As New Package
Dim app As New Application
Dim pkgResults As DTSExecResult
Dim local_DtsError As Microsoft.SqlServer.Dts.Runtime.DtsError = Nothing

Dim sLocationAndDtsx As String = "C:\SSIS_Testing\Package.dtsx"

pkgLocation = sLocationAndDtsx

pkg = app.LoadPackage(pkgLocation, Nothing)
pkgResults = pkg.Execute()

Dim sError As String = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure

'MsgBox(pkgResults.ToString())

Dim results As Microsoft.SqlServer.Dts.Runtime.DTSExecResult = pkg.Execute()
'//Check the results for Failure and Success
If results = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure Then
Dim sErr As String = ""

For Each local_DtsError In pkg.Errors
Dim aa As String = local_DtsError.Description.ToString()
sErr = sErr + aa

MsgBox(sErr)

Next
End If

End Sub