在SSIS脚本组件中接收“索引超出了数组的范围”错误

时间:2013-02-04 13:29:21

标签: ssis

我有一个SSIS包现在失败,错误为"索引超出了数组的范围。"它出现在脚本组件任务中,但我无法在日志中看到有关它失败的行的任何进一步信息。这是我的脚本组件的文本,任何人都可以看到这个错误吗?我没有改变包装中的任何东西,它刚刚开始失败。

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper

<Microsoft.SqlServer.Dts.Pipeline.SSISScriptComponentEntryPointAttribute> _
<CLSCompliant(False)> _
Public Class ScriptMain
    Inherits UserComponent


    ' Wrapper for web service

    'Private CurrencyInfo As RetrieveExchangeRatesOutputMessageContract

    ' wrapper for Response from web service

    Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)

        Try
            Dim ws As New CurrencyExchangeWS.CurrencyExchangeWS
            Dim inContract As New CurrencyExchangeWS.ExchangeRateInputDataContract
            Dim msg As New CurrencyExchangeWS.RetrieveExchangeRatesInputMessageContract
            Dim inContracts(1) As CurrencyExchangeWS.ExchangeRateInputDataContract
            'Dim dt As Date = Now
            'dt = dt.AddDays(-1)

            inContract.RequestAsOfDate = Now
            'inContract.RequestAsOfDate = "2011-07-18"

            ' IMPORTANT: You need to specify SourceCurrencyIdSpecified and TargetCurrencyIdSpecified or the service will assume these values are null.
            inContract.SourceCurrencyIdSpecified = True
            inContract.SourceCurrencyId = Row.CurrencyTypeId

            inContract.TargetCurrencyIdSpecified = True
            inContract.TargetCurrencyId = 47

            inContracts(0) = inContract

            msg.ExchangeRateInputCollection = inContracts

            ws.Credentials = System.Net.CredentialCache.DefaultCredentials

            Dim outMsg As CurrencyExchangeWS.RetrieveExchangeRatesOutputMessageContract = ws.RetrieveExchangeRates(msg)

            'Dim rate =outMsg.ExchangeRateInfoCollection(0).Rate
            Dim rate As Decimal = outMsg.ExchangeRateInfoCollection(0).Rate

            'Dim edate = outMsg.ExchangeRateInfoCollection(0).RequestAsOfDate

            Dim edate = outMsg.ExchangeRateInfoCollection(0).RateAsOfDate

            'Dim edate As DateTime
            'edate = outMsg.ExchangeRateInfoCollection(0).RateAsOfDate


            Row.date = edate
            Row.rate = Convert.ToDecimal(1.0 / rate)

            'Dim currency = outMsg.ExchangeRateInfoCollection(0).TargetCurrencyId


        Catch ex As Exception

            ComponentMetaData.FireError(1, ComponentMetaData.Name, ex.Message, String.Empty, 0, True)

        End Try

    End Sub
    Public Overrides Sub PreExecute()
        MyBase.PreExecute()
        '
        ' Add your code here for preprocessing or remove if not needed
        ''
    End Sub

    Public Overrides Sub PostExecute()
        MyBase.PostExecute()
        '
        ' Add your code here for postprocessing or remove if not needed
        ' You can set read/write variables here, for example:
        ' Me.Variables.MyIntVar = 100
        ''
    End Sub

    'Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
    '
    ' Add your code here
    '
    'End Sub

End Class

1 个答案:

答案 0 :(得分:0)

乍一看,最可能的罪魁祸首是outMsg.ExchangeRateInfoCollection包含零项。不幸的是,我们没有足够的信息可以肯定地说出来。获取其他信息的一种可能方法是在Try ... Catch块之外声明进度字符串变量,在代码中的每个步骤之前更新它,并将其包含在FireError消息中:

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
    Dim progress As String

    Try
        Dim ws As New CurrencyExchangeWS.CurrencyExchangeWS
        Dim inContract As New CurrencyExchangeWS.ExchangeRateInputDataContract
        Dim msg As New CurrencyExchangeWS.RetrieveExchangeRatesInputMessageContract
        Dim inContracts(1) As CurrencyExchangeWS.ExchangeRateInputDataContract

        progress = "Setting inContract.RequestAsOfDate"
        inContract.RequestAsOfDate = Now
        progress = "Setting inContract.SourceCurrencyIdSpecified"
        inContract.SourceCurrencyIdSpecified = True

        ' etc, etc, etc.

        Dim outMsg As CurrencyExchangeWS.RetrieveExchangeRatesOutputMessageContract
        progress = "Setting outMsg"
        outMsg = ws.RetrieveExchangeRates(msg)

        progress = String.Format("Setting rate; outMsg.ExchangeRateInfoCollection.Length is {0}", outMsg.ExchangeRateInfoCollection.Length)
        ' This is likely the place where the IndexOutOfRangeException is being thrown
        Dim rate As Decimal = outMsg.ExchangeRateInfoCollection(0).Rate

        ' rest of code
    Catch ex As Exception
        ComponentMetaData.FireError(1, ComponentMetaData.Name, progress + ": " + ex.Message, String.Empty, 0, True)
    End Try
End Sub