FoxPro/Visual FoxPro - Ayuda con delete all

   
Vista:

Ayuda con delete all

Publicado por Juan (39 intervenciones) el 28/06/2011 17:31:10
Hola, buenos días,

Les pido su ayuda en el siguiente codigo programado en el click de un botón, lo que intento es borrar todos los registros de la tabla al dar clic en el botón. Les explico, con un clic sobre el botón los registros no se marcan para ser borrados, debo dar dos clic seguidos para que puedan ser marcados y eliminados definitivamentes de la tabla.

select mitabla
IF RECCOUNT('mitabla')>0
DELETE ALL
SET EXCLUSIVE on
USE mitabla
PACK
Messagebox("OK, Tabla limpia")
ELSE
Messagebox("No hay datos para eliminar")
endif
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Ayuda con delete all

Publicado por Mauricio (1367 intervenciones) el 28/06/2011 17:42:19
Usa el ZAP:
*
select mitabla
IF RECCOUNT('mitabla')>0
SET EXCLUSIVE on
ZAP
SET EXCLUSVE OFF
Messagebox("OK, Tabla limpia")
ELSE
Messagebox("No hay datos para eliminar")
endif
*
Este comando limpia la tabla dejando intacta la estructura.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar