14 lines
400 B
VB.net
14 lines
400 B
VB.net
Public Class ClassUser
|
|
|
|
Public Shared Sub LogoutUser()
|
|
Try
|
|
Dim SQL
|
|
SQL = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_GUID} AND MODULE = 'Record-Organizer'"
|
|
ClassDatabase.Execute_non_Query(sql)
|
|
Catch ex As Exception
|
|
LOGGER.Warn("Error while logging out user: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
End Class
|