Problemas de conexion al Firebird desde VFP9

[Esteban Micossi]

Hola Grupo

Quiero comentarles algo que me ocurrio en estos dias.
Tengo Sistemas realizados en VFP9 y con base de datos FIREBIRD.
La conexiones las realizo a traves sqlstringconnect(lcadena,.t.) y se conecta perfectamente e inclusive en entorno de red poniendo el DataSource=192.168.1.104 en mi caso.
El hecho es que desde ayer mis sistemas saltan con el mensaje que puse "Servidor sin conexion... verifique el mismo" entro a revisar las cadenas de conexion y aparentemente estan bien.
Tengo los administradores graficos de firebird como el IbExpert, el SQL Manager Lite for InterBase & Firebird y el FlameRobin. Todos ellos realizan las conexiones perfectamente.
Ante este hecho procedi a desintalar El Firebird y el ODBC Firebird por completo y elimine todo rastro del firebird inclusive el FBCLIENT.DLL. Reinicio la PC y vuelvo a instalar todo el Firebird completo, realizo las conexiones con los administradores graficos (IbExpert, el SQL Manager Lite for InterBase & Firebird y el FlameRobin) y todos se conectan perfectamente, pero o sorpresa que mis programas siguen sin poderse conectar. Ahora bien, procedo a desinstalar el VFP9 por completo y le borro todo rastro para que no quede algo pendiente respecto al VFP.
Instalo desde cero el VFP9, entro al VFP9 y compilo de nuevo todos los programas y o sorpresa !! siguen sin conectarse.
Estoy trabajando con Windows 10 64 bits, y sin ningun problema hasta ese dia que me di con la sorpresa. Es mas hice una conexion a las bases de datos Firebird a traves de DELPHI y se conecta perfectamente a las bases de datos.
La verdad que ya no se que hacer. Probe de mil maneras, con distintas rutinas y nada de nada.
Bueno querida gente, si alguien le ocurrio algo asi, le agradeceria me orienten para ver que pasa.
Les dejo Saludos.
Esteban Micossi

[Irwin Rodriguez]

Se nota que has estado desesperado para desinstar tanto el FB como el VFP.

No lo indicastes y por eso te pregunto: cuando haces el STRINGCONNECT() estas evaluando el AERROR() en caso de no conectar?

IF SQLSTRINGCONNECT("string") < 0

   AERROR(aConnectionFailed)

   MESSAGEBOX(aConnectionFailed(2),0+16,'Error de Conexión')

   RETURN

ELSE

ENDIF

--

Irwin Rodríguez

Analista Programador

+593 0994903424
Latacunga - Ecuador

"Un equipo solo son piezas que intercambias hasta que terminas el trabajo, es eficiente, funciona."

[Esteban H.]

Una pregunta, supongo q ya lo has visto pero x las dudas, en Windows 10 los ejecutables necesitan q las librerías de VFP estén dentro del mismo directorio, caso contrario el ejecutable se ejecuta pero FB responde q no encuentra la Conexión #0.

Estaría bueno q pongas en tu código algún control de error así cuando quiere conectarse genera un error q pueda ser significativo de q está pasando.

 

Saludos

Esteban

[Esteban Micossi]

Hola chicos, gracias por responder, voy por parte dijera Jack

Para responder a IRWIN

Puse este control para que me avise que pasa

 mm=aerror(aa)
 messagebox("Error: "+aa(2),16,"ADVERTENCIA")

 y me tira este mensaje:

Error:Connectivity error:(ODBC Firebird Driver) connection rejected by remote interface

:---------------------------------------------------------------
Para responder a Esteban (tocayo)

Puese esta libreria en donde estan los ejecutables

Para VFP9 puese esta libreria
        MSVCR71.DLL
        VFP9R.DLL
        VFP9RENU.DLL
        VFP9RESN.DLL
        VFP9T.DLL

Para Firebird puse esta libreria

        fbclient.dll
        ib_util.dll
        icudt30.dll
        icuin30.dll
        icuuc30.dll
        odbcfb.dll
        odbcfb.lib
        odbcfb.pdb

Y lo mismo no me funcionan

Esta es la cedena de conexion que estoy usando y me estaba funcionando a la perfeccion:

lccadena="DRIVER={Firebird/InterBase(r) driver};UID=SYSDBA;PWD=qwerty646;DBNAME=D:\cajacredito\data\MICROEM.FDB;DataSource=localhost;"

me=sqlstringconnect(lccadena,.t.)


Lo que estoy sospechando que el "DRIVER={Firebird/InterBase(r) driver};", esta fallando por que tengo una conexion ODBC que la llamo "MICROEMP" y con esta conexion

lcusuario='SYSDBA'
lccontrasena='qwerty646'
me=sqlconnect("MICROEMP", lcusuario, lccontrasena)

Si me esta funcionando y se conecta perfectamente, pero no quiero hacer este tipo de conexion.
Me resulta mas controlable la conexion con me=sqlstringconnect(lccadena,.t.)

Bueno chicos gracias de todas menera, y si logro descubrir algo, les comento que pasaba o si uds. avisoran algo me avisan.
Les dejo Saludos
Esteban Micossi

[Esteban H.]

Firebird no necesita q en el directorio de trabajo estén las librerías a no ser q tu DB sea utilizada en modo Embedded.

Espero soluciones tu inconveniente, comentá cuando lo hagas.

Actualmente tengo un cliente con una DB en un Server Windows 2003 y en otro cliente en Ubuntu y las compus de acceso lo hacen x ODBC y no he tenido inconvenientes con ningún Windows.

 

Saludos

Esteban

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Esteban Micossi

Enviado el: martes, 27 de marzo de 2018 11:28 p.m.
Para: Comunidad de Visual Foxpro en Español

[HernanCano]

Veo que mencionas que usas localhost.

Confirma que el servidor web (sea Apache o IIS) esté en funcionamiento.

[Esteban Micossi]

Hola Gente

Bueno ya soluciones el problema que tenia con el VFP de falta de coneccion a las bases de datos de Firebird.
Faltaba agregar a la cadena de conexion, el Cliente (fbclient.dll), me llama la atencion por que anteriormente la misma rutina de conexion lo hacia sin necesidad de poner el cliente, pero bueno, el asunto es que lo solucione. Vi un articulo de Walter Ojeda Valiente que cuando aparece el mensaje de problema de conexion, generalmente es por que el cliente esta fallando ya sea por que es de otros bits ( 64 o 32) o esta apuntando hacia el cliente anterior de InterBase gdsdl.dll .
Gracias a todos por responder y dar algunas pistas al respecto.
Les dejo Saludos y FELICES PASCUAS !!!!!
Esteban Micossi