AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS SearchForm Dev

Browse Source
This commit is contained in:
SchreiberM
2020-08-21 11:34:35 +02:00
parent 50d82dc1fd
commit d96882ce77
8 changed files with 334 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Modules.Database/MSSQLServer.vb
View File

@@ -122,9 +122,7 @@ Public Class MSSQLServer
End Using
End Using
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn("GetDatatable failed with:")
_Logger.Warn("SQL Query: {0}", SqlCommand)
_Logger.Warn($"GetDatatable failed SQLCommand [{SqlCommand}] - ERROR: {ex.Message}")
Return Nothing
End Try
End Function
@@ -153,10 +151,8 @@ Public Class MSSQLServer
End Using
End Using
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn("GetDatatableWithConnection failed with:")
_Logger.Warn("ConnectionString: ")
_Logger.Warn("SQL Query: {0}", SqlCommand)
_Logger.Warn($"GetDatatableWithConnection failed SQLCommand [{SqlCommand}] - ERROR: {ex.Message}")
Return Nothing
End Try
End Function
@@ -178,9 +174,8 @@ Public Class MSSQLServer
End Using
End Using
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn("ExecuteNonQuery failed:")
_Logger.Warn("SQL Query: " & SQLCommand)
_Logger.Warn($"ExecuteNonQuery failed SQLCommand [{SQLCommand}] - ERROR: {ex.Message}")
Return False
End Try
End Function
@@ -202,7 +197,8 @@ Public Class MSSQLServer
SQLconnect.Close()
Return True
Catch ex As Exception
_Logger.Warn($"Unexpected Error in Execute_non_Query_ConStr{pInfo}: {ex.Message} [{pSQLCommand}]")
_Logger.Warn($"ExecuteNonQueryCS failed SQLCommand [{pSQLCommand}] - ERROR: {ex.Message}")
Return False
End Try
End Function
@@ -228,8 +224,8 @@ Public Class MSSQLServer
End Using
End Using
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn("SQLQuery: " & SQLCommand)
_Logger.Warn($"GetScalarValue failed SQLCommand [{SQLCommand}] - ERROR: {ex.Message}")
Return Nothing
End Try
End Function
@@ -255,8 +251,7 @@ Public Class MSSQLServer
End Using
End Using
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn("SQLQuery: " & SQLCommand)
_Logger.Warn($"GetScalarValueWithConnection failed SQLCommand [{SQLCommand}] - ERROR: {ex.Message}")
Return Nothing
End Try
End Function
@@ -286,8 +281,8 @@ Public Class MSSQLServer
Return SQLCommand.Parameters(OutputParameter).Value
End Using
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn("SQLQuery: " & SQLCommand.CommandText)
_Logger.Warn($"GetScalarValue failed SQLCommand [{SQLCommand}] - ERROR: {ex.Message}")
Return Nothing
End Try
End Function
@@ -310,7 +305,7 @@ Public Class MSSQLServer
SQLconnect.Close()
Return result
Catch ex As Exception
_Logger.Warn($"Unexpected Error in Execute_Scalar_ConStr{pInfo}: {ex.Message} [{pSQLCommand}]")
_Logger.Warn($"GetScalarValueConStr failed SQLCommand [{pSQLCommand}] - ERROR: {ex.Message}")
Return Nothing
End Try
End Function
@@ -343,8 +338,8 @@ Public Class MSSQLServer
End Using
End Using
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn("executeStatement: " & SqlCommand)
_Logger.Warn($"NewExecuteNonQueryAsync failed SQLCommand [{SqlCommand}] - ERROR: {ex.Message}")
End Try
End Sub

4
Modules.Database/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.8")>
<Assembly: AssemblyFileVersion("1.1.0.0")>
<Assembly: AssemblyVersion("1.2.0.0")>
<Assembly: AssemblyFileVersion("1.2.0.0")>