MS

app/DD-Record-Organizer/ClassDatabase.vb

@@ -76,6 +76,7 @@ Public Class ClassDatabase
             SQLcommand.CommandTimeout = 180
             Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
             Dim dt As DataTable = New DataTable()
+
             adapter1.Fill(dt)
             SQLconnect.Close()
 
@@ -84,8 +85,12 @@ Public Class ClassDatabase
             Return dt
         Catch ex As Exception
             MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", ex.Message & " - SQL: " & Select_anweisung
             ClassLogger.Add("Error in Return_Datatable: " & ex.Message, True)
             ClassLogger.Add(">> SQL: " & Select_anweisung, False)
+            If (ex.Message.Contains("Ungültiger Objektname") Or ex.Message.Contains("Invalid Object Name")) And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
+                MsgBox("A database-object could not be found but synchronization of Proxyserver might be in action! So please try again in a few seconds/minutes!", MsgBoxStyle.Exclamation)
+            End If
             Return Nothing
         End Try
     End Function
@@ -217,6 +222,7 @@ Public Class ClassDatabase
             'End If
             ClassLogger.Add("Error in Execute_non_Query: " & ex.Message)
             ClassLogger.Add("SQL: " & ExecuteCMD)
+
             Return False
         End Try
     End Function