Modules.Database
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
Imports DD_FirebirdDLL
|
||||
Imports Modules.Database
|
||||
|
||||
Public Class FrmConnection
|
||||
Private Sub FrmConnection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
@@ -11,7 +11,7 @@ Public Class FrmConnection
|
||||
Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
|
||||
My.Settings.Save()
|
||||
|
||||
Dim dbTest As New ClassFirebird(My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)
|
||||
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")
|
||||
|
||||
Reference in New Issue
Block a user