Update attachment filename to fix length and character errors in windream
This commit is contained in:
@@ -1,10 +1,12 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.Configuration
|
||||
Imports System.IO
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports DigitalData.EMLProfiler
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.Messaging
|
||||
Imports NLog.Config
|
||||
|
||||
Public Class frmMain
|
||||
Private Logger As DigitalData.Modules.Logging.Logger
|
||||
@@ -170,7 +172,9 @@ Public Class frmMain
|
||||
End If
|
||||
Logger.Debug($"SQL-Server ConnString is [{_SQLServerConString}]")
|
||||
|
||||
_database = New MSSQLServer(LogConfig, _SQLServerConString)
|
||||
|
||||
Logger.Debug("Inititalizing Configuration")
|
||||
_ConfigManager = New ClassConfig(LogConfig, _database)
|
||||
_Config = _ConfigManager.GetConfig()
|
||||
|
||||
@@ -187,13 +191,14 @@ Public Class frmMain
|
||||
tslblstatus.Text = "Please add a connection!"
|
||||
tslblstatus.BackColor = Color.Red
|
||||
End If
|
||||
If dbResult = False Then
|
||||
If _database.DBInitialized = False Then
|
||||
MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical, Text)
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Init Database:")
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Reference in New Issue
Block a user