• Article

PackageInfoEnumerator.Current Property

Returns the current PackageInfo element from the collection.

Namespace:  Microsoft.SqlServer.Dts.Runtime
Assembly:  Microsoft.SqlServer.ManagedDTS (in Microsoft.SqlServer.ManagedDTS.dll)

Syntax

'Declaration
Public ReadOnly Property Current As PackageInfo
    Get
'Usage
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

Remarks

After an enumerator is created, or after a call to the Reset method, the MoveNext method must be called to advance the enumerator to the first element of the collection before the enumerator can read the value of the Current property; otherwise, Current is undefined and throws an exception.

Current also throws an exception if the last call to MoveNext returned false, which indicates the end of the collection.

Current does not move the position of the enumerator, and consecutive calls to Current return the same object until either MoveNext or Reset is called.

An enumerator remains valid as long as the collection remains unchanged. If changes are made to the collection, such as adding, modifying, or deleting elements, the enumerator is invalidated and becomes irrecoverable; thus, the next call to MoveNext or Reset throws an InvalidOperationException. However, if the collection is modified between calls to MoveNext and Current, Current returns the element that it is set to, even if the enumerator has been invalidated.

Examples

The following code example loads two packages from the Samples folder, and saves them to the DTS Service. It then creates an enumerator and uses the MoveNext and Current methods to iterate through the packages and printing their names.

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

Sample Output:

Number of Packages 2

myp1Package

myp2Package