Imports FirebirdSql.Data.FirebirdClient

Public Partial Class MainForm
   
   Private Shared CNN As FbConnection
   
   Public Sub New()
      ' The Me.InitializeComponent call is required for Windows Forms designer support.
      Me.InitializeComponent()
      Open()
   End Sub
   
   Private Sub Open()
'      ' открытие БД используя полноприводный сервер - коннект ЕСТЬ
'      Dim CSB As New FbConnectionStringBuilder()
'      CSB.DataSource = "LOCALHOST"
'      CSB.Database = "LOT"
'      CSB.Dialect = 3
'      CSB.UserID = "GAMER"
'      CSB.Password = "777"
'      CSB.Role = "GAMERS"
'      CSB.Charset = "WIN1251"
'      Dim strCNN As String = CSB.ConnectionString
      
      ' открытие БД используя embedded - коннекта НЕТУ
      Dim CSB As New FbConnectionStringBuilder()
      CSB.Database = Application.StartupPath & "\LOT.FDB"
      CSB.Dialect = 3
      CSB.UserID = "GAMER"
      CSB.Role = "GAMERS"
      CSB.Charset = "WIN1251"
      CSB.ServerType = FbServerType.Embedded
      CSB.ClientLibrary = "fbclient.dll"  'Без этого не компилится - The error is: Unable to load DLL 'fbembed': Не найден указанный модуль. 
      Dim strCNN As String = CSB.ConnectionString
      
      Debug.Print(strCNN)
      CNN = New FbConnection(strCNN)
      Try
         CNN.Open()
         Debug.Print("Open")
         CNN.Close()
         Debug.Print("Close")
      Catch ex As FbException
         Debug.Print(ex.ToString())
      End Try
   End Sub
   
End Class