ES

EventLogLoaderManager/Form1.Designer.vb

@@ -107,9 +107,9 @@ Partial Class Form1
         Me.Label1.ForeColor = System.Drawing.Color.Maroon
         Me.Label1.Location = New System.Drawing.Point(8, 9)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(507, 17)
+        Me.Label1.Size = New System.Drawing.Size(450, 17)
         Me.Label1.TabIndex = 3
-        Me.Label1.Text = "Строка соединения с базой данных MS SQL для записи событий ЖР"
+        Me.Label1.Text = "Строка соединения с базой данных для записи событий ЖР"
         '
         'Button4
         '
@@ -157,7 +157,7 @@ Partial Class Form1
         'DBType
         '
         Me.DBType.FormattingEnabled = True
-        Me.DBType.Items.AddRange(New Object() {"MS SQL Server", "MySQL"})
+        Me.DBType.Items.AddRange(New Object() {"MS SQL Server", "MySQL", "ElasticSearch"})
         Me.DBType.Location = New System.Drawing.Point(9, 29)
         Me.DBType.Name = "DBType"
         Me.DBType.Size = New System.Drawing.Size(112, 21)

EventLogLoaderManager/Form1.vb

@@ -386,11 +386,15 @@ Public Class Form1
                 objConn.Open()
                 Dim command As New MySqlCommand("SELECT 1", objConn)
                 command.ExecuteReader()
-            Else
+            ElseIf DBType.Text = "MSSQL" Then
                 Dim objConn As New SqlConnection(ConnectionStringBox.Text.Trim)
                 objConn.Open()
                 Dim command As New SqlCommand("SELECT 1", objConn)
                 command.ExecuteReader()
+            ElseIf DBType.Text = "ElasticSearch" Then
+
+
+
             End If
 
             MsgBox("Подключение выполнено успешно!", , Text)
@@ -493,5 +497,4 @@ Public Class Form1
 
     End Sub
 
-
 End Class

EventLogLoaderService/Service1.vb

@@ -519,8 +519,9 @@ Public Class EventLogLoaderService
         Public LastEventNumber83 As Integer = 0
 
         Public ConnectionString As String
-        Public ItIsMSSQL As String
-        Public ItIsMySQL As String
+        Public ItIsMSSQL As Boolean
+        Public ItIsMySQL As Boolean
+        Public ItIsES As Boolean
 
         Sub CreateStr(ByRef Str As String, LastLvl As Integer, Arr() As Object)