CONEXÃO BASE DADOS EM REDE. FIREBIRD 2.5

MOREIRA 05/08/2017 21:20:46
#475620
Boa noite,

consigo acessar a base de dados localmente sem problema,

já em rede, não consigo..

testei a conexão pigando, funcionando sem perdas.

localizando a base de dados pela rede, localizando normal,

já não consigo acessar a base de dados..

retorna o error

minha conexão

  Imports FirebirdSql.Data.FirebirdClient
Imports System.Text.RegularExpressions

Module modBanco

    Public strConexao As FbConnection = New FbConnection([Ô]User=SYSDBA;Password=masterkey;Database=\\LUNOS\C:\LUNOS\SCI\bin\Debug\BDADOS.FDB;DataSource=192.168.0.30;Port=3050;Dialect=3;[Ô])

    Public Sub ConectarBD()

        Try
            If strConexao.State = ConnectionState.Closed Then
                Cursor.Current = Cursors.WaitCursor
                strConexao.Open()
                Cursor.Current = Cursors.Default
            End If
        Catch ex As Exception
            MsgBox([Ô]O programa não conseguiu abrir a base de dados devido ao seguinte erro:[Ô] & Chr(13) & Chr(13) & [Ô][ô][ô][Ô] & ex.Message.ToUpper & [Ô][ô][ô].[Ô] & Chr(13) & Chr(13) & [Ô]Entre em contato com o suporte informando o código de erro [ô][ô][Ô] & ex.HResult & [Ô][ô][ô]. O sistema será finalizado![Ô], MsgBoxStyle.Exclamation, [Ô]Erro [Ô] & ex.HResult)
        End Try

    End Sub

End Module

MARCELOKROL 05/08/2017 22:47:21
#475621
Assim deve funcionar:
  
Public strConexao As FbConnection = New FbConnection([Ô]User=SYSDBA;Password=masterkey;Database=C:\LUNOS\SCI\bin\Debug\BDADOS.FDB;DataSource=192.168.0.30;Port=3050;Dialect=3;[Ô])


Mas aconselho fazer assim:
  
 Dim sb As New FbConnectionStringBuilder()
            sb.Database = [Ô]C:\LUNOS\SCI\bin\Debug\BDADOS.FDB[Ô]
            sb.UserID = [Ô]SYSDBA[Ô]
            sb.Password = [Ô]masterkey[Ô]
            sb.Dialect = 3
            sb.Port = 3050
            sb.DataSource = [Ô]192.168.0.30[Ô]
Public strConexao As FbConnection = New FbConnection(sb.ToString)
MOREIRA 06/08/2017 20:01:54
#475628
Citação:

:
Assim deve funcionar:

  
Public strConexao As FbConnection = New FbConnection([Ô]User=SYSDBA;Password=masterkey;Database=C:LUNOSSCIinDebugBDADOS.FDB;DataSource=192.168.0.30;Port=3050;Dialect=3;[Ô])


Mas aconselho fazer assim:
  
 Dim sb As New FbConnectionStringBuilder()
            sb.Database = [Ô]C:LUNOSSCIinDebugBDADOS.FDB[Ô]
            sb.UserID = [Ô]SYSDBA[Ô]
            sb.Password = [Ô]masterkey[Ô]
            sb.Dialect = 3
            sb.Port = 3050
            sb.DataSource = [Ô]192.168.0.30[Ô]
Public strConexao As FbConnection = New FbConnection(sb.ToString)



Boa noite..

 Public Function GetconnectionFirebirdfb() As FbConnection

        stringconexao.ServerType = FbServerType.Default
        stringconexao.DataSource = [Ô]192.168.0.20[Ô]
        stringconexao.UserID = [Ô]SYSDBA[Ô]
        stringconexao.Port = 3050
        stringconexao.Password = [Ô]masterkey[Ô]
        stringconexao.Dialect = 3
        stringconexao.Database = [Ô]D:\LUNOS\SCI\bin\Debug\BDADOS.FDB[Ô]
        stringconexao.Pooling = False
        Return New FbConnection()

    End Function


Public Sub AbreConexao()
----> ????
End Sub


e na hora de usar em uma query consulta, ou manipular um registro,[Ô]gravar, editar e excluir[Ô]

grato
MARCELOKROL 06/08/2017 20:27:15
#475629 Resposta escolhida
creio que qualquer uma das duas opção vai funcionar, escolha a que mais se adapta, boa noite
  
Imports FirebirdSql.Data.FirebirdClient

Module modBanco

   Public strConexao As FbConnection

   Public Sub ConectarBD_opcao1()

      Try
         If strConexao.State = ConnectionState.Closed Then
            strConexao = New FbConnection([Ô]User=SYSDBA;Password=masterkey;Database=C:\LUNOS\SCI\bin\Debug\BDADOS.FDB;DataSource=192.168.0.30;Port=3050;Dialect=3;[Ô])

            Cursor.Current = Cursors.WaitCursor
            strConexao.Open()
            Cursor.Current = Cursors.Default
         End If
      Catch ex As Exception
         MsgBox([Ô]O programa não conseguiu abrir a base de dados devido ao seguinte erro:[Ô] & Chr(13) & Chr(13) & [Ô][ô][ô][Ô] & ex.Message.ToUpper & [Ô][ô][ô].[Ô] & Chr(13) & Chr(13) & [Ô]Entre em contato com o suporte informando o código de erro [ô][ô][Ô] & ex.HResult & [Ô][ô][ô]. O sistema será finalizado![Ô], MsgBoxStyle.Exclamation, [Ô]Erro [Ô] & ex.HResult)
      End Try

   End Sub

   Public Sub ConectarBD_opcao2()
      Try
         If strConexao.State = ConnectionState.Closed Then
            Dim sb As New FbConnectionStringBuilder()
            sb.Database = [Ô]C:\LUNOS\SCI\bin\Debug\BDADOS.FDB[Ô]
            sb.UserID = [Ô]SYSDBA[Ô]
            sb.Password = [Ô]masterkey[Ô]
            sb.Dialect = 3
            sb.Port = 3050
            sb.DataSource = [Ô]192.168.0.30[Ô]
            strConexao = New FbConnection(sb.ToString())

            Cursor.Current = Cursors.WaitCursor
            strConexao.Open()
            Cursor.Current = Cursors.Default
         End If
      Catch ex As Exception
         MsgBox([Ô]O programa não conseguiu abrir a base de dados devido ao seguinte erro:[Ô] & Chr(13) & Chr(13) & [Ô][ô][ô][Ô] & ex.Message.ToUpper & [Ô][ô][ô].[Ô] & Chr(13) & Chr(13) & [Ô]Entre em contato com o suporte informando o código de erro [ô][ô][Ô] & ex.HResult & [Ô][ô][ô]. O sistema será finalizado![Ô], MsgBoxStyle.Exclamation, [Ô]Erro [Ô] & ex.HResult)
      End Try

   End Sub
End Module
Tópico encerrado , respostas não são mais permitidas
Voltar