jj: fix endless errors on db timeout \o/

Global_Indexer/frmStart.vb

@@ -347,7 +347,7 @@ Public Class frmStart
 
                                     End If
                                 End If
-                                
+
 
                             Catch ex As Exception
                                 MsgBox("Unexpected Error in Abort Indexing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -424,7 +424,7 @@ Public Class frmStart
 
         Try
 
-          
+
             'Dim sql = sql_UserID
 
             'Dim splash As New frmSplash()
@@ -669,11 +669,18 @@ Public Class frmStart
     End Sub
 
     Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
+        If ClassDatabase.DatabaseConnectionTimeout = True Then
+            TimerFolderWatch.Enabled = False
+            ClassLogger.Add(">> Timer stopped because of database timeout error!", False)
+            Exit Sub
+        End If
+
         Try
             If FW_started = True Or FWSCAN_started = True Then
                 'Prüfen ob alle Files abgearbeitet wurden
                 Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
                 DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
+
                 If DTACTUAL_FILES.Rows.Count > 0 Then
                     ABORT_INDEXING = False
                     ' Dim fil As String