Lancement Package SSIS via VBA

Question

Bonjour,
Je souhaite lancer un package r&#233;alis&#233; avec Integration Services (sql server 2005) &#224; partir d'une macro d&#233;velopp&#233;e en VBA. 
J'ai bien s&#233;lectionn&#233; la r&#233;f&#233;rence suivante : DTS Runtime 1.0
J'ai r&#233;alis&#233; un test qui v&#233;rifie bien l'existence du package sur le serveur mais il n'arrive pas &#224; le charger (code en rouge) :

Sub Tester_click()
    Dim oPKG As DTSLib.Application
    Dim pkg As DTSLib.Package
    Set oPKG = New DTSLib.Application


    'oPKG.LoadPackage
    Set pkg = New DTSLib.Package


    If oPKG.ExistsOnDtsServer("MSDB\ChargementDonnees", "dvsq05") Then
        Set pkg = oPKG.LoadFromDtsServer("MSDB\ChargementDonnees", "dvsq05", False, Nothing)
    End If
    pkg.Execute
End Sub

Je n'arrive pas non plus &#224; tracer les erreurs,  je suis obliger de mettre nothing en param&#232;tre .
Merci pour vos &#233;clairages

Alban

gencer · Answer

Bonjour,

Remplace le type DTSLib.Package de ton objet Package par DTSLib.IDTSPackage90.

Gençer

Lancement Package SSIS via VBA

1 réponse

Discussions similaires