Tengo el Siguiente Codigo:
Function Muestra_error(oError)
? "Error *** ->", ltrim( str( oError:gencode ) ), oError:description + ":", oError:operation,"--"+oError:subsystem()+" "+ErrorMessage(oError)+"/ Linea :"+alltrim(str(oError:ProcLine()))
if oError:gencode = "1003";QUIT;ENDIF
RETURN NIL
FUNCTION ErrorMessage( oError ) // Antes eastaba como Static
LOCAL cMessage
// start error message
cMessage := iif( oError:severity > ES_WARNING, "Error", "Warning" ) + " "
// add subsystem name if available
IF ISCHARACTER( oError:subsystem )
cMessage += oError:subsystem()
ELSE
cMessage += "???"
ENDIF
// add subsystem's error code if available
IF ISNUMBER( oError:subCode )
cMessage += "../ " + LTrim( Str( oError:subCode ) )
ELSE
cMessage += ".+/???"
ENDIF
// add error description if available
IF ISCHARACTER( oError:description )
cMessage += " ... " + oError:description
ENDIF
// add either filename or operation
DO CASE
CASE !Empty( oError:filename )
cMessage += ":-- " + oError:filename
CASE !Empty( oError:operation )
cMessage += ":++ " + oError:operation
ENDCASE
RETURN cMessage
Este es el mensage que me genera.
Error *** ->
1001
DISP_E_UNKNOWNNAME:
FIELDS
ADODB.Recordset. Error Recordset../6 DISP_E_UNKNOWNNAME:+..FIELDS_:/6 Linea: 0
El sistema me genera el Error.
Como le debo decir para que sea mas especifico el error es decir el nombre de la variable. Estoy manejando base de datos Mysql.
