RunningPackages.GetEnumerator メソッド
定義
重要
一部の情報は、リリース前に大きく変更される可能性があるプレリリースされた製品に関するものです。 Microsoft は、ここに記載されている情報について、明示または黙示を問わず、一切保証しません。
RunningPackages コレクションに対する繰り返し処理で使用する列挙子を返します。
public:
Microsoft::SqlServer::Dts::Runtime::RunningPackagesEnumerator ^ GetEnumerator();
public Microsoft.SqlServer.Dts.Runtime.RunningPackagesEnumerator GetEnumerator ();
override this.GetEnumerator : unit -> Microsoft.SqlServer.Dts.Runtime.RunningPackagesEnumerator
Public Function GetEnumerator () As RunningPackagesEnumerator
戻り値
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