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
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
A voir également:
- Dbengine.compactdatabase
- Msjet bd ✓ - Forum VB.NET
- Access sql ✓ - Forum SQL
- Utiliser access - Conseils pratiques -Visual Basic / VB.NET
- Image bd ✓ - Forum VB.NET
- Access insert into - Forum SQL
4 réponses
Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
8
22 juil. 2005 à 21:17
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
' ===========================================
' 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
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
22 juil. 2005 à 09:03
Bonjour Walid,
Regarde ici
http://www.aspfr.com/codes/COMPACTER-UNE-BASE-ACCESS/8757.aspx
Chris
Regarde ici
http://www.aspfr.com/codes/COMPACTER-UNE-BASE-ACCESS/8757.aspx
Chris
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
22 juil. 2005 à 09:18
Merci Chris, un peut compiliqué pour moi, mais je crois que je m'y retrouverai.
Mille Merci
Walid
Mille Merci
Walid
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
26 juil. 2005 à 07:35
Merci Zlub,
c'est super.
Walid
c'est super.
Walid