FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour How to "compact" an Access Database
Posts: 10
Joined: Sat Dec 22, 2007 12:02 AM
How to "compact" an Access Database
Posted: Sat Dec 22, 2007 04:19 PM

Hi,

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

Thanks
Bert

Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: How to "compact" an Access Database
Posted: Sat Dec 22, 2007 07:19 PM
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

Continue the discussion