49 lines
1.9 KiB
VB.net
49 lines
1.9 KiB
VB.net
Imports DigitalData.Modules.Database
|
|
|
|
Public Class FrmConnection
|
|
Public Property LogFactory As NLog.LogFactory
|
|
|
|
Private _logger As NLog.Logger
|
|
|
|
Private Sub FrmConnection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
_logger = LogFactory.GetCurrentClassLogger()
|
|
|
|
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
|
|
Dim dbTest As Firebird
|
|
|
|
Try
|
|
dbTest = New Firebird(LogFactory, 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()
|
|
|
|
MsgBox("Connection successful!", MsgBoxStyle.Information, "Database Connection")
|
|
|
|
lblConnectionStatus.Text = "Connection established!"
|
|
lblConnectionStatus.BackColor = Color.GreenYellow
|
|
|
|
DialogResult = DialogResult.OK
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Connection failed!", MsgBoxStyle.Information, "Database Connection")
|
|
|
|
lblConnectionStatus.Text = "No connection established"
|
|
lblConnectionStatus.BackColor = Color.Red
|
|
|
|
DialogResult = DialogResult.None
|
|
End Try
|
|
End Sub
|
|
End Class |