CONECTAR FIREBIRD 3.0 no HMG MINIGUI
Enviado: 11 Mai 2019 09:26
Bom dia senhoras e senhores, tenho um sisteminha que já funciona conectando a um banco de dados FIREBIRD 2.5, só que desejo fazer a conexão com o FIREBIRD 3.0 mais não estou conseguindo. Vou dizer os passos que já fiz para fazer essa conexão:
01 - Já converti minha base de dados 2.5 para 3.0 da seguinte maneira: Fiz o backup do banco de dados em FIREBIRD 2.5 e fiz a restauração do banco de dados em FIREBIRD 3.0
02 - Fiz a instalação do FIREBIRD 3.0 e do e do ODBC
03 - Consegui conectar e fazer consultas no banco de dados com o FIREBIRD 3.0 instalado através do IBEXPERT, portando sei que a conversão da 2.5 para 3.0 funcionou, somente o meu programa em HMG MINIGUI não está conectando
04 - "Acho que aqui está o erro" Continuo usando a mesmos códigos que usada para anteriormente para conectar no FIREBIRD 2.5, vejam:
01 - Já converti minha base de dados 2.5 para 3.0 da seguinte maneira: Fiz o backup do banco de dados em FIREBIRD 2.5 e fiz a restauração do banco de dados em FIREBIRD 3.0
02 - Fiz a instalação do FIREBIRD 3.0 e do e do ODBC
03 - Consegui conectar e fazer consultas no banco de dados com o FIREBIRD 3.0 instalado através do IBEXPERT, portando sei que a conversão da 2.5 para 3.0 funcionou, somente o meu programa em HMG MINIGUI não está conectando
04 - "Acho que aqui está o erro" Continuo usando a mesmos códigos que usada para anteriormente para conectar no FIREBIRD 2.5, vejam:
Código: Selecionar todos
while .T.
OKX:="S"
Try
FDB:=CreateObject("ADODB.Connection")
FDB:Open("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME="+ _ARQUIVO +";CHARSET=WIN1252;DIALECT=3;CLIENT=fbclient.dll")
Catch e
CLOSE(FDB)
OKX:="N"
End
if OKX="S"
EXIT
else
OPC:=MSGYESNO(HBA("ERRO NA CONEXAO COM FIREBIRD")+CRLF+"TENTAR NOVAMENTE ?","ERRO")
IF OPC=.F.
EXIT
endif
endif
enddo
endif