Hi there,

We use a cleanup routine to cope with deleted records, corrupted indices etc. This routine is accessible to administrators only.
At the end of the routine, we try to pack the database.
This returns in the error " database must be opened exclusively"
However, we DID open it exclusively (or, at least, we tried!)

Our code:

Select 0 && first, close all tables exept one, which is a free table
lnAantWorkAreas = Select()
FOR i = 1 TO lnAantWorkAreas
Select(i)
IF Upper(Alltrim(Alias())) <> 'SYSTEEM'
USE
ENDIF
ENDFOR
Set Database to Data_Ov && the database to be packed
Close Databases && close open databases
Open Database A_dbsOvPath + '\Data_OV' Exclusive && open database exclusive
Set Database to Data_Ov
Pack Database && this returns the error


Where do we go wrong?

Thanks in advance,

Geert van Snik
Zorgned Automatisering
Wageningen, the Netherlands.