Ulala2
Messages postés86Date d'inscriptionlundi 27 janvier 2003StatutMembreDernière intervention10 décembre 2006 26 juil. 2006 à 09:44
bonjour,
si c'est une base access, inclue la référence DAO et voici le code :
'fonction utilitaire pour compresser une BDD
'car meme si on vire tous les records
'on ne recupere pas lespace libre dans le fichier mdb
'cest un genre de defrag pour access
Public Function CompacterMDB(path As String, mdb As String)
Screen.MousePointer = vbHourglass 'permet de modifier le curseur en sablier
CompactDatabase path & "" & mdb, path & "" & "new.mdb", dbLangGeneral 'pour compresser, il faut que le mdb soit ferme et passer par un fichier temp
Kill path & "" & mdb 'une fois compressee, on supprime lancien fichier
Call FileCopy(path & "" & "new.mdb", path & "" & mdb) 'on renomme le nouveau fichier en le copiant
Kill path & "" & "new.mdb" 'et on delete le fichier temps
Screen.MousePointer = vbDefault 'et remettre le curseur par defaut
Ulala2
Messages postés86Date d'inscriptionlundi 27 janvier 2003StatutMembreDernière intervention10 décembre 2006 26 juil. 2006 à 10:07
bonjour,
je ne suis pas certain qu'il est nécessaire de compresser les BDD SQL serveur, car dans le cours officiel, on parle bien de croissance automatique (si on ajoute des données) et de taille maximale mais c'est tout.
dans la partie optimisation/backup/resto... je ne vois rien non plus.