Compacter et reparer une base de donnée

Commenter

Contenu du snippet

2 Procédures souvent demander en Forum....

Source / Exemple : 


Public Sub Compactage(Fichier As String)

Dim fs As Object
Dim db As New DBEngine

MousePointer = 11

Set fs = CreateObject("Scripting.FileSystemObject")

If Not (fs.FileExists(Fichier)) Then ' Verification de la Présence du Fichier
    MsgBox "Base Introuvable à l'endroit spécifié", vbCritical + vbOKOnly, "Erreur"
    Exit Sub
End If

If fs.FileExists(Mid(Fichier, 1, Len(Fichier) - 4) & ".ldb") Then ' Verification de la Présence du Fichier .ldb
    MsgBox "La Base est déja Ouverte, Impossible de Poursuivre", vbCritical + vbOKOnly, "Erreur"
    Exit Sub
End If

db.CompactDatabase Fichier, "C:\Tempo.mdb" ' Compactage de la Base dans une Base Tempo

fs.DeleteFile Fichier ' Suppression de la Base
fs.MoveFile "C:/Tempo.mdb", Fichier ' Renommage de la Base Tempo

MsgBox "La Base de Donnée : " & Fichier & Chr$(13) & " est Compactée.", vbInformation, "Compactage"

MousePointer = 1

End Sub

Public Sub Reparation(Fichier As String)

Dim fs As Object
Dim db As New DBEngine
Dim errLoop As Error

On Error GoTo Err_Reparation

MousePointer = 11

Set fs = CreateObject("Scripting.FileSystemObject")

If Not (fs.FileExists(Fichier)) Then ' Verification de la Présence du Fichier
    MsgBox "Base Introuvable à l'endroit spécifié", vbCritical + vbOKOnly, "Erreur"
    Exit Sub
End If

db.RepairDatabase Fichier

MsgBox "La Base de Donnée : " & Fichier & Chr$(13) & " est Réparée.", vbInformation, "Réparation"

MousePointer = 1

On Error GoTo 0

Exit Sub

Err_Reparation:

   For Each errLoop In db.Errors
      MsgBox "Numéro d'erreur : " & errLoop.Number & _
         vbCr & errLoop.Description
   Next errLoop

End Sub

Conclusion :


Pour Appeller les Procédures :

Call Compactage("c:/Base.mdb")

Call Reparation("c:/Base.mdb")

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_ITALIA)