2023-09-20

EnvelopeGenerator.Common/Models/UserModel.vb

@@ -1,7 +1,5 @@
-Imports System.Data.SqlClient
-Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging
-Imports EnvelopeGenerator.Common.My.Resources
 
 Public Class UserModel
     Inherits BaseModel
@@ -36,4 +34,17 @@ Public Class UserModel
         End Try
     End Function
 
+    Public Function SelectUser(pUserID As Integer) As User
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[TBDD_USER] WHERE GUID = {pUserID}"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToUser).First
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
 End Class