VFP 愛用者社區

[jms7275]

請教各位大大,多人使用的系統,VFP6
有5個table,1個localview
table均以share方式打開: use table_name share

在前端介面有做一個"資料重整"的按鍵,來pack table
LOCAL c, nCnt
FOR nCnt = 1 TO 5 c = ALLTRIM(STR(nCnt))
Thisform.DataEnvironment.Cursor&c..Exclusive=.t.
SELECT (Thisform.DataEnvironment.Cursor&c..Alias)
PACK
REINDEX
Thisform.DataEnvironment.Cursor&c..Exclusive=.f.
ENDFOR
=MESSAGEBOX("資料重整成功!", Exclaim,"訊息視窗")

想請問的是,是否執行此功能時要請所有線上使用者先登出即可
還是要有類似上面的程式碼,先宣告為Exclusive=.t.才行?

實際執行的結果是(單人在線)
訊息1:在重新載入設定環境後,屬性才會生效
訊息2:檔案必須以專用模式開啟

[syntech]

我只能說 PACK 本來就是需要 table exclusive 的命令,
多人使用本就不應隨便pack

from vfp help [共同存取之程式設計][Programming for Shared Access]
--------------
下列命令要求以專用模式開啟一個資料表格：

ALTER TABLE


INDEX，當建立、新增或刪除一個複合索引時


INSERT [BLANK]


MODIFY STRUCTURE，若要用此命令變更一個資料表格結構，必須以專用模式開啟該資料表格。但是，當以共用模式開啟這個資料表格時，只能在唯讀模式下使用此命令。


PACK


REINDEX


ZAP
在一個共用資料表格中執行上述命令，Visual FoxPro 將傳回錯誤訊息：[檔案必須以專用模式開啟]。

[小賴]

欲以專用模式開啟資料表格先決條件是網路上其他使用者
皆未開啟此資料表格;程式碼中你並未偵測是否有其他使用
者使用你將變更為Exclusive之資料表格, 直接將Exclusive
屬性設為.T.可能會有問題

[jms7275]

瞭解,看來還是無人使用且系統非run time期間,開table直接做pack比較妥當