Problemas al cerrar-destruir Tquery, o al hacer segunda consulta

[fonx]

Hola, este es mi caso (Delphi5 con access):

Bucle:
Selecciono datos
Proceso datos
Fin Bucle

La primera vez lo hace bien:

query.active:=false;
 query.SQL.text:=('SELECT * FROM Datos WHERE Historico=No');
query.active:=true;
If query.RecordCount>0 then 
   Procesar Datos

Pero las sucesivas no funciona porque no puedo hacer query.active:= false, me casca ahi. Me dice que se ha llegado a la marca de EOF y que para hacer esa operación necesita al menos un registro. Si la primera consulta no devuelve datos entonces el query esta obligatoriamente en EOF.

La solución temporal que he adoptado es que el query sea una variable local a la función de modo que cuando se llega al final de la funcion destruyo el query

query.Destroy;

pero me casca en el destroy porque me dice que "cannot perform this operation on an open dataset", y como no puedo cerrarlo pues no se si se destruye. Al entrar de nuevo en la funcion la variable query es otra nueva, pero las reservas de memoria anteriores en otras pasadas por esta funcion no se si se liberan o no.

¿Ideas? ¿Soluciones?

[[maeyanes]]

Hola...

Puedes intentar con este código:

Código Delphi [-]
var
  AQuery: TQuery;

begin
  with TQuery.Create(nil) do
    try
      // Asignas valores a propiedades como Database, etc...
      SQL.Text := 'select * from Datos where Historico = No';
      Open;
      If not IsEmpty then
        // Procesar datos
      Close
    finally
      Free
    end
end;

De esta forma dentro de la función creas, usas y destruyes el objeto...

Ahora, si te fijas, usé el método Free para destruir el objeto, no Destroy...



Saludos...

[fonx]

No funciona, casca al hacer el close y no libera memoria. Este es el mensaje:

Project xxx.exe raised exception class EOleException with message 'El valor de BOF o EOF es True, o el actual registro se eliminó: la operación solicitada requiere un registro actual'

while true do
  begin
    Prueba();
  end;

Procedure Prueba();
Var
   difAnt:real;
   i:integer;
   error:boolean;
   query:TADOQuery;
begin
   Try
   query :=TADOQuery.create(nil);
   query.Connection:=AC1;
   query.SQL.text:=('SELECT * FROM Datos WHERE Historico=No');
   query.Open();
   For i:=1 to query.recordcount do
   begin
      query.next;
   end;
   query.close;
   query.Free;
   Except
      error:=true;
   end;

end;

También probé esta forma:

Procedure Prueba2();
Var
   difAnt:real;
   i:integer;
   error:boolean;
   query:TADOQuery;
begin
   Try
   query :=TADOQuery.create(nil);
   query.Connection:=AC1;
   query.SQL.text:=('SELECT * FROM Datos WHERE Historico=No');
   query.active:=true;
   For i:=1 to query.recordcount do
   begin
      query.next;
   end;
   query.Destroy;
   Except
      error:=true;
   end;

end;

No libera memoria, ese bucle infinito no para de coger memoria...Casca al hacer el close() o el destroy(). Esto pasa cuando:

• el query no tiene registros, entonces EOF = true.
• el query esta posicionado en el ultimo registro, entonces EOF = true.

Si hay registros lo tengo facil porque solo tengo q hacer query.First y ya me lo libera, pero si no hay registros el query no se libera y me queda esa memoria sin liberar...¿Será un bug del Delphi5?

[[maeyanes]]

Hola...

Para que siempre te libere el objeto TADOQuery, usa la construcción try..finally, ya que esta siempre ejecuta la parte del finally haya o no haya excepción...

Y te repito de nuevo, no uses el método Destroy para liberar objetos, ese método es de uso interno de Delphi, usa el método Free...

Sobre tu código de prueba, si haces un while True do, lo único que vas a lograr es un loop infinito, ya que True siempre va a ser True...

Puedes probar lo siguiente:

Código Delphi [-]
if Prueba then
  ShowMessage('Prueba exitosa');


// Código de Prueba
function Prueba: Boolean;
var
   difAnt: Double;
   I: Integer;

begin
  Result := True;
  with TADOQuery.Create(nil) do
    try
      try
        Connection := AC1;
        SQL.Text:= 'SELECT * FROM Datos WHERE Historico=No';
        Open;
        First;
        while not Eof do
          Next;
        Close
      except
        ShowMessage('Ocurrió un error');
        Result := False
      end
    finally
      Free
    end
end;

Sobre TADOQuery, la verdad no sabría decirte si tiene algún tipo de error o limitante en Delphi 5, sería investigar un poco al respecto...



Saludos...

[Victor Vega]

veo q estas usando un bucle...
probaste usar :

Código Delphi [-]
 
if not EOF

[fonx]

El while true lo puse yo para que se ejecutara infinitas veces y así ver si no liberaba la memoria, y efectivamente la memoria ocupada crece y crece y crece...

No funciona el close si el query tiene EOF = true, salta una excepcion. Ahora voy a reiniciar el ordenador pq con tanta prueba ya ni funciona...

[[Lepe]]

Por experiencia, cuando algo no sale, miramos las cosas más absurdas y nos emperramos en que hay un virus en el ordenador que no lo deja funcionar bien.

Ese momento es el idóneo para dejar el puñetero ordenador y hacer otra cosa que no tenga nada que ver con el trabajo ni con ordenador.

El fallo es la propia consulta sql, ya que debe decir: where Historico = 'No' (¿ves las comillas simples? pues faltan en tu sql).

Código Delphi [-]
Procedure Prueba();
Var
   difAnt:real;
   i:integer;
   error:boolean;
begin
  // query es un componente puesto en la ventana
   query.SQL.text:=('SELECT * FROM Datos WHERE Historico=' + QuotedStr(No));
   query.Open();
   while not query1.Eof do
      query.next;

   query.close;
end;

Una observación: Yo he usado QuotedStr que añade comillas simples alrededor de la palabra. Pero no sé lo que espera Access (o ADO), puede que espere comillas dobles... la que está encima del número 2.

Saludos y descansa un poco amigo fonx, te lo mereces.