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

jj; endless errors pt. 2

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-26 17:08:20 +02:00
parent 65b5ac95e9
commit 531fba3cbc
2 changed files with 52 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Global_Indexer/ClassDatabase.vb
View File

@ -216,9 +216,8 @@ Public Class ClassDatabase
Public Shared Sub CatchDatabaseTimeout(ex As SqlException, sql_command As String) Public Shared Sub CatchDatabaseTimeout(ex As SqlException, sql_command As String)
Dim FatalErrors As New List(Of Integer) From {-1, -2, 121} Dim FatalErrors As New List(Of Integer) From {-1, -2, 121}
If DatabaseConnectionTimeout = False And FatalErrors.Contains(ex.Number) Then If FatalErrors.Contains(ex.Number) Then
DatabaseConnectionTimeout = True DatabaseConnectionTimeout = True
MsgBox($"Database could not be reached. Global Indexer will NOT work without a database!{vbCrLf}{vbCrLf}Please check your connection and restart.", MsgBoxStyle.Critical, "Critical Error")
ClassLogger.Add("Network timeout error in Return_Datatable: " & ex.Message, True) ClassLogger.Add("Network timeout error in Return_Datatable: " & ex.Message, True)
ClassLogger.Add("#SQL: " & sql_command, False) ClassLogger.Add("#SQL: " & sql_command, False)

12
Global_Indexer/frmStart.vb
View File

@ -671,10 +671,13 @@ Public Class frmStart
Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
If ClassDatabase.DatabaseConnectionTimeout = True Then If ClassDatabase.DatabaseConnectionTimeout = True Then
TimerFolderWatch.Enabled = False TimerFolderWatch.Enabled = False
ClassLogger.Add(">> Timer stopped because of database timeout error!", False)
Exit Sub
End If
Dim result = MsgBox($"Database could not be reached. Global Indexer will NOT work without a database!{vbCrLf}{vbCrLf}Please check your connection.{vbCrLf}The Application will exit now.", MsgBoxStyle.Critical, "Critical Error")
If result = MsgBoxResult.Ok Then
Application.ExitThread()
End If
Else
Try Try
If FW_started = True Or FWSCAN_started = True Then If FW_started = True Or FWSCAN_started = True Then
'Prüfen ob alle Files abgearbeitet wurden 'Prüfen ob alle Files abgearbeitet wurden
@ -719,6 +722,9 @@ Public Class frmStart
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End If
End Sub End Sub
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
If LICENSE_EXPIRED = True Or LICENSE_COUNT < UserLoggedin Then If LICENSE_EXPIRED = True Or LICENSE_COUNT < UserLoggedin Then