从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