FoxPro/Visual FoxPro - Problema con ZAP IN

Saludos, tengo un pequeño problema. Al iniciar un formulario quiero borrar todos los datos de una tabla, por lo que he decidido usar el comando Zap In. Sé que para usarlo hay que abrir la tabla en modo exclusivo:

USE myTable EXCLUSIVE

El problema es que me sale un error que dice: "El archivo está en uso"

¿Qué puedo hacer para cerrar esa tabla únicamente y abrirla en modo exclusivo para poder aplicar el ZAP IN, alguna otra solución?

Gracias por su tiempo.

Si esta siendo usada por otro usuario no hay maneras de aplicar el Zap. Lo que podrias controlar es que tu preguntes si ese archivo esta abierto. Ver función FREAD() en la ayuda.

Hola amigo

Lo que puedes hacer es algo bien simple

1-preguntas si la tabla esta abierta si lo esta la cierras para ello haces esto :

IF USED('nombre_tabla')
SELECT nombre_tabla
ENDIF

2-Abreas la tabla de forma exclusina asi :

USE nombre_tabla EXCLUSIVE

---- y listo-----

**********************************************************************************
pero amigo si deseas trabajar esta tabla siempre de modo exclusivo mejor la abres via codigo en evento INIT o LOAD de tu formulario la tabla de forma exclusiva y te evitas de problemas.... Recuerda que su haces esto la tabla tienes que quitarla del entorno de datos de tu formulario y asignarle un area de trabajo libre

SELECT 0
USE nombre_tabla EXCLUSIVE
***************************************************************************************

El problema que el USED solo detecta si una tabla esta abierta en la seccion actual. Ejemplo si otro usuario la tiene abierta en otra pc no te lo detecta. Por eso recomiendo el FREAD que devuelve -1 si un archivo esta abierto.

y si la tabla esta en uso en otro formulario o en otra parte del programa como quieres realizar el ZAP ??

IF USE()
mESSAGEbOX('No se puede realizar la limpieza de la tabla',0,"Sistemas")

ENDIF

y si la tabla esta en uso en otro formulario o en otra parte del programa como quieres realizar el ZAP ??

IF USE('AliasTabla")
mESSAGEbOX('No se puede realizar la limpieza de la tabla '+AliasTabla ,0,"Sistemas")
USE

ENDIF


Suerte

Para ti tambien la observacion que le hice a Carlos Ayala. Pueden probar abriendo Foxpro dos veces, en la primera abre una tabla y en la segunda usa USED() y te dara falso. Por eso recomiendo FREAD()

Pero no el FREAD() es una funcion de bajo nivel ???


Seria cuestion de probarlo