次の方法で共有

  • [アーティクル]

GetEnumerator メソッド

RunningPackages コレクションに対する繰り返し処理で使用する列挙子を返します。

名前空間:  Microsoft.SqlServer.Dts.Runtime
アセンブリ:  Microsoft.SqlServer.ManagedDTS (Microsoft.SqlServer.ManagedDTS.dll)

構文

'宣言
Public Function GetEnumerator As RunningPackagesEnumerator
'使用
Dim instance As RunningPackages
Dim returnValue As RunningPackagesEnumerator

returnValue = instance.GetEnumerator()

public RunningPackagesEnumerator GetEnumerator()

public:
RunningPackagesEnumerator^ GetEnumerator()

member GetEnumerator : unit -> RunningPackagesEnumerator 

public function GetEnumerator() : RunningPackagesEnumerator

使用例

次のコード例では、実行中のパッケージに対して繰り返し処理を実行する列挙子を作成します。

using System;
using System.Collections.Generic;
using System.Text;
using Microsoft.SqlServer.Dts.Runtime;

namespace RunningPackages
{
    class Program
    {
        static void Main(string[] args)
        {
            Application app = new Application();
            RunningPackages pkgs = app.GetRunningPackages("YOURSERVER");

            int pkgsRunning = pkgs.Count;
            Console.WriteLine("Packages before stop: " + pkgsRunning);

            // Get the RunningPackages collection from the package.
            RunningPackages runPkgs = app.GetRunningPackages("YOURSERVER ");
            
            //Create the Enumerator.
            RunningPackagesEnumerator myEnumerator = runPkgs.GetEnumerator();

            Console.WriteLine("The collection contains the following values:");
            int i = 0;
            while ((myEnumerator.MoveNext()) && (myEnumerator.Current != null))
            Console.WriteLine("[{0}] {1}", i++, myEnumerator.Current.PackageDescription);
        }
    }
}

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.SqlServer.Dts.Runtime
 
Namespace RunningPackages
    Class Program
        Shared  Sub Main(ByVal args() As String)
            Dim app As Application =  New Application() 
            Dim pkgs As RunningPackages =  app.GetRunningPackages("YOURSERVER") 
 
            Dim pkgsRunning As Integer =  pkgs.Count 
            Console.WriteLine("Packages before stop: " + pkgsRunning)
 
            ' Get the RunningPackages collection from the package.
            Dim runPkgs As RunningPackages =  app.GetRunningPackages("YOURSERVER ") 
 
            'Create the Enumerator.
            Dim myEnumerator As RunningPackagesEnumerator =  runPkgs.GetEnumerator() 
 
            Console.WriteLine("The collection contains the following values:")
            Dim i As Integer =  0 
            While (myEnumerator.MoveNext()) &&(myEnumerator.Current <> Nothing)
            Console.WriteLine("[{0}] {1}",i = Console.WriteLine("[{0}] {1}",i + 1
            End While
        End Sub
    End Class
End Namespace