Cita:
Empezado por Roilo
Sería conveniente que me tomaras como un programador amigo y no como un impertinente.
|
En verdad hoy me veo como un impertinente al leer de nuevo este Hilo. discúlpenme.
Bueno encontré una solución para eliminar físicamente los registros de una tabla (funciona para tablas DBF). La encontré en el Trucomanía. (para el que no lo conoce
http://www.q3.nu/trucomania/).
SOLUCION:
-Incluye 'DBE' en el uses de tu form
-y utiliza esta funcion para compactar la tabla:
Código Delphi
[-]
procedure PackDBF(Tabla: TTable);
begin
Check(DbiPackTable(Tabla.DBHandle, Tabla.Handle, nil, szDBASE, True))
end;
Pero cuidado, para poder compactar la tabla, ésta debera estar abierta en modo exclusivo. Ejemplo:
Código Delphi
[-]
Table1.Close;
Table1.Exclusive:=True;
Table1.Open;
PackDBF(Table1);
Table1.Close;
Table1.Exclusive:=False;
Table1.Open;
Un abraso al FORO.