Comprimer une base access

0/5 (2 avis)

Snippet vu 6 742 fois - Téléchargée 51 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
cs_Belt Messages postés 47 Date d'inscription jeudi 13 juin 2002 Statut Membre Dernière intervention 3 juillet 2006
27 juin 2002 à 16:22
Ca marche bien sauf que le dbencrypt ça fout la merde et ca marche pas alors enlève le ;-)
cs_Belt Messages postés 47 Date d'inscription jeudi 13 juin 2002 Statut Membre Dernière intervention 3 juillet 2006
27 juin 2002 à 16:21
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.