Discussion :

[Emcy]

Bonjours,

à l'aide d'excel, je supprime tous les elements de ma BDD acces en utilisant la requete :
MaRequete = "DELETE * FROM " & NomTable

=> lorsque je lie ensuite ma BDD mes elements sont bien tous supprimés.

Le problème est que la taille du fichier de ma BDD ne diminue pas (5Mo) : pourquoi ?

[ouskel'n'or]

Le problème est que la taille du fichier de ma BDD ne diminue pas (5Mo) : pourquoi ?

Même après fermeture et ré-ouverture ?

[Megaxel]

Non, c'est normal. Le fichier ne dimimnue pas de taille tout seul, tu dois compresser ta base. Ça se fait dans Access, mais il doit bien y avoir une commande pour le faire en VBA. Je vais fouiller un peu.

[Emcy]

Même après fermeture et ré-ouverture ?

=> non

[ouskel'n'or]

Essaie le compacter manuellement ta base, rien que pour voir
Extrait de l'aide

Compacter et réparer un fichier Microsoft Access
Pour des performances optimales, vous devez compacter et réparer régulièrement les fichiers Microsoft Access. Si un problème sérieux se produit lors de l'utilisation d'un fichier Microsoft Access et que le programme tente de récupérer le fichier, vous risquez de recevoir un message vous indiquant que l'opération de réparation a été annulée et que vous devez compacter et réparer le fichier.

Pour être en mesure de compacter et réparer une base de données Microsoft Access, vous devez disposer des autorisations d'accès Ouvrir/Exécuter et Ouvrir en exclusif sur celle-ci.

Compacter et réparer le fichier Microsoft Access en cours

Si vous compactez une base de données Microsoft Access partagée, située sur un serveur ou dans un dossier partagé, vérifiez que cette dernière a été fermée par tous les autres utilisateurs.
Dans le menu Outils, pointez sur Utilitaires de base de données, puis cliquez sur Compacter une base de données.
Compacter et réparer un fichier Microsoft Access fermé

Fermez le fichier Microsoft Access en cours. Si vous compactez une base de données Microsoft Access partagée, située sur un serveur ou dans un dossier partagé, vérifiez que cette dernière a été fermée par tous les autres utilisateurs.
Dans le menu Outils, pointez sur Utilitaires de base de données, puis cliquez sur Compacter une base de données.
Dans la boîte de dialogue Compacter une base de données, spécifiez le fichier Microsoft Access que vous souhaitez compacter, puis cliquez sur Compacter.
Dans la boîte de dialogue Compacter la base de données sous, spécifiez le nom, le lecteur et le dossier du fichier Microsoft Access compacté.
Cliquez sur Enregistrer.
Si vous utilisez le même nom, le même lecteur et le même dossier que pour le fichier d'origine, Microsoft Access remplace ce fichier par la version compactée lorsque l'opération de compactage de la base de données ou du projet Microsoft Access a été effectuée correctement.

Compacter et réparer un fichier Microsoft Access automatiquement lors de sa fermeture

L'opération de compactage n'a pas lieu si vous fermez une base de données Microsoft Access partagée alors qu'un autre utilisateur ne l'a pas fermée.

Ouvrez la base de données ou le projet Microsoft Access que vous souhaitez compacter automatiquement.
Dans le menu Outils, cliquez sur Options.
Cliquez sur l'onglet Général.
Activez la case à cocher Compacter lors de la fermeture.
Remarque Vous pouvez interrompre le processus de compactage et de réparation en appuyant sur CTRL+PAUSE ou ÉCHAP.

A toutes fins utiles

[Emcy]

avant compactage => 5Mo
après compactage => 108Ko

=> ça à l'air de marcher

[ouskel'n'or]

Ton pb est résolu ?
Pour paraphraser TheoCourrant, "Alors dis-le, m... quoi ! "

[Emcy]

ben non mon probleme n'est pas resolu : la seule chose que je peux dire c'est qu'il faut bien compacter la base de données pour supprimer les elements "inutiles" qui gonfle la taille de la BDD inutilement.

Maintenant le probleme est de savoir comment faire pour compacter la BDD en VBA

[Megaxel]

