Removed useless class file

2017-12-06 22:58:52 -06:00
parent ab06db102c
commit 9a8350c2ed
1 changed files with 0 additions and 35 deletions
@@ -1,35 +0,0 @@
 Public Class mgrSession
    Private Shared Function MapToObject(ByVal dr As DataRow) As clsSession
        Dim oSession As New clsSession
        oSession.MonitorID = CStr(dr("MonitorID"))
        oSession.SessionStart = CStr(dr("Start"))
        oSession.SessionEnd = CStr(dr("End"))
        Return oSession
    End Function
    Private Shared Function SetCoreParameters(ByVal oSession As clsSession) As Hashtable
        Dim hshParams As New Hashtable
        hshParams.Add("MonitorID", oSession.MonitorID)
        hshParams.Add("Start", oSession.SessionStart)
        hshParams.Add("End", oSession.SessionEnd)
        Return hshParams
    End Function
    Public Shared Sub DoSessionAdd(ByVal oSession As clsSession, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
        Dim oDatabase As New mgrSQLite(iSelectDB)
        Dim sSQL As String
        Dim hshParams As Hashtable
        sSQL = "INSERT INTO sessions VALUES (@MonitorID, @Start, @End)"
        hshParams = SetCoreParameters(oSession)
        oDatabase.RunParamQuery(sSQL, hshParams)
    End Sub
 End Class