次の方法で共有


Current プロパティ

コレクション内にある現在の要素を取得します。

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

構文

'宣言
Public ReadOnly Property Current As ConnectionInfo
    Get
'使用
Dim instance As ConnectionInfoEnumerator
Dim value As ConnectionInfo

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

プロパティ値

型: Microsoft.SqlServer.Dts.Runtime. . :: . .ConnectionInfo
コレクション内にある現在の要素です。

説明

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

また、MoveNext の最後の呼び出しでコレクションの末尾を示す false が返された場合、Current を呼び出すと例外がスローされます。

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

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

使用例

次のコード サンプルでは、列挙子を作成してから、Current メソッド、MoveNext メソッド、および Reset メソッドを使用してコレクションを移動します。

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

namespace ConnInfos_Current
{
    class Program
    {
        static void Main(string[] args)
        {
            Application dtsApplication = new Application();
            ConnectionInfos connectionInfos = dtsApplication.ConnectionInfos;

            //Create the Enumerator.
            ConnectionInfoEnumerator ConnInfoEnum = connectionInfos.GetEnumerator();
            Console.WriteLine("The collection contains the following values:");
            int i = 0;
            while ((ConnInfoEnum.MoveNext()) && (ConnInfoEnum.Current != null))
                Console.WriteLine("[{0}] {1}", i++, ConnInfoEnum.Current.Name);
        }
    }
}
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.SqlServer.Dts.Runtime

Namespace ConnInfos_Current
    Class Program
        Shared  Sub Main(ByVal args() As String)
            Dim dtsApplication As Application =  New Application() 
            Dim connectionInfos As ConnectionInfos =  dtsApplication.ConnectionInfos 
 
            'Create the Enumerator.
            Dim ConnInfoEnum As ConnectionInfoEnumerator =  connectionInfos.GetEnumerator() 
            Console.WriteLine("The collection contains the following values:")
            Dim i As Integer =  0 
            While (ConnInfoEnum.MoveNext()) &&(ConnInfoEnum.Current <> Nothing)
            Console.WriteLine("[{0}] {1}",i = Console.WriteLine("[{0}] {1}",i + 1
            End While
        End Sub
    End Class
End Namespace

サンプルの出力 :

The collection contains the following values:

[0] Connection Manager for Files

[1] Connection Manager for SQL Server Compact

[2] Connection Manager for Multiple Flat Files