ADO Errors handling

[mLipok]

I found na intresting example:

https://msdn.microsoft.com/en-us/library/ms677489(v=vs.85).aspx

 

there is sucha a example:

 

' Error handler
FormLoadError:
    Dim strErr As String
    Select Case Err
        Case adErrObjectOpen
            strErr = "Error #" & Err.Number & ": " & Err.Description & vbCrLf
            strErr = strErr & "Error reported by: " & Err.Source & vbCrLf
            strErr = strErr & "Help File: " & Err.HelpFile & vbCrLf
            strErr = strErr & "Topic ID: " & Err.HelpContext
            MsgBox strErr
            Debug.Print strErr
            Err.Clear
            Resume Next
        ' If some other error occurs that
        ' has nothing to do with ADO, show
        ' the number and description and exit.
        Case Else
            strErr = "Error #" & Err.Number & ": " & Err.Description & vbCrLf
            MsgBox strErr
            Debug.Print strErr
            Unload Me
    End Select
End Sub
' EndErrorHandlingVB01

 

Question why there is used Case Else ?
I see the comment but is it needed to use such snippet in AutoIt ?

EDIT:
It should be that the snippet is much more VB related, but I just want to know.

 

Edited August 31, 2015 by mLipok

[mLipok]

Bump,     maybe someone knows the answer ?

EDIT: On the other hand, maybe my question is stupid? If so, please enlighten me.

Edited September 19, 2015 by mLipok

[trancexx]

Because the author doesn't want the execution to continue in case of non-ADO related errors.

[mLipok]

https://msdn.microsoft.com/en-us/library/windows/desktop/ms681549(v=vs.85).aspx

adErrObjectOpen "Operation is not allowed when the object is open. An object that is open cannot be opened. Fields cannot be appended to an open Recordset."

As I understand VB has a different syntax.
I do not understand whether I well understand the code - I mean these two lines.

Select Case Err
        Case adErrObjectOpen

Is the "case" of the second line refers to the first line ? If YES >> How this enum adErrObjectOpen refers to Err object ?

[trancexx]

  On 9/20/2015 at 7:15 PM, mLipok said:

https://msdn.microsoft.com/en-us/library/windows/desktop/ms681549(v=vs.85).aspx

adErrObjectOpen "Operation is not allowed when the object is open. An object that is open cannot be opened. Fields cannot be appended to an open Recordset."

As I understand VB has a different syntax.
I do not understand whether I well understand the code - I mean these two lines.

Select Case Err
        Case adErrObjectOpen

Is the "case" of the second line refers to the first line ? If YES >> How this enum adErrObjectOpen refers to Err object ?

adErrObjectOpen is get by evaluating Err object on error (I would guess Err.Number is it's default property). In AutoIt you would check $oErr.number obviously.

[mLipok]

  On 9/20/2015 at 9:13 PM, trancexx said:

I would guess Err.Number is it's default property

That I had suspicions.

The rest of your speech was already known to me before.
The whole cemented me in my thoughts.

Many thanks for the conversation.