Dim app As Microsoft.SqlServer.Dts.Runtime.Wrapper.Application = New Application()
Dim p As IDTSPackage90 = app.LoadPackage("c:\Package.dtsx", True, Nothing)
For Each cn As IDTSConnectionManager90 In p.Connections
Console.WriteLine(cn.ConnectionString)
Next
|