He tratadodo de HAcer una conexion . Lo hago de esta manera y no funciona.
Uso Windows 10 a 64bit , Lo hago de esta menra y no funciona, no tampoco usando la Clase de contrib\hbfbird
Código: Selecionar todos
Local cUser := 'SYSDBA'
Local cPass := 'masterkey'
Local nDialect := 3
Local cQuery
LOCAL cServer := "Localhost"
LOCAL cDatabase := 'AGENDA.FDB'
Local cPort := "3050"
LOcal tDriver := "Firebird/InterBase(r) driver"
Try
StrCon := "DRIVER=Firebird/InterBase(r) driver; UID=sysdba; PWD=masterkey; DBNAME="+cDatabase
tServer:=TOLEAUTO():New("ADODB.connection")
tServer:Open(StrCon)
alert("Se Abrio con Exito")
Catch oErr
MSGAlert("Error : No se tiene acceso al servidor *" + CRLF +;
"por favor verifique conexion a red o que el servidor este funcionando*", ;
"Error: " + oErr:Operation + " -> " + oErr:Description )
End
