COMPACTAGE BD ACCESS

Résolu
Signaler
Messages postés
30
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
7 mars 2012
-
Messages postés
30
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
7 mars 2012
-
Bonjour,

Y a t-il quelqu'un qui peut m'aider comment compacter une base de données ACCESS en VB6.
Sachant que j'utilise une base volumineuse, et j'ai besoin de la raffraîchir en supprimant des données ( sinon des tables ) et donc pour diminuer la taille physique de la base, je voudrais la compacter par programmation.

Merci

Walid

4 réponses

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,

' ===========================================
' Compacter & Archiver la base de données
Public Sub CompactJetDatabase(ByVal Location As String, _


Optional BackupOriginal As Boolean = True)
Dim strBackupFile As String
Dim strTempFile As String
On Error GoTo CompactErr
If Len(Dir(Location)) Then

'création de la copie de sauvegarde
If BackupOriginal = True Then
strBackupFile = App.path & "" & "backup.mdb"
If Len(Dir(strBackupFile)) Then Kill strBackupFile
FileCopy Location, strBackupFile
End If

'Definition de la base temporaire
strTempFile = App.path & "" & "temp.mdb"
If Len(Dir(strTempFile)) Then Kill strTempFile

'DBEngine.CompactDatabase olddb, newdb, locale, options, password

DBEngine.CompactDatabase Location, strTempFile, ";pwd=" &
dbPassWord, , ";pwd=" & dbPassWord ' Compacter la base courrante
-> base temp

Kill
Location
' Supprimer la base courrante

FileCopy strTempFile,
Location
' Copier base tmp -> base courrante
Kill strTempFile
End If
MsgBox "La base de donnée est nettoyée", vbInformation, "Terminé"
Exit Sub
CompactErr:
MsgBox "Une erreur est apparue lors du nettoyage de la base de données", vbInformation, "Erreur détectée"
Exit Sub
End Sub


++

Zlub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
318
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
30 décembre 2005
1
Messages postés
30
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
7 mars 2012

Merci Chris, un peut compiliqué pour moi, mais je crois que je m'y retrouverai.

Mille Merci

Walid
Messages postés
30
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
7 mars 2012

Merci Zlub,
c'est super.

Walid