Liberar memoria

[vicvil]

Como les decía ayer, no es que las tablas no tengan nada que actualizar, les estoy agregando campos y además estoy creando nuevas tablas dentro de las carpetas.

Este es un pedazo de código como lo estoy haciendo:

Query:=TQuery.Create(Application);
Query.DatabaseName:= Ruta de cada carpeta
Query.SessionName:= nombre de sesion;
Query.SQL.Clear;
Query.SQL.Add('Alter table tabla1 Add campo Char(10)');
try
Query.ExecSql
except
end;
Query.close;
//
Query.SQL.Clear;
Query.SQL.Add('Alter table tabla2 Add campo Char(1)');
try
Query.ExecSql
except
end;
Query.close;

etc

Lo que estoy tratando de hacer es por ejemplo lo siguiente:
Se tienen mas de 100 carpetas de Empresas, dentro de cada una de ellas tenemos las carpetas de los periodos de trabajo (años) que pueden ser n y dentro de ellas las carpetas con los meses (1 a 12). Yo estoy actualizando las tablas de las carpetas de los meses, de los periodos y de las empresas. Pero se actualiza por ejemplo hasta la Empresa 60 hasta el periodo x hasta el mes 5 y de ahi en adelante ya no actualiza nada. ¿Que entrete no?

[[Lepe]]

Empezado por vicvil

¿Que entrete no?

No. Era de esperar.

Código Delphi [-]
try
Query.ExecSql
except
end;

Al no poner nada entre el except... end, estas diciendo que si ocurre alguna excepción, simplemente se la coma con patatas y siga adelante. Por eso no muestra ningún mensaje de error. Debes hacer lo siguiente:

Código Delphi [-]
try
Query.ExecSql
except
  on E: Exception do
  ShowMessage(Format('Atencion error de tipo: %s', [E.ClassName]));
end;

Ver si da fallos en ejecución y despues controlar los fallos que dé.

Código Delphi [-]
try
Query.ExecSql
except
  On E: << el tipo que te haya mostrado el ShowMessage anterior>> do
  begin
     << controlar de la forma oportuna >>
  end;
  On E: << otro tipo de fallo >> do
  begin
  << lo que sea>>
  end
  else
    ShowMessage(Format('Atencion Error No esperado de tipo: %s', [E.ClassName]));
end;

Por cierto, sigo diciendo que un Log del estilo que comenté es necesario para este tipo de cosas.

Saludos

[vicvil]

Hice lo que me indicaste pero me aparece un error mas bien generico entiendo. Me envia el mensaje EDBEngineError para mi esto no me dice mucho, debe haber alguna forma de ver el error exacto. ¿Como se puede hacer?

[[Lepe]]

Quizás el mensaje de la propia excepción te ayude algo más:

Código Delphi [-]
  ShowMessage(Format('Atención error de tipo: %s. Mensaje de error: %s', [E.ClassName, E.Message]))

Saludos

[vicvil]

Hice la prueba.
Me arrojó el mensaje de error, pero este mensaje me dejó mas consternado aun, ya que dice lo siguiente:

"Too many open databases
Alias"

¿Por que si yo estoy cerrando los querys?
Incluso hice la prueba cerrando y liberandolos y aun asi me envía el error.
Yo creo que no libera la memoria como debería hacerlo.

[[Lepe]]

Lo que nadie te ha dicho de paradox, es que al situar un TTable, TQuery, etc en una ventana, delphi crea implicitamente un objeto TSession y un objeto TDatabase, y los usa para gestionar todos esos objetos de acceso a datos que has puesto.

Para una aplicación simple, (de escritorio), de un solo usuario, accediendo a tablas que forman parte "de una sola base de datos", no hace falta echar cuenta a esos dos individuos, pero al realizar tareas avanzadas como tú estas haciendo, sí hay que tenerlo en cuenta.

Según dice son "Alias abiertos" y creo que viene por aquí el problemilla:

Empezado por Lepe

Otra cosa que puede ocurrir es que no cambie de carpeta correctamente. Al ser tablas paradox, antes de cambiar la ruta de carpeta, tienes que cerrar el Database y la Session, modificar la ruta y despues reabrirlo. (si no usas esos componentes... deberías)

Cuando cambias el DatabaseName (para redirigir la entrada a otra carpeta), debes cerrar la session, el Database, configurar las nuevas rutas y abrirlos de nuevo.

Lo que está ocurriendo, es que al asignar el DatabaseName, crea "una conexión nueva" a la carpeta, dichas conexiones se van acumulando en memoria hasta que se excede el límite permitido.

2 Soluciones:
- Usa Database.Connected := false cada vez que vas a cambiar de carpeta.
- Añade un TDabase y un TSession y configuralos a tu gusto.

Saludos

[vicvil]

Gracias, eso queria saber.
Voy a hacer las pruebas.