在foxpro中如何判断独占打开是否会成功？

Question

如果我尝试获取在 FoxPro 中打开的独占表，如果访问被拒绝，它会生成一个对话框。 由于我的目标是非交互式应用程序，有没有办法检测操作是否会成功，或者至少让它静默失败？

Answer 1

如果您有 VFP 8 或更高版本：

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

Answer 2

对于旧版本：

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

if lSuccess ...

Answer 3

我已经成功使用 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