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

18
EDMDesigner/FrmConnection.vb
View File

@ -21,23 +21,15 @@ 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" My.Settings.Save()
lblConnectionStatus.BackColor = Color.Red
DialogResult = DialogResult.None MsgBox("Connection successful!", MsgBoxStyle.Information, "Database Connection")
Else
My.Settings.Save()
MsgBox("Connection successful!", MsgBoxStyle.Information, "Database Connection") lblConnectionStatus.Text = "Connection established!"
lblConnectionStatus.BackColor = Color.GreenYellow
lblConnectionStatus.Text = "Connection established!" DialogResult = DialogResult.OK
lblConnectionStatus.BackColor = Color.GreenYellow
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")