Fra Visual Basic: Komprimer og reparer database i Access

Hejsa. Du skal bruge "Microsoft Jet and replication object 2,6 library" på den måde kan du kompkte dine databaser.

Her nedenfor følger et eksempel på brugen af det.

Private Sub Command1_Click()
    Dim dbx As JRO.JetEngine
    Set dbx = New JRO.JetEngine
    dbx.CompactDatabase "Provider=Microsoft.Jet.Oledb.4.0;data source=d:\KundeDBXP.mdb", "Provider=Microsoft.Jet.Oledb.4.0;data source=d:\ValgsprogBackup.mdb"
    Set dbx = Nothing
End Sub

Kedde

Jeg takker .. du får point, så snart jeg har testet det! :)

Lige et spm.: hvorfor skal man specificere to connection strings?

Den første connectionstring er source, den anden er destination. Du kan ikke komprimere en eksiterende database, uden at oprette en ny DB.

Kedde

ok! tak! :)

Endelig fik jeg testet det, og det virker!

Tak for hjælpen endnu en gang ! :)

/Mikbj