[RESOLVED] Catching Errors with a Errorhandler

[skrantz71]

Hi,

Does someone have a example to catch errors and log them to the Eventlog?

I would like to catch any error and pass them to my WriteToEventLog function.

If i use On Error , how could I catch the Error and pass it to my WriteToEventLog function?
I would like to catch the actual error



Public Function WriteToEventLog(ByVal entry As String, Optional ByVal appName As String = "CompanyName", Optional ByVal eventType As EventLogEntryType = EventLogEntryType.Information, Optional ByVal logName As String = "ProductName") As Boolean
'*************************************************************

'NAME: WriteToEventLog

'PURPOSE: Write to Event Log

'PARAMETERS: Entry - Value to Write

' AppName - Name of Client Application. Needed

' because before writing to event log, you must

' have a named EventLog source.

' EventType - Entry Type, from EventLogEntryType

' Structure e.g., EventLogEntryType.Warning,

' EventLogEntryType.Error

' LogNam1e: Name of Log (System, Application;

' Security is read-only) If you

' specify a non-existent log, the log will be

' created

'RETURNS: True if successful

'*************************************************************
Dim objEventLog As New EventLog

Try

'Register the Application as an Event Source

If Not EventLog.SourceExists(appName) Then
EventLog.CreateEventSource(appName, logName)
End If

'log the entry

objEventLog.Source = appName
objEventLog.WriteEntry(entry, eventType)

Return True

Catch Ex As Exception

Return False

End Try

End Function

[techgnome]

you are catching the error... that's what the "Catch ex As Exception" is.... that's your catch. Before you return, that's where you should be logging the error at.

OH, I see what you posted now... in that case, you have an example of how to catch errors.... it's the "Try...Catch...Finally" syntax.

-tg

[skrantz71]

you are catching the error... that's what the "Catch ex As Exception" is.... that's your catch. Before you return, that's where you should be logging the error at.

OH, I see what you posted now... in that case, you have an example of how to catch errors.... it's the "Try...Catch...Finally" syntax.

-tg

Yes you are right, but i want to pass the exeption to my WritetoEvenlog function..

and

i got this error when trying to convert it to string.
"Value of type 'System.Exception' cannot be converted to 'String"

Maybe my Iam on the wrong track..

My goal is to pass it to the eventlog.

Thanks

/Stefan

[skrantz71]

Like this

Dim ex as Exeption

On error goto Errorhandler


Sub Errorhandler (Error as exeption)

msgbox"Error blabla"

WriteToEventLog(Ex, "Myapp", EventLogEntryType.Error, "Application")

Exit Sub

[mickey_pt]

Just an example....

Dim myEvLog As New EventLog("MineLog", ".", "MySource")
        Try
            Dim i As Integer = Integer.MaxValue - 1
            'Something that raises an error
            i += 10
        Catch ex As Exception 'Error occurred
            myEvLog.WriteEntry(ex.Message, EventLogEntryType.Error)
 
        End Try

[techgnome]

no.....

Try
  'Do some code in here that could go wrong
Catch ex As Exception
  WriteToEventLog(Ex.Message, "Myapp", EventLogEntryType.Error, "Application")
End Try

It's exactly the same as the example that is in your logger that you posted.

-tg

[skrantz71]

Thanks!!!

So easy..

I Love this forum and all helpfull people!