Ver Mensaje Individual
  #5  
Antiguo 10-02-2015
Avatar de GustavoCruz
GustavoCruz GustavoCruz is offline
Miembro
 
Registrado: jul 2006
Ubicación: Sampués Sucre (Colombia)
Posts: 293
Reputación: 18
GustavoCruz Va por buen camino
Unhappy

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
Responder Con Cita