次の方法で共有


Current プロパティ

コレクションから現在の PackageInfo 要素を返します。

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

構文

'宣言
Public ReadOnly Property Current As PackageInfo
    Get
'使用
Dim instance As PackageInfoEnumerator
Dim value As PackageInfo

value = instance.Current
public PackageInfo Current { get; }
public:
property PackageInfo^ Current {
    PackageInfo^ get ();
}
member Current : PackageInfo
function get Current () : PackageInfo

プロパティ値

型: Microsoft.SqlServer.Dts.Runtime. . :: . .PackageInfo
PackageInfo オブジェクトです。

説明

列挙子を作成した後や Reset メソッドを呼び出した後は、Current プロパティの値を列挙子が読み取る前に、MoveNext メソッドを呼び出して列挙子をコレクションの先頭の要素に進めておく必要があります。そうしないと、Current は未定義となり、例外がスローされます。

前回の MoveNext の呼び出しで false が返された場合 (コレクションの末尾であることを示します)、その後で Current を呼び出しても例外がスローされます。

Current は列挙子の位置を移動しません。Current を連続して呼び出すと、MoveNext または Reset が呼び出されるまで同じオブジェクトが返されます。

列挙子は、コレクションが変更されない限り有効です。要素の追加、変更、削除など、コレクションに変更が加えられた場合は、列挙子は無効になり回復できなくなります。そのため、次の MoveNext または Reset の呼び出しで InvalidOperationException がスローされます。ただし、MoveNext を呼び出してから Current を呼び出すまでの間にコレクションが変更された場合、列挙子は無効になっていても、Current は設定されている要素を返します。

使用例

次のコード例では、Samples フォルダから 2 つのパッケージを読み込み、DTS サービスに保存します。次に、列挙子を作成し、MoveNext メソッドと Current メソッドを使用してパッケージを繰り返し処理し、各パッケージの名前を出力します。

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

namespace PackageInfoTest
{
    class Program
    {
        static void Main(string[] args)
        {
            string pkg = @"C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services\Package Samples\ExecuteProcess Sample\ExecuteProcess\UsingExecuteProcess.dtsx";
            string pkg2 = @"C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services\Package Samples\CalculatedColumns Sample\CalculatedColumns\CalculatedColumns.dtsx";

            Application app = new Application();
            Package p1 = app.LoadPackage(pkg, null);
            Package p2 = app.LoadPackage(pkg2, null);
            p1.Description = "UsingExecuteProcess package";
            p2.Description = "Calculated Columns package";

            app.SaveToDtsServer(p1, null, @"File System\myp1Package", "YOURSERVER");
            app.SaveToDtsServer(p2, null, @"File System\myp2Package", "YOURSERVER");

            PackageInfos pInfos = app.GetDtsServerPackageInfos(@"File System", "YOURSERVER");
            Console.WriteLine("Number of Packages {0}", pInfos.Count.ToString());

            PackageInfoEnumerator iEnum = pInfos.GetEnumerator();

            while (iEnum.MoveNext())
                {
                    String pkgName = iEnum.Current.Name;
                    Console.WriteLine(pkgName); 
                }
         }
    }
}
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.SqlServer.Dts.Runtime
 
Namespace PackageInfoTest
    Class Program
        Shared  Sub Main(ByVal args() As String)
            Dim pkg As String =  "C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services\Package Samples\ExecuteProcess Sample\ExecuteProcess\UsingExecuteProcess.dtsx" 
            Dim pkg2 As String =  "C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services\Package Samples\CalculatedColumns Sample\CalculatedColumns\CalculatedColumns.dtsx" 
 
            Dim app As Application =  New Application() 
            Dim p1 As Package =  app.LoadPackage(pkg,Nothing) 
            Dim p2 As Package =  app.LoadPackage(pkg2,Nothing) 
            p1.Description = "UsingExecuteProcess package"
            p2.Description = "Calculated Columns package"
 
            app.SaveToDtsServer(p1, Nothing, "File System\myp1Package", "YOURSERVER")
            app.SaveToDtsServer(p2, Nothing, "File System\myp2Package", "YOURSERVER")
 
            Dim pInfos As PackageInfos =  app.GetDtsServerPackageInfos("File System","YOURSERVER") 
            Console.WriteLine("Number of Packages {0}", pInfos.Count.ToString())
 
            Dim iEnum As PackageInfoEnumerator =  pInfos.GetEnumerator() 
 
            While iEnum.MoveNext()
                    Dim pkgName As String =  iEnum.Current.Name 
                    Console.WriteLine(pkgName)
            End While
        End Sub
    End Class
End Namespace

サンプルの出力 :

Number of Packages 2

myp1Package

myp2Package