Run SSIS package from VB6...Urgent please

Question

Hello everybody,

can anyone help me and tell me how can I run a SSIS package from vb6?

Answer 1

You can call dtexec from the command line:

    Private Sub CmdRun_Click()
       Dim result
       result = Shell("dtexec /f c:\mypackage.dtsx", vbNormalFocus)
    End Sub

Answer 2

Dim dtsApp As Application
Dim package As IDTSPackage90

Set dtsApp = New Application

Set package = dtsApp.LoadPackage("c:\MyPackage.dtsx", True, Nothing)

package.Execute

You need to add a reference to Microsoft DTS Runtime 1.0. It should be located at C:\Program Files\Microsoft SQL Server\90\DTS\Binn\DTS.dll