Question

当我尝试打开数据库时出现错误。

我不做任何命令。

并且err.number不为零。

我不知道。

    Dim strDSN, strMsg
    strDSN = "DSN=Test"

    If Not IsObject(CNNDB) Then
        Set CNNDB= Server.CreateObject("ADODB.Connection")
    End If
    If CNNDB.State = 0 Then
        CNNDB.Open strDSN
        CNNDB.CursorLocation = 3
    End If

    If err.number <> 0 Then
        CNNDB.Close
        Set CNNDB= Nothing

        strMsg = "ErrDesc=" & err.Description & "&ErrCode=" & err.number
        Response.Write strMsg
        Response.End
    End If

Answer 1

在DB关闭之前移动错误描述。

它会显示真相错误信息。

If err.number <> 0 Then
    strMsg = "ErrDesc=" & err.Description & "&ErrCode=" & err.number
    CNNDB.Close
    Set CNNDB= Nothing

    strMsg = "ErrDesc=" & err.Description & "&ErrCode=" & err.number
    Response.Write strMsg
    Response.End
End If

ASP / ADODB运行时错误：3704

1 个答案: