oprette access reference og komprimer basen

Her er et eksempel, der er anvendt i et større system. Koden findes i Word-VBA, der således håndtere anvendelsen af bl.a. en database, herunder komprimering. Måske kan du anvende dette eksempel:

Sub Start()
Dim ts As String
    xsti = Tools.xsti
    testOmMappeFindes xsti + SikKopDB
   
    kilde1 = xsti + "db_løn.mdb"                    'p.t. database
    kilde2 = xsti + "ny_db_løn.mdb"                'arbejdskopi
   
    lukDB
   
    ts = Format(Now, "dd-mm-yy hhmmss")
    FileCopy kilde1, xsti + SikKopDB + "Kopi_" + ts + "_" + "DB_Løn.mdb" 'Skab en sikkerhedskopi
   
    ShowSize kilde1, "Før komprimering"
   
    If Dir(kilde2) <> "" Then _
      Kill kilde2                                  'slet arbejdsDB hvis eksisterer
     
    DBEngine.CompactDatabase kilde1, kilde2, , , ";pwd=" & Tools.xpw
   
    ShowSize kilde2, "Efter komprimering"
   
    Kill kilde1                                    'slet oprindelige db
    FileCopy kilde2, xsti + "DB_Løn.mdb"            'kopi ny til oprindeligt navn
    Kill kilde2                                    'slet arbejdsDB
End Sub

Hey,

Hvad er DBEngine?

Hey,

Har fået det til at virke. Smider du et svar, så får du pointene.

Min kode jeg fik til at køre (et meget simpelt program) :

Dim SourceFile As String
Dim DestinationFile As String


Private Sub Command1_Click()
    DBEngine.CompactDatabase SourceFile, DestinationFile
    Label3.Caption = "Filen er dannet"
End Sub

Private Sub Command2_Click()
   
    CD.DialogTitle = "Vælg fil der skal komprimeres"
    CD.ShowOpen
    SourceFile = CD.FileName
    Label1.Caption = "Kildefil : " & SourceFile
   
    CD.DialogTitle = "Vælg destinationsfil for komprimeret database"
    CD.ShowSave
    DestinationFile = CD.FileName
    Label2.Caption = "Destinationsfil : " & DestinationFile

End Sub

"DatabaseMotor" - eksempel fra hjælp:

CompactDatabase Method
       
Copies and compacts a closed database, and gives you the option of changing its version, collating order, and encryption. (Microsoft Jet workspaces only).

Syntax

DBEngine.CompactDatabase olddb, newdb, locale, options, password

Fint det lykkedes - her har du et svar