>>Hi,
>>
>>I have a single user DOS application which I am now allowing to have a second user with read only rights. Some temporary tables created with sql selects (a cursor won't do since I need to chage some fields) have fixed names and sometimes lead to "sharing violation" errors in Windows 95. Since the goal is not to have to change too much of the code, I need to trap these errors, but don't know how to do it does anybody know how ?
>>
>>TIA,
>>
>>Alex
>
>You can do it by creating Error Procedure trapping.
>
>1. Issue ON ERROR DO errorproc WITH MESSAGE, ERROR() on you main program.
>2. Your errorproc should be like this:
>
>Procedure errorproc
>PARAMETERS cmessage, nerror
>
>* Where:
>* nerror is error no. returned when error occurs.
>
>DO CASE
>CASE nerror = some_value
>DO ACTION HERE
>CASE nerror = some_value
>DO ACTION HERE
>....
>ENDCASE
>
>HTH
Well Currently my Error handler is coping from VFP help:
ON ERROR DO errhand WITH ;
ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
LPARAMETERS merror, mess, mess1, mprog, mlineno
CLEAR
=MessageBox('Error number: ' + LTRIM(STR(merror)) + chr(13) +;
'Error message: ' + mess + chr(13) +;
'Line of code with error:' + repl(chr(13),2) + [> ] + mess1 + repl(chr(13),2) +;
'Line number of error: ' + ALLTRIM(STR(mlineno)) + chr(13) +;
'Program with error: ' + mprog, 48, "Error Message Found!!")of cos, you can add do case to handle some special error number or
put the code into the Error Procedure.
Well, for putting object.error() I would call the fullname.prg
function FullName( roObject )
if ( ( type( "roObject" ) == 'O' ) and ! isnull( m.roObject ) )
if ( ( type( "roObject.Parent" ) == 'O' ) and ;
( roObject.Name != "Microsoft Visual FoxPro" ) )
return ( FullName( roObject.Parent ) + "." + roObject.Name )
else
return roObject.Name
endif
else
return ""
endifThen, the object.error will be:
LPARAMETERS nError, cMethod, nLine
messagebox('Object: '+fullname(This)+chr(13)+'Method: '+cMethod+chr(13)+;
'Error Line: '+ltrim(str(nLine)))
The weak wait for chance, The strong bid for chance,
The clever notch up chance, but The merciful give you chance.
