]]> _
Public Class ScriptMain
Inherits UserComponent
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub CreateNewOutputRows()
Try
If String.IsNullOrEmpty(Me.DataRecordVariable) Then
Throw New Exception("DataRecord variable not selected.")
End If
Dim dataRecord As IDataRecord = CType(GetVariable_(Me.DataRecordVariable), IDataRecord)
Dim fieldsCount As Integer = dataRecord.FieldCount
For fieldIndex As Integer = 0 To fieldsCount - 1
With OutputBuffer
Call .AddRow()
.Name = dataRecord.GetName(fieldIndex)
.DataType = dataRecord.GetDataTypeName(fieldIndex)
.IsNull = dataRecord.IsDBNull(fieldIndex)
If Not dataRecord.IsDBNull(fieldIndex) Then
.Value = dataRecord.Item(fieldIndex).ToString()
End If
End With
Next
Catch ex As Exception
Call FireError_(ex.Message)
End Try
End Sub ' CreateNewOutputRows
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Validate(ByRef errMessage As String) As Boolean
Dim result As Boolean
Try
If String.IsNullOrEmpty(Me.DataRecordVariable) Then
Throw New Exception("Select IDataRecord variable.")
End If
result = True
Catch ex As Exception
result = False
errMessage = ex.Message
End Try
Validate = result
End Function 'Validate
#Region "Properties"
_
_
Public Property DataRecordVariable() As String
Get
DataRecordVariable = m_dataRecordVar
End Get
Set(ByVal value As String)
m_dataRecordVar = value
End Set
End Property ' DataRecordVariable
#End Region ' Properties
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub FireError_(ByVal message As String)
Dim cancel As Boolean = False
Call MyBase.ComponentMetaData.FireError( _
0, _
"Data Record Source", _
message, _
String.Empty, _
0, _
cancel)
End Sub ' FireError_
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function GetVariable_(ByVal varName As String) As Object
Dim result As Object
Dim vars As IDTSVariables90 = Nothing
Call Me.VariableDispenser.LockOneForRead(varName, vars)
Try
result = vars(varName).Value
Finally
Call vars.Unlock()
End Try
GetVariable_ = result
End Function ' GetVariable_
#End Region ' Internals
#Region "Attributes"
Private m_dataRecordVar As String
#End Region ' Attributes
End Class ' ScriptMain
]]>
ScriptComponent_b0cce63573634a7db83a168ffdfb9b75
true
CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea