FoxPro/Visual FoxPro - Guardar los errores en una tabla

   
Vista:

Guardar los errores en una tabla

Publicado por Ernesto Hernandez (4632 intervenciones) el 09/02/2009 22:25:19
CREATE TABLE ErrorLog ( ;
pkErrorLog i autoinc, ;
tTimeStamp t, ;
nError i, ;
cErrorText c(200), ;
nLineNo i, ;
cFileName c(200) )

On Error do LogError with Datetime(), Lineno(), Program()
x = BadVar
Error 1
Error "my error"

On Error

Select * from ErrorLog into cursor foo
Browse width 20
Return

Procedure LogError
Lparameters ttTimeStamp, tnLineNo, tcFileName
Local lnErrors, lnError
Local array laErrors[1]

lnErrors = AError(laErrors)
For lnError = 1 to lnErrors
Insert into errorlog ;
( tTimeStamp, nError, cErrorText, nLineNo, cFileName ) ;
values ;
( ttTimeStamp, laErrors[lnError,1], laErrors[lnError,2], tnLineNo, tcFileName )
EndFor

Return

Suerte
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder