FIREBIRD 2.5 VB6

SAMUKA 28/01/2011 11:20:06
#363681
Tem certeza que o nome está exatamente igual??
ADRIANOM 28/01/2011 15:06:57
#363704
Você mudou o método de conexão..? Senha, usuário... local.... pode ser tb banco de dados corrompido...!!!
JEISONANTONI 28/01/2011 16:47:01
#363719
Resposta escolhida
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
ALISSON 28/01/2011 18:06:35
#363730
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!
MOREIRA 28/01/2011 20:35:34
#363741
[ô]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

ADRIANOM 29/01/2011 01:14:43
#363752
Pq vc não posta seu projeto .. para tentarmos ajudá-lo?
ALISSON 30/01/2011 00:28:32
#363802
blz.. vou postar o banco com a rotina de conexão ok!
JEISONANTONI 31/01/2011 08:43:18
#363848
[ô] 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
ALISSON 31/01/2011 17:23:01
#363943
Jesionantoni, vou testar a rotina que vc postou! Sera que esse problema pode estar no banco de dados?
ALISSON 02/02/2011 16:01:23
#364144
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!
Página 4 de 5 [42 registro(s)]
Tópico encerrado , respostas não são mais permitidas