>PROCEDURE HandleError(sAppName AS String, iErrNo AS Integer,; > sErrMessage AS String, sLineOfCode AS String,; > sProgram AS String, iLineNo AS int, sStack AS String) >TEXT TO sSqlCommand NOSHOW > insert into syserrors > (datetime, error, line, message, codeline, program, > [user], appname, memory, status, callstack) > values > (?m.tDateTime, ?m.iErrNo , ?m.iLineNo, ?m.sErrMessage, ?m.sLineOfCode, ?m.sProgram, > ?m.sUserId, ?m.sAppName, ?sMemory, ?sStatus, ?sStack) >ENDTEXT >tDateTime = datetime() && Any valid VFP date/datetime expression >sUserId = 'whoever' >sMemory = 'whatever' >sStatus = 'yourstatus' >SQLExec(...) >Cetin
>>PROCEDURE HandleError(sAppName AS String, iErrNo AS Integer,; >> sErrMessage AS String, sLineOfCode AS String,; >> sProgram AS String, iLineNo AS int, sStack AS String) >> >>TEXT TO sSqlCommand NOSHOW >> >> insert into syserrors >> (datetime, error, line, message, codeline, program, >> [user], appname, memory, status, callstack) >> values >> (?tDateTime, ?iErrNo , ?iLineNo, ?sErrMessage, ?sLineOfCode, ?sProgram, >> ?sUserId, ?sAppName, ?sMemory, ?sStatus, ?sStack) >> >>ENDTEXT >>>>
>>>>sSqlCommand = "insert into syserrors "+; >>>> "(datetime, error, line, message, codeline, program," +; >>>> "user, appname, memory, status, callstack, notified)"+; >>>> " values "+; >>>> "("+ sDateTime + "," +; >>>> sErrNo + "," +; >>>> sLineNo + "," +; >>>> "'" + sErrMessage + "' ," +; >>>> "'" + sLineOfCode + "' ," +; >>>> "'" + sProgram + "' ," +; >>>> "'" + sUserId + "' ," +; >>>> "'" + sAppName + "' ," +; >>>> "'" + sMemory + "' ," +; >>>> "'" + sStatus + "' ," +; >>>> "'" + sStack + "' ," +; >>>>"0)" >>>>>>>>
>>>>insert into syserrors (datetime, error, line, message, codeline, program, user, appname, >>>>memory, status, callstack, notified) >>>>values >>>>(10/31/2005 07:40:27,1000,5000,'TEST MESSAGE' ,'TEST CODE LINE' ,'TEST PROGRAM' ,'KMAROIS' >>>>,'TEST' ,'' ,'' ,'TEST STACK' ,0) >>>>>>>>
>>>text to m.sSqlCommand noshow >>>insert into syserrors >>> (datetime, error, line, message, codeline, program, >>> user, appname, memory, status, callstack, notified) >>> values >>> (?m.sDateTime,?m.sErrNo ,?m.sLineNo, ?m.sErrMessage,... ) >>>endtext >>> >>>sDatetime = {^2005/10/31 07:40:27} >>>sErrno = 1000 >>>sLineNo = 5000 >>>... >>> >>>SQLExec(m.lnHandle, m.sSQLCommand) >>>Cetin