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

jj: update EDMDesigner

Browse Source
This commit is contained in:
Jonathan Jenne 2018-11-16 12:15:37 +01:00
parent 4858bb2be5
commit 83a63ff25d
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
EDMDesigner/FrmConnection.vb
View File

@ -21,14 +21,7 @@ Public Class FrmConnection
Try Try
dbTest = New Firebird(LogConfig, My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword) dbTest = New Firebird(LogConfig, My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)
If dbTest.ConnectionFailed Then
MsgBox("Connection failed!", MsgBoxStyle.Information, "Database Connection")
lblConnectionStatus.Text = "No connection established"
lblConnectionStatus.BackColor = Color.Red
DialogResult = DialogResult.None
Else
My.Settings.Save() My.Settings.Save()
MsgBox("Connection successful!", MsgBoxStyle.Information, "Database Connection") MsgBox("Connection successful!", MsgBoxStyle.Information, "Database Connection")
@ -37,7 +30,6 @@ Public Class FrmConnection
lblConnectionStatus.BackColor = Color.GreenYellow lblConnectionStatus.BackColor = Color.GreenYellow
DialogResult = DialogResult.OK DialogResult = DialogResult.OK
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Connection failed!", MsgBoxStyle.Information, "Database Connection") MsgBox("Connection failed!", MsgBoxStyle.Information, "Database Connection")