ASP/ADODB Run-Time Error: 3704

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

在数据库关闭之前移动错误描述。

它会显示真实的错误信息。

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 Run-Time Error: 3704

ASP/ADODB Run-Time Error: 3704

adodb

asp-classic