Tendría que decir adiós?

[GustavoCruz]

Hola amigos, me he topado con un inconveniente un tanto triste...
Tengo una base de datos en Firebird 2.5.3; es un problema de Conexión, Desconexión y Reconexión. Sólo llego a la segunda parte.
Buscando hallé este hilo, y creí solucionados mis problemas pero resulta fibplus se reusa a conectarse con firebird o quizas firebird se reusa permitir la conexión, he buscado por internet y nada.

Gracias por vuestro tiempo


GustavoCruz

[GustavoCruz]

Por dónde andará mi amigo Jonny???

[Casimiro Notevi]

Para descartar problemas de red, conecta desde el equipo local donde está la base de datos.
Cuéntanos el resultado.

[Casimiro Notevi]

Por cierto, no olvides poner títulos descriptivos a tus preguntas, ¿qué es eso de "tendría que decir adiós"?

[GustavoCruz]

Hola Casimiro, es que ando un poco triste y no sabía ni cómo titular el hilo...
ya intente lo que me conmentaste y me sigue apareciendo el mismo error... no permite la conexion si llevo una consulta en ejecución...

Me explico

Resulta que me llevo el aplicativo para otro equipo y hago desconectarlo, pruebo la Reconexión y todo bien, pero cuando estoy realizando una consulta, y desconecto el equipo, al momento de hacer la reconexión, me muestra una exception que indica que existe una consulta preparada... y es ahí donde muero.

este es el código que tengo para la reconexión

Código Delphi [-]
procedure TfDatos.RecDB;
var
  Handle: Integer;
  Buffer: array [0..7] of Cardinal;
begin
  Handle := IcmpCreateFile;
  Coneccion.CloseDataSets;
  Coneccion.Close;
  if Handle = -1 then
    Exit; // Error interno
  if not LongBool(IcmpSendEcho(Handle, inet_addr('192.168.1.108'), nil, 0,
  nil, @Buffer, SizeOf(Buffer), 1000)) then
    begin
      CloseHandle(Handle);
      Coneccion.Connected:= False;
      MsgBox(Titulo, 'Imposible realizar la conexión con la BD', mtError,
      ['Aceptar'], 0);
    end
  else
    begin
      Coneccion.Connected:= False;
      Coneccion.Connected:= True;
      Coneccion.Open();
      MsgBox(Titulo, 'Conexión realizada correctamente', mtInformation,
      ['Aceptar'], 0);
    end;
end;

He llegado incluso a pensar en pasarme a otro motor de base de datos. Con tal de superar este problema.


Gracia por vuestro tiempo

GustavoCruz

[[duilioisola]]

¿Porqué le hechas la culpa al motor de base de datos cuando el problema está seguramente en el código?

Si te están diciendo que "hay una consulta preparada", deberías cerrar las consultas antes de proceder.

• De todos modos, sería bueno que pusieras el mensaje de error exacto (sin resumir, sin traducir, completo) para que alguien pueda ayudarte.
• Además sería conveniente que indicaras en qué línea del código que muestras está lanzando la excepción.
• En tu código veo que utilizas una variable "Handle". El formulario también tiene una propiedad "TForm.Handle", por lo que podría ser que el compilador esté haciendo cosas raras al optimizar y eso genere errores.
• Creo que hacer "Conección.Connected := True" es lo mismo que "Coneccion.Open", con lo que estarías abriendo algo abierto...
• Deberías ver si hay código dentro de algún método que se ejecute al conectar la "Coneccion". Quizás este esté dando el error.

Y finalmente, para que no me lloren mas los ojos: Conexión, con X, por favor!
rae.es + conexión