How to execute a ssis package with varibles using vb.net

See more:

VB

SSIS

HI all i am newbe to ssis and i got a requirement where i need to transfer data from ser to other so i created a ssis package using sql server import export wizard and saved the .dtsx file on c:\ i browsed abt using it in vb and i found some code i used that code and ran it for a test and i am getting the success message but when i query my table i have no luck i tested my package in BIDS and it is working fine there, i am not sure if i am doing something wrong in my vb code, below is the code i am using for executing a package.i added this dll as refrence to my solution Microsoft.SqlServer.ManagedDTS.dll.
can some one please help me out giving some advises and sources to get thru this problem. Thanks in advance

Imports Microsoft.SqlServer.Dts.Runtime


Public Class ssistest

    Private Sub ssistest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pkgLocation As String
        Dim pkg As New Microsoft.SqlServer.Dts.Runtime.Package
        Dim app As New Microsoft.SqlServer.Dts.Runtime.Application
        Dim eventListener As New EventListener()
        Dim pkgResults As Microsoft.SqlServer.Dts.Runtime.DTSExecResult
     
        pkgLocation = "C:\name.dtsx"
        pkg.Variables.Add("symbol", False, "User", "MPC        ")
        pkg.Variables.Add("time1", False, "User", Convert.ToDateTime("2011-07-07 03:31:10.000"))
        pkg.Variables.Add("time2", False, "User", Convert.ToDateTime("2011-07-08 03:31:42.000"))

        pkg = app.LoadPackage(pkgLocation, eventListener)


        pkgResults = pkg.Execute(Nothing, Nothing, eventListener, Nothing, Nothing)
        MessageBox.Show(pkgResults.ToString())

        Me.Close()

    End Sub
End Class
Class EventListener
    Inherits Microsoft.SqlServer.Dts.Runtime.DefaultEvents

    Public Overrides Sub OnInformation(ByVal source As Microsoft.SqlServer.Dts.Runtime.DtsObject, _
         ByVal errorCode As Integer, ByVal subComponent As String, ByVal description As String, _
         ByVal helpFile As String, ByVal helpContext As Integer, _
         ByVal idofInterfaceWithError As String, ByRef fireAgain As Boolean)

        ' Add application–specific diagnostics here.
        MessageBox.Show(String.Format("Error in {0}/{1} : {2}", source, subComponent, description))


    End Sub
    Public Overrides Sub OnProgress(ByVal taskHost As Microsoft.SqlServer.Dts.Runtime.TaskHost, ByVal progressDescription As String, ByVal percentComplete As Integer, ByVal progressCountLow As Integer, ByVal progressCountHigh As Integer, ByVal subComponent As String, ByRef fireAgain As Boolean)

        MessageBox.Show(String.Format("Error in {0}/{1} : {2}", progressDescription, percentComplete, progressCountLow))
    End Sub


    Public Overrides Function OnError(ByVal source As Microsoft.SqlServer.Dts.Runtime.DtsObject, _
      ByVal errorCode As Integer, ByVal subComponent As String, ByVal description As String, _
      ByVal helpFile As String, ByVal helpContext As Integer, _
      ByVal idofInterfaceWithError As String) As Boolean

        ' Add application–specific diagnostics here.
        MessageBox.Show(String.Format("Error in {0}/{1} : {2}", source, subComponent, description))
        Return False

    End Function

End Class