General > Códigos - Aportes - Recursos

TRATAMIENVOS DE ALGUNOS ERRORES MYSQL PARA VB6

(1/1)

obethermy:

--- Código: (VB) ---Option Explicit
OPTION EXPLICIT

Public ErrorBD As ADODB.Error

Sub ErroresSql(ErrorBD)
Dim Mensaje As String
If con.State = 1 Then con.Close
  'Select Case ErrorBD.NativeError
  Select Case ErrorBD
    Case 1049
     Mensaje = "Error en nombre de Base de Datos del servidor."
    Case 2003
     Mensaje = "Error en datos de ip."
    Case 2005
     Mensaje = "Error en Nombre del Servidor."
    Case 2046
        Mensaje = "No se puede guardar el registro."
    Case 2113
        Mensaje = "Introdujo un valor que no corresponde con el formato del campo"
    Case 2237
        Mensaje = "Seleccione un valor de la lista."
    Case 2279
        Mensaje = "Los datos introducidos no cumplen con el formato de entrada."
    Case 2501
        Mensaje = "El evento se canceló.No hay información."
        'mensaje = vbNullString
    Case 3101
        Mensaje = "Debe seleccionar un Conjunto para crear una Gestión"
    Case 3022
        Mensaje = "Ya existe el valor que intenta introducir y no puede haber duplicados."
    Case 3021
        Mensaje = "Se ha eliminado el registro actual. La operación solicitada requiere un registro actual."
    Case 3033
        Mensaje = "No tiene los permisos necesarios para realizar esta acción."
    Case 3044
        'MsgBox "No se encuentra la ruta a la base de datos.", vbCritical, titulo
        MsgBox "No se encuentra la ruta a la base de datos.", vbCritical
        Exit Sub
    Case 3058
        Mensaje = "Dejó en blanco un campo obligatorio (campo clave). Corrija para continuar."
    Case 3200
        Mensaje = "Para poder eliminar este registro, debe eliminar" & vbCrLf _
            & "primero los registros relacionados. Por ejemplo: intenta eliminar" & vbCrLf _
            & "un centro Hipico que tiene ventas; primero elimine los ventas" & vbCrLf _
            & "para poder eliminar el centrohipico."
    Case 3314
        Mensaje = "Dejó en blanco campos que son obligatorios. El registro no se puede crear ni guardar." & vbCrLf _
            & "Presione la tecla ESC para deshacer el cambio."
    Case 3316
        Mensaje = "Este campo es obligatorio. Introduzca un valor."
    Case 3420
        MsgBox vbNullString
    Case 3705
        Mensaje = "Error conexion a la Base de Dato ya esta abierta"
    Case 3709
        Mensaje = "Error no se pudo leer el usuario"
    Case 7753
        Mensaje = "Este campo no puede quedar vacío."
    Case -2147217913
        Mensaje = "Introdujo un valor nulo o que no corresponde con el tipo de datos."
    Case -2147217904
        Mensaje = "Dejó en blanco campos que son requeridos."
    Case -2147467259
        'mensaje = "Se perdió la conexion a base de datos. Se intentará recuperarla"
        'If con.State = 1 Then con.Close
        'Set con = Nothing
        'IniciarConexion
 Case Else
        Mensaje = "Se produjo el error numero " & ErrorBD & "." & Err.Description
 End Select
If Mensaje <> vbNullString And ErrorBD <> 2501 Then
    MsgBox Mensaje, vbInformation, "Información del Sistema"
End If
End Sub

--- Fin del código ---

Navegación

[0] Índice de Mensajes