MS18042016
This commit is contained in:
@@ -151,7 +151,7 @@ Public Class frmConnections
|
||||
My.Settings.Save()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:")
|
||||
MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Unexpected error in Verbindungsaufbau Oracle:")
|
||||
End Try
|
||||
|
||||
Case Else
|
||||
@@ -163,7 +163,7 @@ Public Class frmConnections
|
||||
Catch ex As Exception
|
||||
Dim template As String = ex.Message
|
||||
Clipboard.SetDataObject(template)
|
||||
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message & vbNewLine & "Connection-String: " & vbNewLine & msg_string, MsgBoxStyle.Critical)
|
||||
MsgBox("Unexpected error inm Verbindungsaufbau: " & vbNewLine & ex.Message & vbNewLine & "Connection-String: " & vbNewLine & msg_string, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
@@ -214,7 +214,7 @@ Public Class frmConnections
|
||||
|
||||
Dim template As String = ex.Message
|
||||
Clipboard.SetDataObject(template)
|
||||
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
MsgBox("Unexpected error inm Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user