Database: Version 2.3.3.0

Base/Base.vbproj

@@ -79,6 +79,7 @@
     <Compile Include="IDB\Attributes.vb" />
     <Compile Include="IDB\Database.vb" />
     <Compile Include="IDB\FileStore.vb" />
+    <Compile Include="Language.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>

Base/Language.vb

@@ -0,0 +1,32 @@
+Imports System.Globalization
+Imports System.Threading
+Imports DigitalData.Modules.Logging
+
+Public Class Language
+    Public Shared Sub SetApplicationLanguage(pLogger As Logger, pUserLanguage As String, Optional pUserDateFormat As String = Nothing)
+        Try
+            pLogger.Debug("Setting application language..")
+
+            'Dim Culture = CultureInfo.CreateSpecificCulture(pUserLanguage)
+            Dim Culture As New CultureInfo(pUserLanguage)
+            Culture.DateTimeFormat.ShortDatePattern = pUserDateFormat
+
+            pLogger.Debug("Culture object for language [{0}] created", pUserLanguage)
+
+            ' The following line provides localization for data formats.
+            Thread.CurrentThread.CurrentCulture = Culture
+            ' The following line provides localization for the application's user interface.
+            Thread.CurrentThread.CurrentUICulture = Culture
+
+            ' Set this culture as the default culture for all threads in this application. 
+            ' Note: The following properties are supported in the .NET Framework 4.5+
+            CultureInfo.DefaultThreadCurrentCulture = Culture
+            CultureInfo.DefaultThreadCurrentUICulture = Culture
+
+            pLogger.Debug("Application language set to [{0}]", Culture.Name)
+        Catch ex As Exception
+            pLogger.Warn("Could not set application language!")
+            pLogger.Error(ex)
+        End Try
+    End Sub
+End Class

Base/My Project/AssemblyInfo.vb

@@ -12,8 +12,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("Base")>
-<Assembly: AssemblyCopyright("Copyright © 2022")>
+<Assembly: AssemblyCopyright("Copyright © 2023")>
-<Assembly: AssemblyTrademark("1.1.0.0")>
+<Assembly: AssemblyTrademark("1.2.0.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.1.0.0")>
+<Assembly: AssemblyVersion("1.2.0.0")>
-<Assembly: AssemblyFileVersion("1.1.0.0")>
+<Assembly: AssemblyFileVersion("1.2.0.0")>

Database/Adapters/MSSQLServer.vb

@@ -1,10 +1,7 @@
 Imports System.ComponentModel
-Imports System.Data.Common
 Imports System.Data.SqlClient
 Imports DigitalData.Modules.Encryption
 Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Base
-Imports System.Threading
 
 Public Class MSSQLServer
     Implements IDatabase
@@ -206,10 +203,13 @@ Public Class MSSQLServer
             Dim oDecryptedConnectionString = DecryptConnectionString(pConnectionString)
             Dim oConnection As New SqlConnection(oDecryptedConnectionString)
             OpenSQLConnection(oConnection)
-            oConnection.Close()
+            oConnection?.Close()
             Return True
+
         Catch ex As Exception
+            Logger.Error("Error while testing connection!")
             Logger.Error(ex)
+
             Return False
         End Try
     End Function
@@ -220,11 +220,18 @@ Public Class MSSQLServer
     ''' <param name="Connection"></param>
     ''' <returns></returns>
     Private Function OpenSQLConnection(Connection As SqlConnection) As SqlConnection
-        If Connection.State = ConnectionState.Closed Then
+        Try
-            Connection.Open()
+            If Connection.State = ConnectionState.Closed Then
-        End If
+                Connection.Open()
+            End If
 
-        Return Connection
+            Return Connection
+        Catch ex As Exception
+            Logger.Error("Error while opening Connection!")
+            Logger.Error(ex)
+
+            Throw ex
+        End Try
     End Function
 
     <DebuggerStepThrough()>
@@ -242,6 +249,7 @@ Public Class MSSQLServer
 
             Return oConnection
         Catch ex As Exception
+            Logger.Error("Connection could not be created or opened!")
             Logger.Error(ex)
 
             Return Nothing
