Question

我在查询时查找特定的数据库错误。如果没有找到错误，那么我希望使用标准错误处理。

On Error Resume Next

db.execute(strSQL)

If db.Errors.Count > 0 Then
   If InStr(db.Errors(0).Description, "IX_Code") Then
      ...
   Else
      * rethrow here *
   End If
End If

这可能吗？

我试过......

On Error GoTo 0

Err.Raise 22, "Big Error", "Hello World!"

但没有任何反应。

Answer 1

我添加了这段代码，我找到了here ...

    For Each errLoop In db.Errors

        strError = "Error #" & errLoop.Number & "<br>" & _
            "   " & errLoop.Description & "<br>" & _
            "   (Source: " & errLoop.Source & ")" & "<br>" & _
            "   (SQL State: " & errLoop.SQLState & ")" & "<br>" & _
            "   (NativeError: " & errLoop.NativeError & ")" & "<br>"

        Response.Clear
        Response.Write("<p>" & strError & "</p>")
        Response.End

    Next

如果类型错误，重新引发错误

1 个答案: