Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
*-- DbVersion.DBF contains just one record and remains still open by the app
*-- I am using DbVersion.DBF to check possible app exclusive use
*-- Failed FLUSH FORCE on DbVersion.DBF indicates network dropout
*-- If DbVersion.DBF isn't open for whatever reason
*-- simply try to open DbVersion.DBF again. If it fails data were disconnected.
LOCAL lcAlias, lcDataPath, llError, loErr AS Exception
lcAlias = SYS(2015)
lcDataPath = AppDataFolder()
FLUSH IN DBVERSION FORCE
USE (m.lcDataPath + "SYSDATA\DBVERSION") AGAIN SHARED IN 0 ALIAS (m.lcAlias)
USE IN SELECT(m.lcAlias)
CATCH TO loErr
llError = .T.
*-- Close the App if error happens
AppMessage("msgDataFolderWasDisconnected", 16, "Application Error " + TRANSFORM(loErr.ErrorNo))
DO CloseAllForms WITH , .T.
ON ERROR QUIT
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.