]]> _
_
Public Property RowCountVariable() As String
Get
RowCountVariable = m_rowCountVariable
End Get
Set(ByVal value As String)
m_rowCountVariable = value
End Set
End Property ' RowCountVariable
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
Public Property DurationVariable() As String
Get
DurationVariable = m_durationVariable
End Get
Set(ByVal value As String)
m_durationVariable = value
End Set
End Property ' DurationVariable
#End Region ' Properties
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Store value in package variable.
Private Sub StoreToVariable_(ByVal varName As String, ByVal value As Object)
If Not String.IsNullOrEmpty(varName) Then
Dim vars As IDTSVariables90
Call Me.VariableDispenser.LockOneForWrite(varName, vars)
Try
vars(varName).Value = value
Finally
Call vars.Unlock()
End Try
End If
End Sub ' StoreToVariable_
#End Region ' Internals
#Region "Attributes"
Private m_rowCountVariable As String
Private m_durationVariable As String
Private m_rowCount As Integer
Private m_startTime As Date
#End Region ' Attributes
End Class ' ScriptMain
]]>ScriptComponent_e67fead1a8fe4df7be8380b4663de8f9trueCozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea