tipos de mensajes de error

[Dradi7]

Código vb:

Aqui un Ejemplo de los Errores que mencionas
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
Imports MySql.Data.Common
 
Private conexion As MySqlConnection
Private sentencias As MySqlCommand
 
Public Function conectar(ByVal oSesion as Sesion) As Boolean
        Dim strCx As String
        If Not conexion Is Nothing Then
            If conexion.State = 1 Then
                Return True
            ElseIf conexion.State = ConnectionState.Closed Then
                conexion.Open()
                Return True
            Else
                Return False
            End If
        Else
            Try
                With oSesion.usuario
                    strCx = "Database=" & .Base & ";Data Source=" & .Server & ";User Id=" & .User & ";Password=" & .Pwd & ";Port=" & .Port.ToString & ";CharSet=utf8;Pooling=false;"
                End With
                conexion = New MySqlConnection(strCx)
                conexion.Open()
                Return True
            Catch ex As MySqlException
                Select Case ex.Number
                    Case 0
                        MessageBox.Show("El servidor no responde." & ControlChars.CrLf & "Consulte con el Administrador de Sistemas", "Error de conexión principal", MessageBoxButtons.OK, MessageBoxIcon.Error)
                  Case 1045
                        MessageBox.Show("El nombre de usuario o la clave son incorrectas." & ControlChars.CrLf & "Vuelva a ingresarlas", "Error de login", MessageBoxButtons.OK, MessageBoxIcon.Error)
                  Case 1049
                        MessageBox.Show("La base de datos no existe." , "Error de base de datos inexistente", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Select
                Return False
            End Try
            Return True
        End If
    End Function