COMO CONECTAR FIREBIRD
Olá!
Tenho um banco de dados firebird (extensão FDB) que eu gostaria de acessar pelo VB6.
Gostaria de saber qual driver devo utilizar, pois vi algumas soluções na internet (inclusive uma aqui) que permite o acesso via DLL, mas eu gostaria de usar um driver para acesso.
Qual a melhor forma de proceder?
Agradeço desde já!
Tenho um banco de dados firebird (extensão FDB) que eu gostaria de acessar pelo VB6.
Gostaria de saber qual driver devo utilizar, pois vi algumas soluções na internet (inclusive uma aqui) que permite o acesso via DLL, mas eu gostaria de usar um driver para acesso.
Qual a melhor forma de proceder?
Agradeço desde já!
DEXIE,
Você precisa do driver especÃfico ou então conectar via ODBC.
=======================================
http://www.connectionstrings.com/
http://www.connectionstrings.com/firebird/
=======================================
Veja também:
http://www.firebase.com.br/
[][ô]s,
Tunusat.
Você precisa do driver especÃfico ou então conectar via ODBC.
=======================================
http://www.connectionstrings.com/
http://www.connectionstrings.com/firebird/
=======================================
Veja também:
http://www.firebase.com.br/
[][ô]s,
Tunusat.
Olá DEXIE tenta desta forma.
Coloca em um modulo
Public conexao As New ADODB.Connection [ô]variavel objeto de controle do banco de dado como o data
Public rst_conexao As New ADODB.Recordset [ô]recordset da tabela
Function Conectar()
On Error GoTo erro
conexao.ConnectionString = [Ô]DRIVER=Firebird/InterBase(r) driver;[Ô] & _
[Ô]DBNAME=[Ô] & App.Path & [Ô]\Dados\LAVANDERIA.FDB;[Ô] & _
[Ô]UID=SYSDBA;[Ô] & _
[Ô]PWD=masterkey[Ô]
conexao.Open
Exit Function
erro:
MsgBox [Ô]Impossivel estabelecer conexão com o banco de dados[Ô] + Chr$(13) + [Ô]O Sistema sera finalizado[Ô], vbInformation, App.EXEName
End
End Function
Function Desconectar()
Set conexao = Nothing
Set rst_conexao = Nothing
End Function
Coloca em um modulo
Public conexao As New ADODB.Connection [ô]variavel objeto de controle do banco de dado como o data
Public rst_conexao As New ADODB.Recordset [ô]recordset da tabela
Function Conectar()
On Error GoTo erro
conexao.ConnectionString = [Ô]DRIVER=Firebird/InterBase(r) driver;[Ô] & _
[Ô]DBNAME=[Ô] & App.Path & [Ô]\Dados\LAVANDERIA.FDB;[Ô] & _
[Ô]UID=SYSDBA;[Ô] & _
[Ô]PWD=masterkey[Ô]
conexao.Open
Exit Function
erro:
MsgBox [Ô]Impossivel estabelecer conexão com o banco de dados[Ô] + Chr$(13) + [Ô]O Sistema sera finalizado[Ô], vbInformation, App.EXEName
End
End Function
Function Desconectar()
Set conexao = Nothing
Set rst_conexao = Nothing
End Function
Tópico encerrado , respostas não são mais permitidas