DBEngine.CompactDatabase Method (DAO)

S’applique à : Access 2013 | Access 2016

Copie et compacte une base de données fermée, et vous donne la possibilité de changer sa version, son ordre de tri, et son chiffrement. (Espaces de travail Microsoft Access uniquement).

Syntaxe

expression . CompactDatabase(SrcName, DstName, DstLocale, Options, password)

expressionExpression renvoyant un objet DBEngine.

Paramètres

Remarques

Vous pouvez utiliser l'une des constantes suivantes pour l'argument DstLocale afin de spécifier la propriété CollatingOrderdu texte pour des comparaisons de chaînes.

Vous pouvez utiliser l'une des constantes suivantes dans l'argument options pour spécifier s'il faut chiffrer ou déchiffrer la base de données pendant son compactage.

Si vous ne spécifiez pas de constante de chiffrement ou que vous incluez à la fois dbDecrypt et dbEncrypt, DstName aura le même chiffrement que SrcName.

Vous pouvez utiliser l'une des constantes suivantes dans l'argument options pour spécifier la version du format de données de la base de données compactée. Cette constante n'affecte que la version du format des données de NomDest mais non la version des objets définis par Microsoft Access, tels que les formulaires et les états.

Vous pouvez spécifier un seul utilisateur par commande. Si vous l'omettez de renseigner une constante de la version, DstName aura la même version que SrcName. Vous ne pouvez compacter DstName que dans une version identique ou supérieure à celle de SrcName.

À mesure que vous modifiez les données dans une base de données, le fichier de base de données peut se fragmenter et utiliser plus d'espace disque que nécessaire. Vous pouvez périodiquement utiliser la méthode CompactDatabase pour compacter la base de données et défragmenter le fichier de base de données. La base compactée est généralement plus petite et s'exécute plus rapidement. Il est également possible de modifier l'ordre de classement, le chiffrement et la version du format de données pendant la copie et le compactage de la base de données.

Vous devez fermer SrcName avant de la compacter. Dans un environnement multi-utilisateur, les autres utilisateurs ne peuvent avoir SrcName ouverte pendant que vous la compactez. Si SrcName n'est pas fermée ou n'est pas accessible en mode exclusif, une erreur se produit.

Dans la mesure où CompactDatabase crée une copie de la base de données, vous devez avoir suffisamment d'espace disque pour la base de données d'origine et la base dupliquée. L'opération de compactage échoue si il n'y a pas suffisamment d'espace disque. La base de données dupliquée DstName ne doit pas nécessairement être sur le même disque que SrcName. Après le compactage réussi d'une base de données, vous pouvez supprimer le fichier SrcName et renommer le fichier DstName compacté avec le nom du fichier d'origine.

La méthode CompactDatabase copie toutes les données et les options d'autorisation de sécurité de la base de données spécifiée par SrcName vers la base de données spécifiée par DstName.

Tableaux liés chiffrés

Les mots de passe chiffrés dépendent du format de fichiers de la base de données que vous utilisez. Si vous utilisez une base de données Access 2003 (.mdb) ou antérieure, vous aurez un mot de passe pour protéger la base de données et un mot de passe distinct pour chiffrer la base de données. Pour les bases de données Access 2007 (.accdb) et version ultérieure (.mdb), la seule option consiste à chiffrer et protéger la base de données avec un mot de passe, comme l’option deux mots de passe distincts a été supprimée.

Vous pouvez utiliser l’exemple suivant du code VBA pour un bouton de commande :

    Private Sub Command0_Click()
    
    Dim strSourcePath As String
    Dim strDestPath As String
    
    strSourcePath = "<path>\sourceDb.accdb"
    strDestPath = "<path>\destDb.accdb"
    
    DBEngine.CompactDatabase strSourcePath, strDestPath, dbLangGeneral & ";pwd=Access", dbVersion120, ";pwd=Access"
    
    Set CurrentDatabase = CurrentDb
    Set LinkedTableDef = CurrentDatabase.CreateTableDef 
    ("My Linked Table")
    LinkedTableDef.Connect = "MS Access;pwd=Access";database=" & strDestPath
    LinkedTableDef.RefreshLink
    
    
    MsgBox "Finished"
    
    End Sub 

Exemple de code suivant montre comment utiliser CompactDatabase avec un mot de passe (clé de chiffrement) et créer un lien à un tableau dans cette base de données compactée. Notez qu’un mot de passe doit être fourni.

    Private Sub CompactAndLink_Click() 
     
    Dim strSourcePath As String
    Dim strDestPath As String
    Dim strSourceTableName As String
    Dim strDestTableName As String
    Dim tdf As TableDef
     
    strSourcePath = "<path>\<database>.accdb"
    strDestPath = "<path>\<database>.accdb"
    strSourceTableName = "<table name in destination database>"
    strDestTableName = "<linked table name>"
     
    ' Compact source database into new destination database with encrypted password
    DBEngine.CompactDatabase strSourcePath, strDestPath, dbLangGeneral & ";pwd=Access", dbVersion120, ";pwd=Access"
     
    ' Link to one of the tables in the destination database
    ' Password must be provided in the Connect property
     
    Set CurrentDatabase = CurrentDb
    Set tdf = CurrentDatabase.CreateTableDef(strDestTableName)
       
        With tdf
            .Connect = ";pwd=Access" & ";DATABASE=" & strDestPath
            .SourceTableName = strSourceTableName
        End With
        
    CurrentDatabase.TableDefs.Append tdf
     
    MsgBox "Database compacted and encrypted password applied. Link to table also completed."
     
    End Sub