Comment compacter une base Access avec ADO ?

Version imprimable

Je sais que c'est une question récurrente, mais je n'ai pas trouvé mon bonheur dans les réponses existantes...

J'ai tapé ce code pour compacter ma base Access (en ayant au préalable intégré la référence appropriée) :
Code:

1 2 3 4 5 6 Dim jro As jro.JetEngine Set jro = New jro.JetEngine jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Access Datas\QuickAccess.mdb", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Access Datas\QuickAccessCompact.mdb;Jet OLEDB:Engine Type=4"
...et ca devrait marcher.

Le seul problème, c'est que magré le fait que je ferme la connexion avec ma base dans le formulaire précédent, j'obtiens un message d'erreur qui me dit qu'elle est ouverte en mode exclusif par un autre utilisateur ou application.

Comment se débarrasser de la connexion (j'ai déjà ajouté le

Code:

Set maConnexion=Nothing

et le

Code:

maConnexion.Close

mais ça n'a rien changé...)

07/12/2005, 16h21
pegassus

Si tu as créé une DSN qui pointe sur cette base de donnée supprime le
et réessaye ton compacte. Sa devrait marcher

Cordialement

tu devrais le faire en dao c'est plus facile
j'ai ceci en magasin si tu trouves ton bonheur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Function comp()
Set bd = CurrentDb()
Dim t As Recordset
Dim chem As String
Dim oui As Boolean
Dim nom As String
Dim fichier As String
Set t = bd.OpenRecordset("liste bases")
t.MoveFirst
Debug.Print t![fichier]
Do Until t.EOF()
chem = t![directorie]
nom = t![fichier]
 
oui = t![compact]
If oui Then
Debug.Print (chem & nom)
DBEngine.CompactDatabase (chem & "\" & nom), (chem & "\" & "NOUV" & nom)
Kill chem & "\" & nom
Name chem & "\" & "NOUV" & nom As chem & "\" & nom
fichier = chem & "\" & nom
Open fichier For Input As #1
tail = LOF(1)
t.Edit
t![ntaille] = tail
t.Update
Close #1
End If
t.MoveNext
Loop
DoCmd.OpenForm ("RESULTAT")
ChDir ex
End Function

08/12/2005, 16h24
langela94

J'ai trouvé une solution toute bête : j'ai placé mon code de compactage en tout début de mon programme, juste avant l'ouverture de ma connexion. Ca ne résout pas le problème, mais j'ai pu le contourner de cette manière.

Merci, je vais tester ton code.