FoxPro/Visual FoxPro - eliminar registros de tablas en foxpro

DESEO SABER COMO PUEDO ELIMINAR REGISTROS DE UNA TABLA EN FOXPRO, POR MEDIO DE UN FORMULARIO, TENGO EL COMANDO DELETE, ME MUESTRA EN PANTALLA QUE LOS REGISTROS HAN SIDO ELIMINADOS, PERO CUANDO VUELVO A ABRIR EL PROYECTO LOS DATOS APARECEN DE NUEVO EN LA TABLA.

ESPERO SU PRONTA RESPUESTA

GRACIAS POR LA ATENCION PRESTADA

Humm
Parece ke q te falta algo, prueba esto:

Use Tabla.Dbf
Pack
ThisForm.Refresh
Pon todo esto en un command.

pero como puedes decirle eso?
y que tal si la tabla se abrio en modo compartido?
el pack provocara error

solo dale un PACK a tu tabla . recuerda que para que uses PACK la tabla debe de estar en uso EXCLUSIVO

Si el colega tiene razon el PACK provoca error cuando no es de uso exclusivo

Lo que Plinio Intenta decir, que es mejor no visualizar los registros marcados por "Delete".. Ya si intentas usar el "Pack" debe estar de modo exclusivo la tabla
Con un "Set Exclusive On"...Pero te recomiendo que utilices el "Delete".

Suerte►

pero en que parte va ese set exclusive on?? en el init del formulario? o antes del delete en el boton borrar?

DELETE solo marca un registro para su posterior eliminacion fisica del disco
osea el borrado es logico, se asume
y esta listo para borrarse definitivamente con un PACK
si aun asi en el formulario estas viendo que el registro que borraste aparece,
al diseñar el formulario intenta hacer en el mismo antes que todo:
SET DELETE ON
esto oculta los registros marcados con DELETE y ya no los veras
bueno, es simple teoria
pero todos alguna vez empezamos desde muy abajo
verdad muchachos?

Amigos

Puedo solo contar los registros que se encuentran marcados para eliminar. Necesito saber cuantos tengo una tabla especifica

Gracias de antemano

No se cuál es tu duda o qué necesitas:

lnRegistros_todos = RECCOUNT("tabla")

* Registros no marcados (CON SET DELTED ON)
SELECT CNT(*) FROM TalTabla INTO ARRAY laCount
lnRegistros_Activos = NVL(laCount[1,1],0)
lnRegistros_Marcados = m.lnRegistros_Todos - m.lnRegistros_Activos

Otra Forma:
SET DELETED OFF
SELECT CNT(*) FROM buymov WHERE !DELETED() INTO ARRAY laCount
? NVL(laCount[1,1],0) && registros activos (no marcados)
SELECT CNT(*) FROM buymov WHERE DELETED() INTO ARRAY laCount
? NVL(laCount[1,1],0) && registros marcados para borrar
SET DELETED ON

Una forma facil

solo pone esto en un comando:

Tengo dos tablas, tabla1 y tabla2, necesito borrar los registros de las dos tablas que estan relacionadas por n_factura. ytengo informacion desde el año 2009 y solo tengo que dejar la información de dos años, el campo de la fecha es fecha2. como hago esto, ya que si lo hago de una sola tabla si lo hace, pero necesito hacerlo de las dos tablas. El Foxpro que utilizo es el FoxPro 9.0
Les agradesco quien me pueda ayudar.

Jorge respondiendo a tu consulta:

"Tengo dos tablas, tabla1 y tabla2, necesito borrar los registros de las dos tablas que están relacionadas por n_factura. y tengo información desde el año 2009 y solo tengo que dejar la información de dos años, el campo de la fecha es fecha2. como hago esto, ya que si lo hago de una sola tabla si lo hace, pero necesito hacerlo de las dos tablas. El Foxpro que utilizo es el FoxPro 9.0
Les agradezco quien me pueda ayudar."

Select Select(1)
Use Tabla1
Select Select(1)
Use Tabla2

&& dFecha1 y dFecha2 equivale al rango de fechas a borrar.
dFecha1 = Date(2015,1,1) && 1 de Enero de 2015
dFecha2 = Date(2016,12,31) && 31 de Diciembre de 2016.

Select Tabla2
Delete From Tabla2 Where n_Factura IN (Select n_Factura From Tabla1 a Where Between(a.Fecha2,dFecha1,dFecha2))
Sele Tabla1
Delete All For Between(a.Fecha2,dFecha1,dFecha2)

NOTA:
1. He supuesto que Tabla1 es Facturas y Tabla2 es Detalles de Factura.
2. Cambia el Rango de Fechas dFecha1/2 para que tome el rango que deseas.
3. Aquí solo marcas para borrar los registros, si deseas limpiar totalmente la tabla usa PACK pero abriendo la misma en modo exclusivo (USE Tablan EXCLUSIVE).
4. A fin de que tu consulta no se pierda haz una nueva, sino se pierde entre las demás.
Exitos.

Abel: Estuve buscando cómo eliminar registros que estaban relacionados por un campo en dos tablas, y después de muchos blogs e intentos fallidos, en tu comentario encontré la solución.

Muchas gracias!!!