jj: Update TesTGUI & EDM Designer
This commit is contained in:
@@ -1,12 +1,13 @@
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class FrmConnection
|
||||
Public Property LogFactory As NLog.LogFactory
|
||||
Public Property LogConfig As LogConfig
|
||||
|
||||
Private _logger As NLog.Logger
|
||||
|
||||
Private Sub FrmConnection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
_logger = LogFactory.GetCurrentClassLogger()
|
||||
_logger = LogConfig.GetLogger()
|
||||
|
||||
FbDatabaseLocationTextBox.DataBindings.Add("Text", My.Settings, "fbDatabaseLocation")
|
||||
FbDatasourceTextBox.DataBindings.Add("Text", My.Settings, "fbDatasource")
|
||||
@@ -18,7 +19,7 @@ Public Class FrmConnection
|
||||
Dim dbTest As Firebird
|
||||
|
||||
Try
|
||||
dbTest = New Firebird(LogFactory, 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")
|
||||
|
||||
Reference in New Issue
Block a user