Compact Database Error

[squirrelly1]

The following code is erroring out on the bolded line

Dim lcStrSource As String
        Dim lcStrTarget As String
        Dim lcStrEngine As String
        Dim lcObjJRO As JRO.JetEngine
 
        lcObjJRO = New JRO.JetEngine
 
        lcStrSource = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DBLoc & "; Persist Security Info = False;Jet OLEDB:Engine Type=4"
        lcStrTarget = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DBLoc2 & "; Persist Security Info = False;Jet OLEDB:Engine Type=4"
 
        [b]lcObjJRO.CompactDatabase(lcStrSource, lcStrTarget)[/b]
 
        Kill(DBLoc)
        Rename(DBLoc2, DBLoc)
 
        MsgBox("Database Compacted")

It's giving me:

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.


Any ideas?

Squirrelly1

[kleinma]

here is a line from a backup utility i wrote that i know works..

jeCompact.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceDB, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DestDB & ";Jet OLEDB:Engine Type=5"

where of course SourceDB and DestDB are the source and destination paths... i think this backed up office 2000 DBs if im not mistaken which was engine type 5.. i noticed you had 4.. what access year MDB are you backing up? also dont know if it matters.. but i didn't use spaces between the item=value in the string

[Mike Hildner]

I have no idea if this applies or not, but I have seen this error in a (very strange) programming language called Magic. It happens when the indices I have defined on the programming side do not match the indices defined in the database.

[squirrelly1]

Aha!

I had my Type = 4...

Thanks

Squirrelly1