Comment faire : Obtenir une liste de lots DTS

Traductions disponibles Traductions disponibles
Numéro d'article: 241249 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Résumé

Vous pouvez stocker le lot DTS (Data Transformation Services) dans un des trois emplacements. Les exemples de code suivants décrivent les trois méthodes pour obtenir une liste des packages pour chaque méthode de stockage.

SQL Server

Les lots que vous stockez sur SQL Server sont enregistrés dans la base de données msdb. Exécutez la requête suivante pour obtenir la liste :
exec msdb..sp_enum_dtspackages
				

Référentiel

Pour les packages que vous stockez dans le référentiel, vous devez énumérer le référentiel par le biais de l'objet de référentiel. Vous devez d'abord enregistrer ceci en ajoutant une référence à l'objet de Référentiel Microsoft. Utilisez le fragment de code suivant pour obtenir la liste des packages :
Option Explicit
Private Sub EnumPackages_Click()
    Dim oRep As New Repository
    Dim oITF As InterfaceDef
    Dim oCol As ObjectCol
    Dim oObj As RepositoryObject
    oRep.Open "Driver={SQL Server};Server=(local);Trusted_Connection=yes;Database=msdb"
    
    ' OBJID of IDtsTransformationPackage interface
    Set oITF = oRep.Object("{{EBB9995C-BA15-11d1-901B-0000F87A3B33},000032CA}")
    Set oCol = oITF.ObjectInstances
    For Each oObj In oCol
        Debug.Print oObj.Name
    Next
End Sub
				
InMicrosoft Visual Basic .NET, le code requiert quelques petites modifications :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim oRep As New RepositoryTypeLib.Repository
    Dim oITF As RepositoryTypeLib.InterfaceDef
    Dim oCol As RepositoryTypeLib.ObjectCol
    Dim oObj As RepositoryTypeLib.RepositoryObject
    oRep.Open "Driver={SQL Server};Server=(local);Trusted_Connection=yes;Database=msdb"

     ' OBJID of IDtsTransformationPackage interface
    oITF = oRep.Object("{{EBB9995C-BA15-11d1-901B-0000F87A3B33},000032CA}")
    oCol = oITF.ObjectInstances
    For Each oObj In oCol
        Debug.WriteLine(oObj.Name)
    Next
End Sub
				

Fichier

Pour les packages sont stockés dans un fichier, vous pouvez obtenir une liste des distinct, enregistrées des packages dans le fichier en utilisant le fragment de code suivant :
Option Explicit
Private Sub Command1_Click()
    Dim oPackage As New DTS.Package
    Dim oInfoCollection As DTS.SavedPackageInfos
    Dim oInfo As DTS.SavedPackageInfo

    Set oInfoCollection = oPackage.GetSavedPackageInfos("c:\temp\samples.dts")
    
    For Each oInfo In oInfoCollection
        Debug.Print oInfo.PackageName + " " + oInfo.VersionID
    Next
End Sub
				

Dans Visual Basic .NET, vous devez ajouter une référence à la Bibliothèque d'objets DTSPackage first.Use le code suivant :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim oPackage As New DTS.Package
    Dim oInfoCollection As DTS.SavedPackageInfos
    Dim oInfo As DTS.SavedPackageInfo

    oInfoCollection = oPackage.GetSavedPackageInfos("c:\temp\samples.dts")

    For Each oInfo In oInfoCollection
        Debug.WriteLine(oInfo.PackageName + " " + oInfo.VersionID)
    Next
End Sub
				

Propriétés

Numéro d'article: 241249 - Dernière mise à jour: samedi 27 décembre 2003 - Version: 4.4
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft SQL Server 7.0 Standard
  • Microsoft SQL Server 2000 Standard
  • Microsoft SQL Server 2000 Édition 64 bits
Mots-clés : 
kbmt kbhowtomaster kbsqlprog KB241249 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 241249
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com