Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 349 fois - Téléchargée 33 fois
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.