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

30
Global_Indexer/frmSQL_Admin.vb
View File

@@ -14,7 +14,13 @@ Public Class frmSQL_Admin
BindingSource1.DataSource = dt
End If
Else
Dim result As MsgBoxResult = MsgBox("Bitte bestätigen Sie das Ausführen des SQL-Befehls?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
Dim result As MsgBoxResult
If USER_LANGUAGE = "de-DE" Then
result = MsgBox("Bitte bestätigen Sie das Ausführen des SQL-Befehls", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
Else
result = MsgBox("Please confirm the execution of the SQL-Query", MsgBoxStyle.YesNo, "Confirmation needed:")
End If
' wenn Speichern ja
If result = MsgBoxResult.Yes Then
Try
@@ -24,7 +30,13 @@ Public Class frmSQL_Admin
connection.Open()
Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection)
cmd.ExecuteNonQuery()
MsgBox("Der SQL-Befehl wurde erfolgreich ausgeführt!", MsgBoxStyle.Information, "Erfolgsmeldung:")
If USER_LANGUAGE = "de-DE" Then
MsgBox("Der SQL-Befehl wurde erfolgreich ausgeführt!", MsgBoxStyle.Information, "Erfolgsmeldung:")
Else
MsgBox("SQL-Query successfully executed", MsgBoxStyle.Information, "Success:")
End If
connection.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Datenbank-Connect:")
@@ -46,8 +58,12 @@ Public Class frmSQL_Admin
Try
With OpenFileDialog1
' Do
.Title = "Wählen Sie bitte die SQL-File:"
If USER_LANGUAGE = "de-DE" Then
.Title = "Wählen Sie bitte die SQL-Datei:"
Else
.Title = "Please select the SQL-File:"
End If
If .ShowDialog() = DialogResult.OK Then
Dim FILE_NAME As String = .FileName
Dim objReader As New System.IO.StreamReader(FILE_NAME)
@@ -78,7 +94,11 @@ Public Class frmSQL_Admin
If GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn) IsNot Nothing AndAlso GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn).ToString() <> String.Empty Then
Clipboard.SetText(GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn).ToString())
Else
MsgBox("The value in the selected cell is null or empty!", MsgBoxStyle.Information)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Der Wert in der ausgewählten Zelle ist Null oder Leer", MsgBoxStyle.Information)
Else
MsgBox("The value in the selected cell is null or empty!", MsgBoxStyle.Information)
End If
End If
End If
End Sub