How can I map Input columns of a Flat File destination from OLE DB source error Output

See more:

VB

.NET

Hi,

I am creating data flow task through VB program that will download data from OLEDB Source to OLE DB Destination and Error Output of OLE DB source is mapped to Flat File destination?


Can anyone provide me the VB code for this.

My code is attached below;-

It is working fine for opther components but not able to map columns of Error output to Input to Flat File Destination.

It gives me error"Error at Data Flow Task [Flat File Destination 11 [1230]]: The number of input columns for Flat File Destination 11.Inputs[Flat File Destination Input] cannot be zero."

Code where it is failing is :-

Dim errinput As Microsoft.SqlServer.Dts.Pipeline.Wrapper.IDTSInput100 = ErrRowDestination.InputCollection(0)

Dim verrInput As Microsoft.SqlServer.Dts.Pipeline.Wrapper.IDTSVirtualInput100 = errinput.GetVirtualInput()



For Each verrColumn As Microsoft.SqlServer.Dts.Pipeline.Wrapper.IDTSVirtualInputColumn100 In verrInput.VirtualInputColumnCollection


Dim verrcol As Microsoft.SqlServer.Dts.Pipeline.Wrapper.IDTSInputColumn100 = InstanceErrRedirect.SetUsageType(errinput.ID, verrInput, verrColumn.LineageID, DTSUsageType.UT_READONLY)
InstanceErrRedirect.MapInputColumn(errinput.ID, verrcol.ID, errinput.ExternalMetadataColumnCollection(verrColumn.Name).ID)
InstanceErrRedirect.Validate()

Next