Base Bientôt à 2 Go !

Question

Bonjour à tous,

Je suis en train de déveloper une application qui interroge une BDD Access.

Au début, cette base ne fesait que 8300 Ko (il n'y a que des tables liées ODBC).

C'est mon Appli qui contient les requêques en SQL. Celle-ci créée et efface les tables dont elle a besoin aucours de son utilisation. Mais toute table créée est effacée.

Néanmoins, la taille de la base ne cesse de gonfler au fur et à mesure des débogages.

Je suis à 1,6 Go alors qu'il n'y a pas plus de tables et aucune requête stockée.

Qu'est-ce qui prend toute cette place ?

Comment faire pour retrouver la taille initiale de ma base après chaque utilisation de mon appli ?

Puis-je éberger mes tables (liées ODBC) dans un autre SGBD (gratuit si possible) ?

Je ne sais pas comment faire mais il me semble que SQL Server 2005 Express Edition est envisageable.

Si c'est possible, connaissez-vous un lien qui explique comment faire migrer les tables de Access vers SQL Server, puis comment adapter le code VB de l'application pour se connecter à cette nouvelle base.

D'avance merci à tous.

Guillaume.

cs_Exploreur · Answer

Salut,

Il te faudrait faire un compactage de ta base de donnée...Regarde sur le site et sur Codyx.org, il y a des sources et de snippets....

Maitenant tu peux compacter ta base de donnée directement dans access aussi, mais c'est manuel...

A+
Exploreur

 Linux a un noyau, Windows un pépin

Molenn · Answer

Sinon, je m'étais fait un petit VBScript, adapté de bout de code trouvé à droite à gauche, pour compacter une base de données (utile si tu n'as pas ACCESS sur le poste qui fait tourner ton appli, sinon, faut pas s'embêter, dans ACESS, menu Outils\Compacter et hop ^^)

'======================================================================================== 
' 
' NOM :    Compactage de la base de donnée Molenn.mdb 
' 
' AUTEUR:    Molenn 
' DATE  :
' 
' COMMENTAIRE :    Script permettant de compacter une base de données lorsque seul 
'         le runtime ACCESS est installé (et donc le menu de compactage non disponible) 
'======================================================================================== 

'**************************************************************************************** 
'Mise à jour du Script si la base de données a changé de nom : 
'il suffit de mettre à jour la variable BDDNom à la ligne 15 du script 
const BDDNom = "Molenn.mdb" 
'**************************************************************************************** 

'**************************************************************************************** 
'Initialisation 
'**************************************************************************************** 

'Détermination du chemin relatif du script (recherche du dernier "" dans le chemin du script) 
CheminScript = WScript.ScriptFullName 
LongueurChemin = Len(CheminScript) 
For i = 1 To LongueurChemin 
   Temp = InStr(i,CheminScript,"") 
   If Temp = 0 Then 
      Exit For 
      Else 
      i = Temp 
   End if 
Next 
CheminScript = Left(CheminScript,i-1) 

'Vérification de la présence de la base et de son statut 
Set ObjFSO = CreateObject("Scripting.FileSystemObject") 
   'Présence de la base de données 
If Not (ObjFSO.FileExists(cheminscript & BDDNom)) Then ' Verification de la Présence de la base 
    MsgBox "Base Introuvable à l'endroit spécifié", vbCritical + vbOKOnly, "Erreur" 
    WScript.Quit(-1) 
End If 
   'Statut de la base de données : si ouverte, fin du script 
If ObjFSO.FileExists(Mid(cheminscript & BDDNom, 1, Len(cheminscript & BDDNom) - 4) & ".ldb") Then ' Verification de la Présence du Fichier .ldb 
    MsgBox "La Base est déja ouverte, Impossible de poursuivre", vbCritical + vbOKOnly, "Erreur" 
    WScript.Quit(-1) 
End If 

'Compactage de la base de données 
Call Compactage(CheminScript, BDDNom) 

MsgBox "La Base de Donnée " & BDDNom & " est compactée.", vbInformation, "Compactage" 
'**************************************************************************************** 
'Fin du script 
'**************************************************************************************** 

'**************************************************************************************** 
'Fonction de compactage 
'**************************************************************************************** 
'Principe : Copie compactée de la base, puis remplacement de la base d'origine par la copie 
Function Compactage(Chemin,Nom) 

BDDSource = Chemin & Nom 
BBDTemporaire = Chemin & "Temp.mdb" 

Set ObjFSO = CreateObject("Scripting.FileSystemObject") 
Set ObjJRO = CreateObject("Jro.JetEngine") 
ObjJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BDDSource & ";Jet OLEDB:Database Password=", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BBDTemporaire & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=" 
ObjFSO.DeleteFile(BDDSource) 
ObjFSO.MoveFile BBDTemporaire, BDDSource 
set ObjJRO = Nothing 
set ObjFSO = Nothing 

End Function 
'**************************************************************************************** 
'Fin de la fonction 
'****************************************************************************************

Tu colles le script dans le même répertoire que ta base de données, tu changes le nom de la constante pour mettre le nom de ta base, et tu fais un double-clic sur le script.
Hop là, base compactée.

Molenn

Base Bientôt à 2 Go !

2 réponses

Votre réponse

Discussions similaires