FIREBIRD 2.5 VB6
Tem certeza que o nome está exatamente igual??
Você mudou o método de conexão..? Senha, usuário... local.... pode ser tb banco de dados corrompido...!!!
Alisson,
Tenho um driver ODBC que uso para conexao com o firebird e nao tive problemas se vc kiser posso enviar por email pra vc
Tenho um driver ODBC que uso para conexao com o firebird e nao tive problemas se vc kiser posso enviar por email pra vc
Jeisonantoni, por favor mande esse driver pra eu testar aqui... vc usa o Firebird 2.5? So lembrando: a conexão esta padrão... não tem nada de anormal nela!
[ô]Modúlo de conexão
Option Explicit
Dim Rst As New ADODB.Recordset
Public Conexao As New ADODB.Connection
[ô]Função para se conectar ao MySQL e retorna true se a conexão foi estabelecida
Public Function ConectaMySQL() As Boolean
On Error GoTo Err_Conexao
Conexao.Open [Ô]Provider=SIBPROvider.2;Data Source=C:\SysGestor\Banco\Dados.fdb;User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & [Ô]masterkey[Ô]
[ô]Conexao.Open [Ô]Provider=SIBPROvider.2;Data Source=\\Atendimento01\C:\SysGestor\Banco\Dados.fdb;User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & [Ô]masterkey[Ô]
Conexao.CursorLocation = adUseClient
ConectaMySQL = True
Exit Function
Err_Conexao:
ConectaMySQL = False
[ô]MsgBox Err.Description
[ô]MsgBox ([Ô]ATENÇÃO: Sua Rede Local não está Ativa, verifique com seu administrador da sua rede local, v[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
End Function
[ô]Função para Desconectar corretamente do banco
Public Function DesconectaMySQL()
Conexao.Close
Set Rst = Nothing
Set Conexao = Nothing
End Function
Public Sub Main()
On Error GoTo Trataerro
If ConectaMySQL = False Then
MsgBox ([Ô]ATENÇÃO: Sua Rede Local não está Ativa, verifique com seu administrador da sua rede local, v[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
End
Else
Frm_Splash.Show
[ô]Mdi_Principal.Show
End If
Exit Sub
Trataerro:
End Sub
Option Explicit
Dim Rst As New ADODB.Recordset
Public Conexao As New ADODB.Connection
[ô]Função para se conectar ao MySQL e retorna true se a conexão foi estabelecida
Public Function ConectaMySQL() As Boolean
On Error GoTo Err_Conexao
Conexao.Open [Ô]Provider=SIBPROvider.2;Data Source=C:\SysGestor\Banco\Dados.fdb;User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & [Ô]masterkey[Ô]
[ô]Conexao.Open [Ô]Provider=SIBPROvider.2;Data Source=\\Atendimento01\C:\SysGestor\Banco\Dados.fdb;User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & [Ô]masterkey[Ô]
Conexao.CursorLocation = adUseClient
ConectaMySQL = True
Exit Function
Err_Conexao:
ConectaMySQL = False
[ô]MsgBox Err.Description
[ô]MsgBox ([Ô]ATENÇÃO: Sua Rede Local não está Ativa, verifique com seu administrador da sua rede local, v[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
End Function
[ô]Função para Desconectar corretamente do banco
Public Function DesconectaMySQL()
Conexao.Close
Set Rst = Nothing
Set Conexao = Nothing
End Function
Public Sub Main()
On Error GoTo Trataerro
If ConectaMySQL = False Then
MsgBox ([Ô]ATENÇÃO: Sua Rede Local não está Ativa, verifique com seu administrador da sua rede local, v[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
End
Else
Frm_Splash.Show
[ô]Mdi_Principal.Show
End If
Exit Sub
Trataerro:
End Sub
Pq vc não posta seu projeto .. para tentarmos ajudá-lo?
blz.. vou postar o banco com a rotina de conexão ok!
[ô] conexão
Driver = [Ô]DRIVER=Firebird/InterBase(r) driver;[Ô]
User = [Ô]UID=SYSDBA;[Ô]
senha = [Ô]PWD=masterkey[Ô]
Banco = [Ô]DBNAME=[Ô] & Ret & [Ô]DATABASE.FDB;[Ô] [ô] - caminho do banco de dados
cnn.ConnectionString = Driver & Banco & User & senha [ô] - string de conexão completa
Driver = [Ô]DRIVER=Firebird/InterBase(r) driver;[Ô]
User = [Ô]UID=SYSDBA;[Ô]
senha = [Ô]PWD=masterkey[Ô]
Banco = [Ô]DBNAME=[Ô] & Ret & [Ô]DATABASE.FDB;[Ô] [ô] - caminho do banco de dados
cnn.ConnectionString = Driver & Banco & User & senha [ô] - string de conexão completa
Jesionantoni, vou testar a rotina que vc postou! Sera que esse problema pode estar no banco de dados?
Pessoal esse é o banco que estou tentando acessar e não da certo! Consigo configurar a conexão ODBC, abrir o banco no Visdata, mais quando clico em alguma tabela não da certo! Atenção, no código tmb não da certo! fala que a tabela não existe. O estranho é que no IBExpert funciona bem! Estou usando o Firebird 2.5. Já tentei com o SIBPRO2.DLL e o Driver ODBC padrão do Firebird.
Me ajudem por favor!
Me ajudem por favor!
Tópico encerrado , respostas não são mais permitidas