在SSIS腳本組件中接收「索引超出數組範圍」錯誤

Question

我有一個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 

Answer 1

乍一看，最有可能的罪魁禍首是outMsg.ExchangeRateInfoCollection包含零個項目。不幸的是，我們沒有足夠的信息來說明這一點。一種可能的方式來獲取更多的信息在FireError消息申報進度字符串變量您Try ... Catch塊外，在你的代碼中的每個步驟之前更新它，並將其包括：

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