Question

我得到一个零星的'无法播放类型'System.Int32'的对象，在下面的代码中输入.SingleorDefault（）的'System.String'异常。它工作9/10次，但随机抛出异常。我确保我传递的SettingID没有Null值，并且表中的数据始终存在于settingID中，并且我总是将SettingID作为Integer传递。

任何想法此代码有什么问题。

以下是例外信息：

System.InvalidCastException：无法将“System.Int32”类型的对象强制转换为“System.String”。

       在System.Data.SqlClient.SqlBuffer.get_String（）
       在Read_CPT_Setting（ObjectMaterializer`1）
       在System.Data.Linq.SqlClient.ObjectReaderCompiler.ObjectReader`2.MoveNext（）
       在System.Linq.Enumerable.SingleOrDefault [TSource]（IEnumerable`1 source）
       在System.Linq.Queryable.SingleOrDefault [TSource]（IQueryable`1 source）
       在CPT.Service.SettingLinqProvider.GetSettingFromDBById（Int32 SettingId）

CODE：

Public Function GetSettingFromDBById(ByVal SettingId As Integer) As ReturnObject(Of Model.ISettingBase) 

    Dim retObj As New ReturnObject(Of Model.ISettingBase)
    Dim dbSetting As CPT_Setting

    Try
        Dim _cptDB As New CPT.Data.CPTLinqRepository.DB(_connString)
        Using _cptDB

             dbSetting = (From s In context.CPT_Settings _
                                  Where s.SettingId = settingId _
                                  Select s).SingleOrDefault

            If dbSetting IsNot Nothing Then
                retObj.ReturnValue = Mapping.Setting.MapDBToModel(dbSetting)
            End If

        End Using
    Catch ex As Exception
        retObj.ReturnValue = Nothing
        retObj.AddErrorMessage("Error returning the site: " & ex.Message)
        _log.Error(ex.Message, _userId, ex)
    End Try

    If retObj.ReturnValue Is Nothing Then
        retObj.AddErrorMessage("Site Not Found.")
    End If

    Return retObj
End Function

我已经更新了上面的代码，每行后都有一些日志记录。

Public Function GetSettingFromDBById(ByVal SettingId As Integer) As ReturnObject(Of Model.ISettingBase) 

    Dim retObj As New ReturnObject(Of Model.ISettingBase)
    Dim dbSetting As CPT_Setting
    Dim SettingsList As New List(Of CPT_Setting)

    Dim errStr As String = " ENTER "

    Try
        Dim _cptDB As New CPT.Data.CPTLinqRepository.DB(_connString)
        Using _cptDB
            errStr &= " - Inside Context "
            If _cptDB Is Nothing Then
                errStr &= " - With Context is Nothing "
                _log.Error("Unusual Object - Unable to create connection object - Object is NOTHING", _userId)
            End If

            If System.DBNull.Value.Equals(_cptDB) Then
                errStr &= " - With Context is NULL "
                _log.Error("Unusual Object - Unable to create connection object - Object is NULL", _userId)
            End If

            errStr &= " - Querying With SettingID = " & SettingId.ToString()

            Dim dbSettingTemp = (From s In context.CPT_Settings _
                              Where s.SettingId = settingId _
                              Select s)

            If dbSettingTemp Is Nothing Then
                errStr &= " -- Nothing is returned from DB - Object is NOTHING -- "
                _log.Error(errStr, _userId)
            End If
            If System.DBNull.Value.Equals(dbSettingTemp) Then
                errStr &= " -- Nothing is returned from DB - Object is NULL -- "
                _log.Error(errStr, _userId)
            End If

            errStr &= " -- Before SingleOrDefault -- "
            dbSetting = dbSettingTemp.SingleOrDefault
            errStr &= " -- After SingleOrDefault -- "

            If dbSetting IsNot Nothing Then
                If System.DBNull.Value.Equals(dbSetting) Then
                    errStr &= " - NULL OBJECT RETURNED - Before Mapping "
                    _log.Error("Unusual Exception - NULL OBJECT RETURNED " & errStr, _userId)
                End If

                retObj.ReturnValue = Mapping.Setting.MapDBToModel(dbSetting)
                errStr &= " - After Mapping With SettingID=" & dbSetting.SettingId.ToString() & " SettingName=" & dbSetting.SettingName.ToString() & " StartDate=" & dbSetting.StartDate.ToShortDateString() & " EndDate=" & dbSetting.EndDate.ToShortDateString()

            Else
                errStr &= " - DBSetting Is Nothing "
                _log.Error("Unusual Object - No Data Retrieved for SettingID=" & SettingId.ToString() & " " & errStr, _userId)
            End If

        End Using
    Catch ex As Exception
        retObj.ReturnValue = Nothing
        retObj.AddErrorMessage("Error returning the site: " & ex.Message)
        _log.Error("Unusual Exception for SettingID=" & SettingId.ToString() & "--" & errStr & "--" & ex.Message, _userId, ex)
    End Try

    If retObj.ReturnValue Is Nothing Then
        retObj.AddErrorMessage("Site Not Found.")
        _log.Info("Unusual Object - MRDD Solutions - No Data Retrieved for SettingID=" & SettingId.ToString() & " " & errStr, _userId)
    End If

    Return retObj
End Function

请记住：DB包含以下消息中提到的所有settingID的所有行。

结果：

情景1：

异常对象 - 没有检索到SETID = 142176 ENTER - 内部上下文 - 使用SettingID = 142176查询 - 在SingleOrDefault之前 - - 在SingleOrDefault之后 - - DBSetting没什么

异常对象 - MRDD解决方案 - 没有检索到SETID = 142176 ENTER - 内部上下文 - 使用SettingID = 142176查询 - 在SingleOrDefault之前 - - 在SingleOrDefault之后 - - DBSetting没什么

场景2

SettingID的异常异常= 138145-- ENTER - 内部上下文 - 使用SettingID = 138145查询 - 在SingleOrDefault之前 - - 在SingleOrDefault之后 - - 指定的强制转换无效。

异常对象 - MRDD解决方案 - 无法检索SettingID = 138145 ENTER - 内部上下文 - 使用SettingID = 138145查询 - 在SingleOrDefault之前 - - 在SingleOrDefault之后 -

场景3

SettingID的异常异常= 164638-- ENTER - 内部上下文 - 使用SettingID = 164638查询 - 在SingleOrDefault之前 - --Index超出数组的范围。

异常对象 - MRDD解决方案 - 没有检索到SETID = 164638的数据ENTER - 内部上下文 - 使用SettingID = 164638查询 - 在SingleOrDefault之前 -

Answer 1

我已跟进Micorsoft支持，我们已启用debugdiag跟踪并分析转储文件但无法到达任何地方。

经过分析后我发现3/4服务器没有最新的框架更新，因此服务器管理员已经使用 .Net Framework 4的可靠性更新1 更新了机器，它似乎已经解决了问题。没有进行任何代码更改。自更新以来已经过了两周，并且在此代码块中没有看到任何一个例外。

我为此浪费了一个月。弄它。有时它不是代码。

Answer 2

您必须使用ToString()

，而不是使用Convert.ToString()

希望它能解决你的问题。

Answer 3

你应该检查

From s In context.CPT_Settings _
Where s.SettingId = settingId _
Select s

不会返回多个对象。也许从不应该，但这可能是问题。

Answer 4

使用单一而非单一默认？

这就是我们最近解决工作中类似情况的方式。

无法将“System.Int32”类型的对象强制转换为“System.String”类型

4 个答案: