Réparer une base Access

Question

j'essaie de réparer une base Access par du code :
DBEngine.RepairDatabase (BDname)
BDname recevant le nom de la base et son chemin
J'ai le message : "erreur d'exécution 3343. Format de base de données 'C:\Mes documents\Bases\Gescom.mdb' non reconnu.' "

Quelqu'un peut il m'aider ?
Merci

cs_processus · Answer

t'utilise à tous les coup DAO sur une base 2000... BIP!!!! Ca fonctionne pas, il te faut utiliser l'objet JRO avec la méthode 'CompactDatabase()'

cs_Chrystelle · Answer

J'ai oublié des infos, j'utilise ADO avec une base 2000

cs_processus · Answer

Désolé, mais c'est pas possible, l'object 'DBEngine' fait partis des composants DAO, et pas ADO !! Vérifie bien !

cs_Chrystelle · Answer

On peut pas réparer avec ADO ?

cs_processus · Answer

Si, si, mais en fait, c'est comme dans Access 2000, je sais pas si tu t'es rendu compte mais il n'y a plus la fonction "Réparer la base de donnée" parceque en fait, maintenant, "Compacter la base de donnée" fait les 2.
J'ai retrouvé un bout de code pour JRO, le voici :


Public Function CompressDatabase(ByVal Prm_strSourceDB As String, ByVal Prm_strPass As String) As Boolean
    
    Dim objJRO As Object
    Dim strDBDst As String
    Dim boolConnexionClose As Boolean
    
    On Error GoTo CompressDatabase_Err
    
    Screen.MousePointer = vbHourglass
    
    Set objJRO = CreateObject("JRO.JetEngine")
    
    strDBDst = Replace(Prm_strSourceDB, ".mdb", "_backup.mdb")
    If (FileExist(strDBDst)) Then Kill strDBDst
        
    ' Compactage / OLEEngine = 5
    objJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Prm_strSourceDB & ";Jet OLEDB:System Database=" & Replace(Prm_strSourceDB, "mdb", "mdw") & ";User ID=USER;Password=Pass"), _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBDst & ";Jet OLEDB:Encrypt Database=True;Jet OLEDB:Engine Type=5"
    
    If (FileExist(strDBDst)) Then
        Kill Prm_strSourceDB
        Name strDBDst As Prm_strSourceDB
        
        CompressDatabase = True
    End If
        
CompressDatabase_Fin:
    
    Set objJRO = Nothing
        
    Screen.MousePointer = vbNormal
    
    Exit Function
        
CompressDatabase_Err:

    Call MsgBox Err.Description
    Resume CompressDatabase_Fin

End Function



Adapte le pour tes besoin. Contact moi si t'a des questions.

cs_Chrystelle · Answer

En fait je cherche à faire ca parce que sur ma base j'ai des tas d'erreurs, il n'arrive pas à trouvr une table qui existe,... des erreurs aléatoires
Je me disais que c'était peut être la base qui était endommagée.

Réparer une base Access

6 réponses

Discussions similaires