Fizzy !? Sorry if I sounded like that (but that was my last intention; for me that was desperately !)
To clarify myself how to close and reopen Appdata.dbc I try to execute the code bellow from MAIN MENU
*----------------------------------------
public _fromWhere
local _curr_dir, _disk_k, dd, d1, d2
*
_curr_dir = curdir()
_disk_k = sys(5)
_fromWhere = _disk_k + _curr_dir
*----------------------------------------
dd = _fromWhere + "DATA\D01"
d1 = _fromWhere + "DATA"
d2 = _fromWhere + "DATA\AppData"
*----------------------------------------
SET PATH to &dd
OPEN DATABASE Appdata
SET DATABASE to Appdata
*
CLOSE DATABASE && WORK !
*
IF !DBUSED('&dd\Appdata')
WAIT "BASE &dd\Appdata NOT ANY MORE in USE !" WINDOW at 14,40 TIMEOUT 5
ELSE
WAIT "BASE &dd\Appdata STILL in Use !" WINDOW at 14,40 TIMEOUT 5
ENDIF
*
SET PATH to &d1
SET DATABASE to &d2
*==================================
* ? …
* ? …
* m.goApp.oRegistry.CloseAll()
* ? …
* ? …
*==================================
CLOSE DATABASE && DOES NOT WORK !!!
*
IF !DBUSED('&d2')
WAIT "ORIGINAL BASE NOT ANY MORE in USE !" WINDOW at 14,40 TIMEOUT 5
ELSE
WAIT "ORIGINAL BASE STILL in USE !" WINDOW at 14,40 TIMEOUT 5
ENDIF
*
The problem is how to close \DATA\Appdata.dbc, open the same dbc in one of it's subdirectories , close it, and again reopen \DATA\Appdata.dbc without messing with Appreg01 ?!
Thank you for your patience !
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only