Copier-coller brutal d'un truc non testé mais récupéré sur un site:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub cmdCompacter_Click ()
    sNomBase= "C:\Mes documents\Base.MDB" 
    sNomBaseTmp= "C:\Mes documents\BaseTmp.MDB" 
    DBEngine.CompactDatabase sNomBase, sNomBaseTmp '1. Compactage dans une nouvelle base  
    Kill sNomBase '2. Suppression de la base originale  
    Name sNomBaseTmp As sNomBase '3. Renommer la base compactée avec le nom de la base originale  
End Sub

Tu essaies, et tu nous dis... (CopyRight Ousk)

[ouskel'n'or]

Tu as "tout ça" dans l'aide d'Access
Extrait :

Compacte et répare la base de données (.mdb) ou le projet Microsoft Access (.adp) spécifiés. Renvoie un Boolean; True si l'opération a réussi.

expression.CompactRepair(SourceFile, DestinationFile, LogFile)

expression Obligatoire. Expression qui renvoie un des objets de la liste S'Applique à.

SourceFile Valeur String requise. Le chemin et le nom complets du fichier de base de données ou de projet à compacter et réparer.

DestinationFile Valeur String requise. Le chemin et le nom complets indiquant où doit être enregistré le fichier restauré.

LogFile Boolean facultatif. True si un fichier journal est créé dans le répertoire de destination pour répertorier les éventuels problèmes du détectés dans le fichier source. Ce journal n'est créé qu'en cas de problème dans le fichier source. Si LogFile est False ou omis, aucun journal n'est créé, même si des problèmes sont détectés dans le fichier source.

Remarques
Le fichier source ne doit pas être la base de données en cours. Il ne doit pas non plus être ouvert par un autre utilisateur, car l'appel à cette méthode ouvre le fichier de manière exclusive.

Exemple
L'exemple suivant compacte et répare une base de données, crée un journal en cas de problème dans le fichier source, puis renvoie une valeur Boolean indiquant si l'opération a réussi. Pour que cet exemple fonctionne, vous devez lui indiquer les chemins et noms de fichier de la source et de la destination.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function RepairDatabase(strSource As String, _
        strDestination As String) As Boolean
        ' Input values: the paths and file names of
        ' the source and destination files.
 
    ' Trap for errors.
    On Error GoTo error_handler
 
    ' Compact and repair the database. Use the return value of
    ' the CompactRepair method to determine if the file was
    ' successfully compacted.
    RepairDatabase = _
        Application.CompactRepair( _
        LogFile:=True, _
        SourceFile:=strSource, _
        DestinationFile:=strDestination)
 
    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function
 
' Return False if an error occurs.
error_handler:
    RepairDatabase = False
 
End Function

C'était si tu ne l'avais pas...

A+

[Megaxel]

Ha ouais, c'est good, ça, merci, Ouskel'n'or !!
Et bravo pour ton 800è message!!!
Ça se fête!!

[ouskel'n'or]

Quand on aime, on compte pas !

éééééet 801 !

Et j'en fais plein des comme ça

A+

[Megaxel]

Ha d'accord, c'est pour ça que mon bip-bip qui court comme un malade ne rattrapera jamais ton poulet qui marche...


Heuuu, Emcy, désolé de pourrir ton post...

[Emcy]

j'avais trouver un exemple similaire mais il faut mettre Microsoft DAO dans les reference => donc c'est un peu bete d'avoir une partie avec ADO et une autre avec DAO : je crois que je vais tout passer en DAO...

[ouskel'n'or]

c'est pour ça que mon bip-bip qui court comme un malade ne rattrapera jamais ton poulet

D'abord c'est pas un poulet, c'est un dodo, une espèce disparue depuis le 19 ième siècle... Je suis le dernier

Heuuu, Emcy, désolé de pourrir ton post...

Ça, je ne te le fais pas dire !
Excuse Emcy,

je crois que je vais tout passer en DAO...

Là, je ne peux pas t'aider.

A+

[Emcy]

voila qui dervait vous interresser :
http://www.developpez.net/forums/viewtopic.php?t=415312

[Megaxel]

Pour la référence à ajouter au projet, moi, j'ai mis "Microsoft Access nn.n Objects Library", et pas DAO.
(Ouskel'n'or : Ils avaient une crète, les dodos? Ou alors, c'est un dodo déguisé en poulet... )

[ouskel'n'or]

C'est très drôle, Megaxel