Komprimer access fra visual basic

Fandt lige lidt gammel kode:

Public Sub KomprimerAccess(DatabaseSti As String)

Dim fso As New FileSystemObject
Dim engine As Object

Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set engine = CreateObject(\"DAO.DBEngine.35\")

Dim D2 As String

On Error Resume Next
D2 = Left$(DatabaseSti, Len(DatabaseSti) - 4)

D2 = D2 & \"T\" & \".mdb\"


engine.CompactDatabase DatabaseSti, D2
 
fso.DeleteFile DatabaseSti
fso.MoveFile D2, DatabaseSti

Set fso = Nothing
Set engine = Nothing

End Sub

infojens har ret.

Hvis du inkludere DAO i din referenceliste, kan du undgå alt besværet med at oprette objekter.

Du kan derefter uden større problemer kalde funktionerne:

RepairDatabase()
CompactDatabase()

hmmmmmm

Jeg er ikke den store VB haj, så jeg kan ikke helt gennemskue hvad du gør ovenover, men jeg har via metoden \"DBEngine.CompactDatabase .....\"
fået det til at køre, hvor jeg først kopier til en ny komprimeret, sletter den gamle, og omdøber den nye til det gamle navn. Dette kører OK....men
det er kun når access er lukket ned at det virker, og jeg har databasen til at stå åben hele tiden.

Når der skal komprimeres ved jeg at databasen ikke er i brug. Kan jeg i skriptet lukke access filen ned først (eller skal det være hele access??)
derefter køre komprimeringen, og til sidst aktivere access igen??

Jeg regner med at det er sådan noget jeg er nødt til, men kender ikke koderne for at \"slukke\" og \"tænde\" igen

Håber nogen kan hjælpe, og tak for de sendte svar.
123...

For øvrigt....

Jeg har oprettet DAO i referencelisten...det er igennem denne at al kommunikation til/fra DB foregår, jeg bruger ikke ODBC.

Spørgsmål lukkes hermed