Discussion :

[langela94]

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 :

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

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 :

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

Set maConnexion=Nothing

et le

Code :

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

maConnexion.Close

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

[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

[random]

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

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
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

[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.