COMPACTAGE BD ACCESS

Résolu
multipac Messages postés 30 Date d'inscription jeudi 15 juillet 2004 Statut Membre Dernière intervention 7 mars 2012 - 22 juil. 2005 à 08:57
multipac Messages postés 30 Date d'inscription jeudi 15 juillet 2004 Statut Membre Dernière intervention 7 mars 2012 - 26 juil. 2005 à 07:35
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

Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
22 juil. 2005 à 21:17
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
cs_69chris Messages postés 318 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 30 décembre 2005 1
22 juil. 2005 à 09:03
0
multipac Messages postés 30 Date d'inscription jeudi 15 juillet 2004 Statut Membre Dernière intervention 7 mars 2012
22 juil. 2005 à 09:18
Merci Chris, un peut compiliqué pour moi, mais je crois que je m'y retrouverai.

Mille Merci

Walid
0
multipac Messages postés 30 Date d'inscription jeudi 15 juillet 2004 Statut Membre Dernière intervention 7 mars 2012
26 juil. 2005 à 07:35
Merci Zlub,
c'est super.

Walid
0