Information générale
Titre:
Data base validation leaves DBC open
After running the following code, the iePoint.dbc is apparently still "open" in the file system even though VFP says it is not. Subsequent attempts to ZIP up iePoint.dbc with another VFP routine give a read error.
Any ideas as to what it going on?
parameters thisfolder
set default to (thisfolder)
open database iepoint excl
oMeta = newobject('DBCXMgr', 'DBCXMGR.VCX')
oMeta.SetDatabase(dbc())
IF oMeta.oSDTMgr.NeedUpdate('ALL')
oMeta.oSDTMgr.Update('ALL')
ENDIF
oMeta.oSDTMgr.Reindex('ALL',.T.,.t.)
oMeta.oSDTMgr.Reindex('!ALL', .T.,.t.)
set database to iepoint
pack database
close database all
flush
set default to START_UP_PATH
return "OK"
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