Repair an Access Database

Category:

Database

Type:

Snippets

Difficulty:

Beginning

Author:

Sean Iannuzzi

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Function DAO_RepairDataBase(ByVal pvStrDataBaseName _
  As String) As String
'----------------------------------------------------
' Purpose:
' Repairs any DataBase
'
' Parmaters:
' 1 - pvStrDataBaseName
'     The database Path and Name
'
' Return Value:
' Empty string if successful
' String with err number(s) & "|" & Err description(s)
'
' Notes:
' This routine uses the Database Engine's error collection
'  to notify the user of exactly what's gone wrong during the 
'  repair process.
'

'-----------------------------------------------------
    
Dim lErrDataBaseErrors      As DAO.Error
Dim lStrErrors              As String
Const lcIntNoErrors = 0
Const lcStrErrorDivider = "|"
lStrErrors = ""

On Error Resume Next
    
' Attempt to repair the database
DBEngine.RepairDatabase pvStrDataBaseName
    
' If an ERROR occured then show the user all of the errors
'  in the database engine's error collection
If Err <> lcIntNoErrors Then
    
    For Each lErrDataBaseErrors In DBEngine.Errors
        lStrErrors = lStrErrors & lErrDataBaseErrors.Number _
        & lcStrErrorDivider & lErrDataBaseErrors.Description _
        & Chr(9)
    Next lErrDataBaseErrors
End If

On Error GoTo 0

DAO_RepairDataBase = lStrErrors

End Function