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 !
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement