Imports DeveloperMeeting
Imports DeveloperMeeting.DataProvider
Namespace EventLog
    Public NotInheritable Class WebEvents

#Region " Constructor "
        Public Sub New(ByVal ConnectionString As String)
            _ConnectionString = ConnectionString
            DSEventLog = SqlDataProvider.FillDataSet(ConnectionString, _
            "DM_WebEvent_GetLogEvent", _
			CommandType.StoredProcedure, Nothing)
        End Sub
#End Region
#Region " Declarations "
        Dim DSEventLog As New DataSet
        Dim _ConnectionString As String
#End Region

#Region " Propreties "
        Public ReadOnly Property Count() As Integer
            Get
                Return DSEventLog.Tables(0).Rows.Count
            End Get
        End Property
#End Region

#Region " GetEventLog Method "
        Public Function GetEventLog(ByVal Index As Integer) As [Event]
            Dim Return_Value As New [Event]
            With Return_Value
                .EventID = DSEventLog.Tables(0).Rows(Index)("EventId")
                .EventTimeUtc = DSEventLog.Tables(0).Rows(Index)("EventTimeUtc")
                .EventTime = DSEventLog.Tables(0).Rows(Index)("EventTime")
                .EventType = DSEventLog.Tables(0).Rows(Index)("EventType")
                .EventSequence = DSEventLog.Tables(0).Rows(Index)("EventSequence")
                .EventOccurrence = DSEventLog.Tables(0).Rows(Index)("EventOccurrence")
                .EventCode = DSEventLog.Tables(0).Rows(Index)("EventCode")
                .EventDetailCode = DSEventLog.Tables(0).Rows(Index)("EventDetailCode")
                .Message = IIf(DSEventLog.Tables(0).Rows(Index)("Message") Is DBNull.Value, _
			vbNullString, DSEventLog.Tables(0).Rows(Index)("Message"))
                .ApplicationPath = IIf(DSEventLog.Tables(0).Rows(Index)("ApplicationPath") _
			Is DBNull.Value, vbNullString, DSEventLog.Tables(0).Rows(Index)
			("ApplicationPath"))
                .ApplicationVirtualPath = IIf(DSEventLog.Tables(0).Rows(Index) _
			("ApplicationVirtualPath") Is DBNull.Value, vbNullString, _
			DSEventLog.Tables(0).Rows(Index)("ApplicationVirtualPath"))
                .MachineName = DSEventLog.Tables(0).Rows(Index)("MachineName")
                .RequestUrl = IIf(DSEventLog.Tables(0).Rows(Index)("RequestUrl") _
			Is DBNull.Value, vbNullString, DSEventLog.Tables(0).Rows(Index)("RequestUrl"))
                .ExceptionType = IIf(DSEventLog.Tables(0).Rows(Index)("ExceptionType") _
			Is DBNull.Value, vbNullString, DSEventLog.Tables(0).Rows(Index) _
			("ExceptionType"))
                .Details = IIf(DSEventLog.Tables(0).Rows(Index)("Details") Is DBNull.Value, _
			vbNullString, DSEventLog.Tables(0).Rows(Index)("Details"))
            End With
            Return Return_Value
        End Function

        Public Function GetEventLog() As DataSet
            Return DSEventLog
        End Function
#End Region

#Region " ClearAllEvent Method "
        Public Sub ClearAllEvent()
            SqlDataProvider.ExecuteQuery(_ConnectionString, "DM_WebEvent_ClearAllEvent", _
			CommandType.StoredProcedure, Nothing)
        End Sub
#End Region

    End Class
End Namespace