Discussion :

[pcvesoul]

Bonjour.

Quelqu'un connaitrait-il le code pour compresser une base Access directement depuis mon prog VB6 ?

Merci d'avance.

[pc75]

Bonjour,

De mémoire, il me semble qu'il existe la méthode CompactDatabase.

[pcvesoul]

OK. Merci beaucoup.

[pcvesoul]

Pour ceux que ca intéresserait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function CMDCompacter(Via1 As String, Nom1 As String, Via2 As String, Nom2 As String) As Boolean
 
    On Error GoTo Non:
 
    DBEngine.CompactDatabase Chemin1 & "\" & Nom1 , Chemin2 & "\" & Nom2
 
    CMDCompacter = True
 
    Exit Function
 
Non:
 
    CMDCompacter = False
 
End Function

edit : cafeine,