How to "compact" an Access Database

[hterce]

Hi,

How do you "compact" an .MDB file in FW? Can somebody share me a code?

Thanks
Bert

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

FUNCTION MAIN()

    LOCAL oJro := CREATEOBJECT( "JRO.JetEngine" )

    LOCAL cConStr1 := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=old.mdb"
    LOCAL cConStr2 := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=new.mdb"

    oJro:CompactDatabase( cConStr1, cConStr2 )

    RETURN NIL

EMG