Запустить пакет SSIS от VB6

Question

Может ли кто-нибудь сказать мне, как я могу запустить пакет SSIS из VB6?

Answer 1

Вы можете вызвать dtexec из командной строки:

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 

Вы должны добавить ссылку на Microsoft DTS Время воспроизведения 1.0. Он должен быть расположен в папке C: \ Program Files \ Microsoft SQL Server \ 90 \ DTS \ Binn \ DTS.dll