Cómo determinar si está abierta exclusiva tendrá éxito en FoxPro?

Question

Si intento para ganar una mesa exclusiva abierta en FoxPro, genera un cuadro de diálogo si se deniega el acceso. Desde que estoy focalización una aplicación no interactiva, hay una manera de detectar si la operación tendrá éxito, o al menos tener que falle en silencio?

Answer 1

Si usted tiene VFP 8 o superior:

TRY
    USE MyTable IN 0 EXCLUSIVE
ENDTRY
...
IF USED ("MyTable")
    *-- Use the table here
ENDIF

Answer 2

Para versiones anteriores:

cOldError = ON("ERROR")
ON ERROR *
USE MyTable IN 0 EXCLUSIVE
lSuccess = used("MyTable")
ON ERROR &cOldError

if lSuccess ...

Answer 3

He tenido éxito en el uso FOPEN ...

nFHdl = FOPEN("myfile.dbf", 1)  &&  1 tries to open the file for writing
IF nFHdl > 0 THEN
   FCLOSE(nFHdl)
   USE myfile.dbf exclusive
ELSE
   = messagebox("Can't open Exclusive")
ENDIF