从VB6运行SSIS包

Question

有谁能告诉我如何从VB6运行SSIS包？

Answer 1

Dim dtsApp As Application
Dim package As IDTSPackage90

Set dtsApp = New Application

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

package.Execute

您需要添加对Microsoft DTS Runtime 1.0的引用。它应位于C：\ Program Files \ Microsoft SQL Server \ 90 \ DTS \ Binn \ DTS.dll

Answer 2

您可以从命令行调用dtexec：

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