32 lines
1.3 KiB
VB.net
32 lines
1.3 KiB
VB.net
Imports Modules.Database
|
|
|
|
Public Class FrmConnection
|
|
Private Sub FrmConnection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
FbDatabaseLocationTextBox.DataBindings.Add("Text", My.Settings, "fbDatabaseLocation")
|
|
FbDatasourceTextBox.DataBindings.Add("Text", My.Settings, "fbDatasource")
|
|
FbUserTextBox.DataBindings.Add("Text", My.Settings, "fbUser")
|
|
FbPasswordTextBox.DataBindings.Add("Text", My.Settings, "fbPassword")
|
|
End Sub
|
|
|
|
Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
|
|
My.Settings.Save()
|
|
|
|
Dim dbTest As New Firebird(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
|
|
MsgBox("Connection successful!", MsgBoxStyle.Information, "Database Connection")
|
|
|
|
lblConnectionStatus.Text = "Connection established!"
|
|
lblConnectionStatus.BackColor = Color.GreenYellow
|
|
|
|
DialogResult = DialogResult.OK
|
|
End If
|
|
End Sub
|
|
End Class |