Exécuter le package SSIS à partir de VB6

Question

Quelqu'un peut-il me dire comment puis-je exécuter un package SSIS à partir de VB6?

Answer 1

Vous pouvez appeler dtexec de la ligne de commande:

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 

Vous devez ajouter une référence à Microsoft DTS Runtime 1.0. Il doit être situé à C: \ Program Files \ Microsoft SQL Server \ 90 \ DTS \ Binn \ DTS.dll