74 lines
2.6 KiB
VB.net
74 lines
2.6 KiB
VB.net
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class ClassData
|
|
Private _logger As Logger
|
|
Private _database As MSSQLServer
|
|
|
|
Public Sub New(LogConfig As LogConfig, Database As MSSQLServer)
|
|
_logger = LogConfig.GetLogger()
|
|
_database = Database
|
|
End Sub
|
|
|
|
Private Function IntToBool(int As Integer) As Boolean
|
|
Return int >= 1
|
|
End Function
|
|
|
|
Private Function BoolToInt(bool As Boolean) As Integer
|
|
Return IIf(bool, 1, 0)
|
|
End Function
|
|
|
|
Public Function GroupExists(groupName As String) As Boolean
|
|
Try
|
|
Dim sql As String = $"SELECT COUNT(GUID) FROM TBDD_GROUPS WHERE NAME = '{groupName}'"
|
|
Dim result = _database.GetScalarValue(sql)
|
|
|
|
Return IntToBool(result)
|
|
Catch ex As Exception
|
|
_logger.Error($"Error in GroupExists: {ex.Message}")
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
Public Function UserExists(userName As String) As Boolean
|
|
Try
|
|
Dim sql As String = $"SELECT COUNT(GUID) FROM TBDD_USER WHERE USERNAME = '{userName}'"
|
|
Dim result = _database.GetScalarValue(sql)
|
|
|
|
Return IntToBool(result)
|
|
Catch ex As Exception
|
|
_logger.Error($"Error in UserExists: {ex.Message}")
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
Public Function InsertUser(username As String, prename As String, name As String, email As String)
|
|
Try
|
|
Dim addedWho As String = Environment.UserName
|
|
|
|
Dim sql As String = $"INSERT INTO TBDD_USER (PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO)
|
|
VALUES ('{prename}','{name}','{username}','{email}','{addedWho}')"
|
|
Dim result = _database.ExecuteNonQuery(sql)
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
_logger.Error(ex)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Function InsertGroup(name As String, Optional ECM_FK_ID As Integer = 1, Optional adSync As Boolean = True, Optional internal As Boolean = False, Optional active As Boolean = True)
|
|
Try
|
|
Dim addedWho As String = Environment.UserName
|
|
Dim sql As String = $"INSERT INTO TBDD_GROUPS (NAME, ADDED_WHO, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE)
|
|
VALUES ('{name}', '{addedWho}', {ECM_FK_ID}, {BoolToInt(adSync)}, {BoolToInt(internal)}, {BoolToInt(active)} )"
|
|
Dim result = _database.ExecuteNonQuery(sql)
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
_logger.Error(ex)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
End Class
|