Comprimer une base access

Commenter

Contenu du snippet

ceci est une fonction pour comprimer une base access 2000, il faut dans le projet ajouter la reference a DAO et a microsoft scripting runtime

Source / Exemple : 


Function Compactdatabase(dbpfad As String, dbname As String) As Boolean 

    
    Dim fs As New FileSystemObject
    Dim testcopy As Boolean
    Dim db1 As String
    Dim db2 As String
    
   On Error GoTo compactdb_error
   
    If Dir(dbpfad & "\dbtemp.mdb") <> "" Then Kill dbpfad & "\dbtemp.mdb"
   
   'compression
   db1 = UCase(dbpfad & "\" & dbname)
   db2 = UCase(dbpfad & "\dbtemp.mdb")
   
   DBEngine.Compactdatabase db1, db2, , dbEncrypt + dbVersion40 'Jet version
     
   'renome
    
    fs.CopyFile db2, db1
    Compactdatabase = True
    GoTo ende
   
compactdb_error:
    Compactdatabase = False
    
    MsgBox (Err.Description)
    
ende:

End Function

Conclusion :


il faut fournir, le chemin de la base et son nom
et voila...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Poulipe)