Question

您好，我正在开发的应用程序中进行一些集成测试。导致问题的特定元素是对查询Oracle数据库的后台工作程序的调用。当在查询中遇到错误时，我希望异常详细信息将调用堆栈渗透到应用程序级别，并在此时提供适当的用户兼容消息。在示例测试中，底层SQL中存在语法错误，导致出现OraEx异常：

Oracle.DataAccess.Client.OracleException ORA-00907: missing right parenthesis

不幸的是，代码会生成以下异常：

System.Reflection.TargetInvocationException was unhandled
Message: An unhandled exception of type
'System.Reflection.TargetInvocationException' occurred in mscorlib.dll
Additional information: Exception has been thrown by the target of an
invocation.

在backgroundworker的DoWork子中，尽管我相信我正确地处理了异常。很明显，我在这里缺少一些基本的东西，请有人建议解决方案。

先谢谢保罗J。

以下是调用后台工作程序的代码：

Private Sub EventSearch(ByVal mySQL As String)

    Const procName As String = "EventSearch"

    Try
        _eventMngr = New ScadaEventManager(_CurrentDB, _userName, _myPwd)
        _eventMngr.SQL = mySQL

        'Set the flag and stop query tool status accordingly
        _Stopped = False
        uxStopQueryTool.Enabled = True

        'activate the timer object to ensure that the execute query menu 
        'and tool remain disabled until all background processing is complete
        uxBackWorkTimer.Enabled = True

        _logger.SendLog(Me.Name & "." & procName & " - Scanning for data.", NLog.LogLevel.Trace)
        ReviseStatus(2, "Scanning for data.  Please wait...", Color.Black, True, True)

        'Force the thread to sleep for half a second so the user can see the scanning state taking place
        Threading.Thread.Sleep(500)

        'Launch the background worker to retrieve the required data from the database
        uxBWScan.RunWorkerAsync(_eventMngr)

    Catch ex As Exception

        MsgBox(ex.Message, MsgBoxStyle.Exclamation, My.Application.Info.ProductName)
        _logger.SendLog(ex.Message & ".  Thrown in module " & Me.Name.ToString & "." & procName, NLog.LogLevel.Error, ex)
        Call ResetStatus()

    Finally

    End Try

End Sub

以下是后台工作人员执行的代码：

Private Sub uxBWScan_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles uxBWScan.DoWork
    Const procName As String = "uxBWScan_DoWork"
    Try
        e.Argument.CountRecords(_queryTypeID)
        e.Result = e.Argument.RecordCount
    Catch NullEx As NullReferenceException
        _logger.SendLog(NullEx.Message & ".  Thrown in module " & Me.Name.ToString & "." & procName, NLog.LogLevel.Error, NullEx)
        Throw
    Catch OraEx As OracleException
        _logger.SendLog(OraEx.Message & ".  Thrown in module " & Me.Name.ToString & "." & procName, NLog.LogLevel.Error, OraEx)
        Throw
    Finally
    End Try
End Sub

以下是产生错误的低级代码：

    Public Sub CountRecords(ByVal queryType As Integer)

        _myDataset = New DataSet
        Try
            _myDataset = _myScadaEventDB.CountRecords(_sqlText)
            If _myDataset.Tables(0).Rows.Count > 0 Then
                If queryType = Enums.QueryType.General Or queryType = Enums.QueryType.KeyPerformanceIndicators Or queryType = Enums.QueryType.TelecontroAnalysis Then
                    _recordCount = _myDataset.Tables(0).Rows(0).Item("RecordCount")
                Else
                    'The query is grouped therefore count the number of records in the table 
                    _recordCount = _myDataset.Tables(0).Rows.Count
                End If
            Else
                _recordCount = 0
            End If
        Catch ex As Exception
            Throw
        Finally

        End Try

    End Sub

Answer 1

好的，问题解决了。从DoWork中删除了try catch块，并将我的异常处理移到了＆＃39; RunWorkerCompleted＆＃39;使用e.error。一些文档阅读（RTFM ...）强调了在工作线程中使用Try / Catch会干扰BackgroundWorker的本机功能的事实。再次感谢大家的意见。

保罗，

背景工作者中未处理的异常

1 个答案: