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

fix flackering lol, add msgbox for missing doctype-module assignment, check for missing guid

Browse Source
This commit is contained in:
Jonathan Jenne
2020-03-25 10:49:58 +01:00
parent af4a126720
commit 2da647812a
2 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Global_Indexer/ClassDatabase.vb
View File

@@ -18,7 +18,7 @@ Public Class ClassDatabase
Return True
Catch ex As Exception
LOGGER.Info("Unexpected error in Database-Init: " & ex.Message)
LOGGER.Error(ex.Message)
LOGGER.Error(ex)
Return False
End Try
End Function
@@ -95,7 +95,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & sql_command)
End If
@@ -104,7 +104,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Return_Datatable: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & sql_command)
Return Nothing
End Try
@@ -134,7 +134,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & sql_command)
End If
@@ -143,7 +143,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Return_Datatable_CS: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & sql_command)
Return Nothing
End Try
@@ -172,7 +172,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & sql_command)
End If
@@ -181,7 +181,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & sql_command)
Return False
@@ -212,7 +212,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Execute_non_Query: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & sql_command)
End If
@@ -221,7 +221,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Execute_Scalar: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & sql_command)
Return Nothing
End Try
@@ -264,7 +264,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in OracleExecute_non_Query: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & ExecuteCMD)
Return False
@@ -289,7 +289,7 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
LOGGER.Info("Unexpected error in Oracle_Return_Datatable: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("#SQL: " & Select_anweisung)
Return Nothing
End Try