@@ -260,7 +268,9 @@ Public Class MSSQLServer
             Dim oConnectionString = pConnectionString.Replace(oBuilder.Password, "XXXXX")
             Return oConnectionString
         Catch ex As Exception
+            Logger.Error("ConnectionString is invalid and could not be masked!")
             Logger.Error(ex)
+
             Return "Invalid ConnectionString"
         End Try
     End Function
@@ -345,8 +355,8 @@ Public Class MSSQLServer
             End Using
 
         Catch ex As Exception
+            Logger.Error("GetDatatableWithConnectionObject: Error in GetDatatableWithConnection while executing command: [{0}]", pSqlCommandObject.CommandText)
             Logger.Error(ex)
-            Logger.Warn("GetDatatableWithConnectionObject: Error in GetDatatableWithConnection while executing command: [{0}]", pSqlCommandObject.CommandText)
             Throw ex
         Finally
             MaybeCommitTransaction(oTransaction, pTransactionMode)
@@ -436,8 +446,9 @@ Public Class MSSQLServer
 
             Return True
         Catch ex As Exception
+            Logger.Error("ExecuteNonQueryWithConnectionObject: Error in ExecuteNonQueryWithConnectionObject while executing command: [{0}]", pSqlCommandObject.CommandText)
             Logger.Error(ex)
-            Logger.Warn("ExecuteNonQueryWithConnectionObject: Error in ExecuteNonQueryWithConnectionObject while executing command: [{0}]", pSqlCommandObject.CommandText)
+
             Return False
         Finally
             MaybeCommitTransaction(oTransaction, pTransactionMode)
@@ -518,7 +529,7 @@ Public Class MSSQLServer
 
         Try
 
-            Logger.Debug("GetScalarValueWithConnectionObject: Running Query [{0}] with Parameters [{1}]", pSqlCommandObject, GetParameterListAsString(pSqlCommandObject))
+            Logger.Debug("GetScalarValueWithConnectionObject: Running Query [{0}] with Parameters [{1}]", pSqlCommandObject.CommandText, GetParameterListAsString(pSqlCommandObject))
 
             pSqlCommandObject.Connection = pSqlConnection
             pSqlCommandObject.CommandTimeout = pTimeout
@@ -527,7 +538,7 @@ Public Class MSSQLServer
 
         Catch ex As Exception
             Logger.Error(ex)
-            Logger.Warn("GetDatatableWithConnectionObject: Error in GetDatatableWithConnection while executing command: [{0}]", pSqlCommandObject)
+            Logger.Error("GetDatatableWithConnectionObject: Error in GetDatatableWithConnection while executing command: [{0}]", pSqlCommandObject.CommandText)
 
         Finally
             MaybeCommitTransaction(oTransaction, pTransactionMode)
@@ -562,7 +573,7 @@ Public Class MSSQLServer
             End Using
         Catch ex As Exception
             Logger.Error(ex)
-            Logger.Warn($"GetScalarValue failed SQLCommand [{pSqlCommand}]")
+            Logger.Error($"GetScalarValue failed SQLCommand [{pSqlCommand}]")
 
             Return Nothing
         End Try
@@ -594,7 +605,7 @@ Public Class MSSQLServer
             End Using
         Catch ex As Exception
             Logger.Error(ex)
-            Logger.Warn($"NewExecuteNonQueryAsync failed SQLCommand [{SqlCommand}]")
+            Logger.Error($"NewExecuteNonQueryAsync failed SQLCommand [{SqlCommand}]")
 
         End Try
     End Sub

Database/My Project/AssemblyInfo.vb

@@ -12,8 +12,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Modules.Database")>
-<Assembly: AssemblyCopyright("Copyright © 2022")>
+<Assembly: AssemblyCopyright("Copyright © 2023")>
-<Assembly: AssemblyTrademark("2.3.1.0")>
+<Assembly: AssemblyTrademark("2.3.3.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.3.2.0")>
+<Assembly: AssemblyVersion("2.3.3.0")>
-<Assembly: AssemblyFileVersion("2.3.2.0")>
+<Assembly: AssemblyFileVersion("2.3.3.0")>