consultando nuestros foros, encontre esto:
Cita:
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 [-]
{Cerramos la tabla/Close table}
Table1.Close;
{En Modo exclusivo/Exclusive mode}
Table1.Exclusive:=True;
{Abrimos tabla/Open table}
Table1.Open;
{Compactar/pack}
PackDBF(Table1);
{Reabrir tabla/reopen table}
Table1.Close;
Table1.Exclusive:=False;
Table1.Open;
|
post colocado por Roilo
http://www.clubdelphi.com/foros/showthread.php?t=31125
o borrar la tabla con sql
Código:
DROP TABLE
----------
DROP TABLE nomtabla
Esta sentencia SQL borra una tabla.
Ejemplo:
...
Query1.SQL.Text := 'DROP TABLE "Productos.DBF"';
Query1.ExecSQL;
...