Foros Club Delphi - table.delete, pero no reduce tamaños tablas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - table.delete, pero no reduce tamaños tablas (https://www.clubdelphi.com/foros/showthread.php?t=18680)

jonmendi

18-02-2005 22:12:53

table.delete, pero no reduce tamaños tablas

Buenas tardes, tardes!
me pasa algo curioso. Tengo un par de tablas relacionadas, de las que quito unos cuantos registros, dependiendo de la variable indice pasada como parametro.
El borrado lo hace bien en ambas tablas (tengo menos registros en ambas), pero el tamaño de los ficheros no decrece, que es preecisamente lo que buscaba al borrar registros.
¿Me puede alguien explicar el porque?
¡¡Gracias!!

Código:

procedure TForm1.clarear(indice:integer);

begin

  table2.Open;table2.First;

  table3.open;table3.First;

  table2.edit;table3.edit;

  while table2.Fieldbyname('Id').asinteger < indice do

        begin

           while table3.FieldByName('Id').asinteger =

                        table2.FieldByName('Id').asinteger do

                          begin

                                table3.Delete;

                          end;

          table2.Delete;

        end;

  table2.close; table3.close;

end;

JOSEPE

18-02-2005 22:55:16

Aunque no especificas que gestor de base de datos usas, te puedo decir que el decremento del tamaño del archivo de la base de datos se ve cuando se produce el compactado de la base de datos (que es realmente cuando se elimina toda la informacion inservible de la base de datos), este proceso se denomina garbagge collection.

JOSEPE
Lima-Peru

jonmendi

19-02-2005 08:20:52

Gracias Josepe, y perdón a todos: Uso Delphi 7 y BDE - Paradox.

No he comprendido muy bien tu respuesta, Josepe. Miro en la ayuda y solo me sale Garbage para una serie de opciones para TBackupOption.
No sé si tiene algo que ver, pero no lo veo muy claro.
¿Podrías ampliar algo la repuesta por favor?.
Gracias
Jon

jonmendi

19-02-2005 09:34:45

Perdón de nuevo a todos (tanto pedir perdón me llevará al cielo).

Buscando, buscando, me he encontrado con esta página:
http://www.delphicorner.f9.co.uk/articles/db15.htm
en la que me resuelve el problema. Incluyendo en uses BDE funciona de maravilla.

Un saludo a todos.

La franja horaria es GMT +2. Ahora son las 18:12:21.