CLASS : SUIVRE L'ACTIVITÉ DE SON SITE INTERNET

Imports System.Data.SqlClient
Imports System.Configuration

Namespace IO

    Public Class Logs

        Public Shared Sub AddEvent(ByVal titleEvent As String, Optional ByVal Priorite As Integer = 3)
            Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            Dim com As New SqlCommand("INSERT INTO AA_Events (EVT_TITLE,EVT_PRIO) VALUES ('" & Replace(titleEvent, "'", "''") & "'," & Priorite & ")", conn)
            Try
                conn.Open()
                com.ExecuteNonQuery()
            Catch ex As Exception

            Finally
                com = Nothing
                conn.Close()
                conn = Nothing
            End Try
        End Sub

        Public Shared Function GetEventsDay() As DataTable
            Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            Dim DataAdap As SqlDataAdapter
            Dim latable As New DataTable
            Try
                conn.Open()
                DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events WHERE dbo.trunc(EVT_DATE)=dbo.trunc(getdate()) ORDER BY EVT_DATE DESC", conn)
                DataAdap.Fill(latable)
            Catch ex As Exception

            Finally
                DataAdap.Dispose()
                DataAdap = Nothing
                conn.Close()
                conn = Nothing
            End Try
            Return latable
        End Function

        Public Shared Function GetEvents() As DataTable
            Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            Dim DataAdap As SqlDataAdapter
            Dim latable As New DataTable
            Try
                conn.Open()
                DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events ORDER BY EVT_DATE DESC", conn)
                DataAdap.Fill(latable)
            Catch ex As Exception

            Finally
                DataAdap.Dispose()
                DataAdap = Nothing
                conn.Close()
                conn = Nothing
            End Try
            Return latable
        End Function

        Public Shared Sub DelAllEvents()
            Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            Dim com As New SqlCommand("DELETE FROM AA_Events", conn)
            Try
                conn.Open()
                com.ExecuteNonQuery()
            Catch ex As Exception

            Finally
                com = Nothing
                conn.Close()
                conn = Nothing
            End Try
        End Sub

        Public Shared Sub DelEventsPRIO(ByVal Priorite As Integer)
            Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            Dim com As New SqlCommand("DELETE FROM AA_Events WHERE EVT_PRIO=" & Priorite.ToString, conn)
            Try
                conn.Open()
                com.ExecuteNonQuery()
            Catch ex As Exception

            Finally
                com = Nothing
                conn.Close()
                conn = Nothing
            End Try
        End Sub

        Public Shared Function GetEventsByPrio(ByVal Priorite As Integer) As DataTable
            Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            Dim DataAdap As SqlDataAdapter
            Dim latable As New DataTable
            Try
                conn.Open()
                DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events WHERE EVT_PRIO=" & Priorite.ToString & " ORDER BY EVT_DATE DESC", conn)
                DataAdap.Fill(latable)
            Catch ex As Exception

            Finally
                DataAdap.Dispose()
                DataAdap = Nothing
                conn.Close()
                conn = Nothing
            End Try
            Return latable
        End Function

    End Class

End Namespace