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

Use Logger Module

Browse Source
This commit is contained in:
Jonathan Jenne
2019-04-16 14:01:35 +02:00
parent 4c86bd4c5c
commit 31bf65a5f0
37 changed files with 938 additions and 859 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/frmConnection.vb
View File

@@ -125,6 +125,7 @@ Public Class frmConnection
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:")
End Try
Case Else
@@ -133,6 +134,7 @@ Public Class frmConnection
End If
Catch ex As Exception
LOGGER.Error(ex)
Cursor = Cursors.Default
Dim template As String = ex.Message
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
@@ -149,6 +151,7 @@ Public Class frmConnection
MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler beim Speichern: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
@@ -159,6 +162,7 @@ Public Class frmConnection
load_connections()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Laden der Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -168,6 +172,7 @@ Public Class frmConnection
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION)
TBDD_CONNECTIONDataGridView.AutoResizeColumns()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Connections laden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -259,6 +264,7 @@ Public Class frmConnection
'End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Löschen Connection: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -321,6 +327,7 @@ Public Class frmConnection
connection.Close()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error while loading Databases. Default Database will be set!" & vbCrLf & ex.Message, MsgBoxStyle.Critical)
DD_LIB_Standards.clsLogger.Add("Error while loading Databases:" & ex.Message)
Finally