如何確定獨家開放將在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