31 lines
1003 B
VB.net
31 lines
1003 B
VB.net
Imports NLog
|
|
Imports DigitalData.Modules.Database
|
|
|
|
|
|
Public Class FrmNewTable
|
|
Private _logFactory As LogFactory
|
|
Private _logger As Logger
|
|
Private _db As Firebird
|
|
|
|
Public Sub New(LogFactory As LogFactory)
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
_logFactory = LogFactory
|
|
_logger = _logFactory.GetCurrentClassLogger()
|
|
End Sub
|
|
|
|
Private Sub FrmNewTable_Load(sender As Object, e As KeyEventArgs) Handles Me.Load
|
|
Try
|
|
_db = New Firebird(_logFactory, My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)
|
|
Catch ex As Exception
|
|
MsgBox("Connection to DB failed!", MsgBoxStyle.Critical)
|
|
_logger.Error(ex)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
|
|
End Sub
|
|
End Class |