foxpro - foxproで排他的オープンが成功するかどうかを判断する方法は?

Question

FoxPro で開いている排他的なテーブルを取得しようとすると、アクセスが拒否された場合にダイアログ ボックスが生成されます。非対話型アプリケーションをターゲットにしているので、操作が成功するかどうか、または少なくともサイレントに失敗するかどうかを検出する方法はありますか?

Answer 1

VFP 8 以上をお持ちの場合:

試す
    USE MyTable IN 0 EXCLUSIVE
エンドトライ
...
使用されている場合 (「MyTable」)
    *-- ここの表を使用
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