Lancement Package SSIS via VBA

achauvaux Messages postés 1 Date d'inscription mercredi 18 janvier 2006 Statut Membre Dernière intervention 1 février 2006 - 1 févr. 2006 à 10:12
gencer Messages postés 2 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 2 novembre 2007 - 2 nov. 2007 à 14:53
Bonjour,
Je souhaite lancer un package réalisé avec Integration Services (sql server 2005) à partir d'une macro développée en VBA.
J'ai bien sélectionné la référence suivante : DTS Runtime 1.0
J'ai réalisé un test qui vérifie bien l'existence du package sur le serveur mais il n'arrive pas à 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 à tracer les erreurs, je suis obliger de mettre nothing en paramètre .
Merci pour vos éclairages

Alban

1 réponse

gencer Messages postés 2 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 2 novembre 2007
2 nov. 2007 à 14:53
Bonjour,

Remplace le type DTSLib.Package de ton objet Package par DTSLib.IDTSPackage90.

Gençer
Rejoignez-nous