Rick ,
This is the code I am using
set path to data, c:\stonefield\,c:\stonefield\source, c:\stonefield\dbcx
set classlib to dbcxmgr
release oMeta
public oMeta
oMeta = createobject('MetaMgr')
if type('oMeta') # 'O' or isNull(oMeta)
=Messagebox('unable to instantiate MetaMgr class.')
return .F.
endif
if not oMeta.oSDTMgr.OpenData('\test\client\data2')
=Messagebox('Unable to open the database.')
return .F.
endif
if not oMeta.oSDTMgr.OpenAllTables()
=Messagebox('Unable to open one or more tables.')
return .F.
endif
close database
open database \test\client\data2 exclusive
oMeta.oSDTMgr.Reindex()
op=oMeta.oSDTMgr.NeedUpdate()
?op
oMeta.oSDTMgr.Update()
close all
return
Thanks
Précédent
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