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

jj 26.06

Browse Source
This commit is contained in:
Jonathan Jenne
2017-06-26 15:46:57 +02:00
parent cc25b8d3aa
commit bddcc0adeb
24 changed files with 3671 additions and 2832 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Global_Indexer/frmSQLSuggestion.vb
View File

@@ -42,7 +42,12 @@ Public Class frmSQLSuggestion
adapter.Dispose()
sqlCmd.Dispose()
sqlCnn.Close()
MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurde auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
Else
MsgBox("The following data was successfully retrieved: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "The Result was truncated to 30 Lines!", MsgBoxStyle.Information)
End If
ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then
Dim sqlCnn As OracleConnection
@@ -65,14 +70,26 @@ Public Class frmSQLSuggestion
adapter.Dispose()
sqlCmd.Dispose()
sqlCnn.Close()
MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurde auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information)
Else
MsgBox("The following data was successfully retrieved: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "The Result was truncated to 30 Lines!", MsgBoxStyle.Information)
End If
End If
Else
MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation)
Else
MsgBox("No valid ConnectionID", MsgBoxStyle.Exclamation)
End If
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
ClassLogger.Add(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
End Try
End Sub
@@ -123,7 +140,12 @@ Public Class frmSQLSuggestion
cmd = "UPDATE TBDD_INDEX_MAN SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',SQL_CHECK = '" & inscheckstring & "',CHANGED_WHO = '" & _
Environment.UserName & "' WHERE GUID = " & CURRENT_INDEXMAN
If ClassDatabase.Execute_non_Query(cmd, True) = True Then
lblSave.Text = "SQL-Daten erfolgreich gespeichert - " & Now
If USER_LANGUAGE = "de-DE" Then
lblSave.Text = "SQL-Daten erfolgreich gespeichert - " & Now
Else
lblSave.Text = "SQL-Data successfully saved - " & Now
End If
Me.lblSave.Visible = True
Else
Me.lblSave.Visible = False
@@ -131,7 +153,11 @@ Public Class frmSQLSuggestion
Else
Me.lblSave.Visible = True
lblSave.Text = "Keine Änderungen vorhanden"
If USER_LANGUAGE = "de-DE" Then
lblSave.Text = "Keine Änderungen vorhanden"
Else
lblSave.Text = "No changes"
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Save SQl IndexMan:")
@@ -145,6 +171,12 @@ Public Class frmSQLSuggestion
If DTNB.Rows.Count > 0 Then
Dim value As String = ClassPostprocessing.Get_Nachbearbeitung_Wert(txtTest_idxMan.Text, DTNB)
MsgBox("Der Rückgabewert - nach Durchlaufen von (" & DTNB.Rows.Count.ToString & ") Nachbearbeitungsfunktionen lautet: '" & value & "'", MsgBoxStyle.Exclamation)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Der Rückgabewert - nach Durchlaufen von (" & DTNB.Rows.Count.ToString & ") Nachbearbeitungsfunktionen lautet: '" & value & "'", MsgBoxStyle.Exclamation)
Else
MsgBox("The Resultvalue - after processing (" & DTNB.Rows.Count.ToString & ") Postprocessingfunctions is: '" & value & "'", MsgBoxStyle.Exclamation)
End If
End If
End If
End Sub