ceci est une fonction pour comprimer une base access 2000, il faut dans le projet ajouter la reference a DAO et a microsoft scripting runtime
Source / Exemple :
Function Compactdatabase(dbpfad As String, dbname As String) As Boolean
Dim fs As New FileSystemObject
Dim testcopy As Boolean
Dim db1 As String
Dim db2 As String
On Error GoTo compactdb_error
If Dir(dbpfad & "\dbtemp.mdb") <> "" Then Kill dbpfad & "\dbtemp.mdb"
'compression
db1 = UCase(dbpfad & "\" & dbname)
db2 = UCase(dbpfad & "\dbtemp.mdb")
DBEngine.Compactdatabase db1, db2, , dbEncrypt + dbVersion40 'Jet version
'renome
fs.CopyFile db2, db1
Compactdatabase = True
GoTo ende
compactdb_error:
Compactdatabase = False
MsgBox (Err.Description)
ende:
End Function
Conclusion :
il faut fournir, le chemin de la base et son nom
et voila...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.