ConnMgr = Dts.Connections(“support.laganprod2″)
ConnStr = ConnMgr.ConnectionString
Dts.Events.FireInformation(1, “”, “Connection string = ” + ConnStr, “”, 0, True)
Try
conn1 = DirectCast(ConnMgr.AcquireConnection(Nothing), OracleConnection)
Dts.Events.FireInformation(1, “”, “Connection acquired successfully on ” + ConnMgr.Name, “”, 0, False)
Catch ex As Exception
Dts.Events.FireError(-1, “”, “Connection failed on ” + ConnMgr.Name, “”, 0)
bFailure = True
End Try
Advertisement