Access97 compact using database password

[daneelmf]

Using ADO in VB6 to compact an Access97 database which has a database password set:

jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fName & "; Password=xxx", _
" Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & tmpFileName & "; Jet OLEDB:Engine Type=4"

Results with error (3028):
"The workgroup information file is missing or opened exclusively by another user"

The only user in the db is Admin and there is no .mdw file. The code works if the database password is cleared.

Thanks in advance

 

[merrick]

I'm having a similar problem. Did you figure out what was going on?
Merrick

 

[KyleS]

Hi,

I used this code from Access '97 to Access '97 but I don't see why it won't fly for VB (I'm using ADO 2.5)

jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fName & "; Jet OLEDBatabase Password=xxx", _
" Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & tmpFileName & "; Jet OLEDB:Engine Type=4"

That ought to solve the password issue, now for the workgroup...

Put this at the end:
"Jet OLEDB:System Database = " & SysCmd(acSysCmdGetWorkgroupFile)

Although you might need to replace "SysCmd(acSysCmdGetWorkgroupFile)" with the location of the default workspace since "SysCmd(acSysCmdGetWorkgroupFile)" is an Access function (I believe). Kyle

+ =
+ =