Quitar registros de Visual Fox Pro

[sabatoK]

Hola a todos:

Deseo eliminar definitivamente registros de una base de datos en Visual Fox Pro 6.0 desde código SQL.

Estoy utilizando "DELETE FROM NombreTabla", pero cuando abro la base de datos, los registros quedaron marcados pero no se eliminaron totalmente de la base de datos.

¿Alguien puede darme una solución?

Muchas gracias.

[agrc]

Hola..sorry por la ausencia...bueno..la solución es sencilla, debes realizar lo siguiente:

Primero la eliminación de registros debe ser lógica y luego física.

1. Abrir la tabla en forma exclusiva. ej:
use num_art exclusive

2. delete from num_art where codart=1061

3. browse (para ver la eliminación lógica)

4. pack (eliminación física).

y con eso eliminar los registro físicamente de la tabla, estando el cursor ya sea
en SET DELETE OFF. Recuerda que para que solamente no se vean los registros eliminados logicamente debes ponder SET DELETE ON; para que después si deseas volver a verloa usas: RECALL FOR codart=1061.

Esta no es la única forma: puedes tambíen en la diseño de la tabla, en la opción eliminar pones: _eliminar_registro() y luego del diseñador de la BBDD boton derecho: modificar procedimientos almacenados y escribir al final de todos tus procedimientos creados: Procedimiento _eliminar_registro
pack.....

en fin ...espero haberte sido de ayuda.....bye

[Landucha]

Eso esta bien cuando no se trabaja en tiempo de ejecucion, pero cuando uno esta ejecutamdo un programa y esta trabajando un areas de trabajo no se puede, sale el erroe que hay que abrir en modo exclusivo y si le pones la linea de abrir en modo esclusivo sale la tabla ya esta en uso y si cierras la tabla se cierran toads la tablas, como se podria borrar ya que yo necesito contar los registros de una tabla para de alli crear un bucle con esa cantidad pero cuenta inclusive los eliminados logicamente
Gracias

[jorgeow]

Hola,

Lo que debes hacer es primero verificar si la tabla esta abierta, si es asi, debes cerarrla y luego abrirla en modo exclusivo , aplicar el pack y cerrar la tabla para evitar que otros no puedan abrirla

Sería algo como esto:

If used('table_1')
use table_1
endif

use table_1 exclusive
pack
select table_1
use

Espero te sea de utilidad
saludos