Webmaster Forum / ASP / Database Access / October 2005

Dear All

I have one function to convert mdb database as follow:

Function ConvertMDB(SourceDB,DestDB,Format)

    Set FSO = CreateObject("Scripting.FileSystemObject")

    oldDB = SourceDb
    newDB =  Replace(SourceDb,fso.getfilename(SourceDb),"NEW_"&
fso.getfilename(SourceDb))

    fso.getfilename(olddb)

 dim Engine
 Set Engine=Server.CreateObject("JRO.JetEngine")

 Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
oldDB,  "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type="& Format &
";Data Source="  & NewDB

  ' delete original database
    FSO.DeleteFile oldDB

    ' move / rename our new, improved, compacted database
    FSO.MoveFile newDB, oldDB

    set FSO = nothing

End Function

The Problem:
================

When i call function
       call ConvertMdb(downloaddb,downloaddb,4)

it show error:

Microsoft JET Database Engine error '80004005'

Cannot perform this operation; features in this version are not available in
databases with older formats.

Please help

thanks

vichet