Una Consulta muy sencilla en DBF. Ayuda!!!

[marcoszorrilla]

Tienes que abrir las tablas en modo compartido como te comentaba.

Un Saludo.

[[newtron]]

Claramente el problema que estás teniendo es que no estás abriendo la tabla en modo exclusivo, cosa que te hace falta para poder borrarla. Seguramente algún componente u otro usuario de la aplicación tiene la tabla abierta. Yo probaría a quitar el datasource y el dbgrid y solamente dejar un botón que abra la tabla en modo exclusivo y borrarla.

Espero haberte ayudado en algo.

Saludos

[rogeliogamberro]

Gracias Marcos y newtron.

Sigo leyendo y aprendiendo. Parece ser que la DBF de fox pro tiene un archivo .CDX que no se que es pero estimo que el problema se puede encontrar ahi... o esté relacionado con eso.

Estuve mirando lo del Exclusive y me resulto imposible hacerlo funcionar. Con las bases de datos paradox (que son las que he usado) siempre me funciono. La verdad es que esto me tiene desconcertado y ahora estoy descubriendo que existe algo llamado Maestro/Detalle que relaciona las tablas.

Simplemente soy aficionado al tema y deseo colaborar con este sencillo programita. Agradeceria todo tipo de orientacion u informacion para leer al respecto. Grax

[marcoszorrilla]

El archivo CDX corresponde a los índices.

Un Saludo.

[gmontes]

consultando nuestros foros, encontre esto:

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

DROP TABLE
----------

  DROP TABLE nomtabla

Esta sentencia SQL borra una tabla.

Ejemplo:

  ...
  Query1.SQL.Text := 'DROP TABLE "Productos.DBF"';
  Query1.ExecSQL;
  ...