Comprimer une base access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 523 fois - Téléchargée 49 fois

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

Ajouter un commentaire

Commentaires

Messages postés
47
Date d'inscription
jeudi 13 juin 2002
Statut
Membre
Dernière intervention
3 juillet 2006

Ca marche bien sauf que le dbencrypt ça fout la merde et ca marche pas alors enlève le ;-)
Messages postés
47
Date d'inscription
jeudi 13 juin 2002
Statut
Membre
Dernière intervention
3 juillet 2006

Ca marche bien s

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.