begin process at 2012 02 16 20:54:00
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > COMPACTER UNE BASE DE DONNÉES ACCESS

COMPACTER UNE BASE DE DONNÉES ACCESS


 Information sur la source

Note :
8 / 10 - par 1 personne
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Niveau :Débutant Date de création :30/10/2002 Date de mise à jour :30/10/2002 16:40:01 Vu / téléchargé :6 795 / 1 331

Auteur : dlpxlid

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Ce petit code permet de compacter une base de données access.
Pratique quand on supprime des enregistrements car la taille du fichier ne diminue pas si on ne fait pas de compactage (sacré Bill !).


 Conclusion

Pour que le programme fonctionne, il faut ajouter les références suivantes :
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 2.1 Library
Microsoft Scripting Runtime

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa
Source avec Zip VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source .NET (Dotnet) MISAHORAIRE par MdelM
Source avec Zip Source avec une capture BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge

Commentaires et avis

Commentaire de VicoLaChips2 le 30/10/2002 19:34:29

Bonjour -:)
Je pense qu'il est préférable d'utiliser msjro.dll(88 KB) plutôt que dao dans la mesure ou tu as ado en référence.... dao 3.6(545 KO) pèse une tonne ! ça fait lourd pour compacter une base -;)

@+, vic sans ça 8 pour le sujet -:)

Commentaire de tolt le 21/09/2007 08:05:48

Bonjour,

Il ne parche pas avec Vista, pourquoi ? Avez-vous une solution à cela ?
XP sans problème, Vista erreur de compactage...
Merci d'avance.

Commentaire de Cissouw le 07/03/2011 18:23:54

Bonjour tout le monde !

J'ai un gros souci concernant le compactage de ma base de données !

Pourriez vous m'aider si ça ne vous dérange pas ?

Voici mon code :

Option Compare Database

Private Sub Commande1_Click()

Dim Outil_COCO As String
Dim Tmp As String

    'Déterminer le chemin d'accès au dossier parent
    path = Access.CurrentProject.path()
    'Déterminer le chemin d'accès de "outils COCO.accdb"
    Outil_COCO = path & "\Outil COCO.accdb"
    'Déterminer le chemin d'accès de "outils Tmp.accdb"
    Tmp = path & "\Outil Tmp.accdb"
    
    'Application.NewCurrentDatabase Path & "\Tmp.accdb", acNewDatabaseFormatUserDefault
    Call RepairDatabase(Outil_COCO, Tmp)


End Sub

'fonction avec deux valeurs d'entrées : le chemin d'accès et le nom du fichier source ainsi que du fichier destinataire
Function RepairDatabase(strSource As String, strDestination As String) As Boolean
        
        'piège d'erreur
'On Error GoTo Erreur
    
        'Compacte et répare le projet Microsoft Access en utilisant les deux valeurs d'entrée de la fonction
        RepairDatabase = Application.CompactRepair(SourceFile:=strSource, DestinationFile:=strDestination)
    
        'Réinitialiser le piège d'erreur et quitter la fonction
'On Error GoTo 0
'Exit Function
    
' Returne faux en cas d'erreur
'Erreur: RepairDatabase = False

End Function


Access m'envoie un message d'erreur me disant :

"Erreur d'exécution '7866':

Microsoft Office Access n'a pas pu ouvrir la base de données, parce que celle-ci est manquante, a été ouverte par un autre utilisateur en mode exclusif ou n'est pas un fichier ADP."

Je vous remercie d'avance de l'aide que vous pourrez me fournir !

Commentaire de Cissouw le 07/03/2011 18:36:34

J'ai mis le piège d'erreur en commentaire afin de voir quelle était l'erreur.

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,546 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales