Attendre la fin de la commande "compacter la base de données"

Version imprimable

Bonjour,
ne disposant pas de l'option "compacter à la fermeture" dans Access 97, je suis en train de concocter une fonction pour le faire.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function Compacter_bdd() Dim Db, tempDb As String Db = "\\Serveur\appli appro\bdd.v2.0.mdb" tempDb = (Left(Db, (Len(Db) - 4)) & "temp.mdb") Name Db As tempDb DBEngine.CompactDatabase tempDb, Db Kill tempDb MsgBox "Base de donnée compactée avec succès !" End Function
Le souci c'est qu'il faut attendre la fin du compactage avant de "killer" le fichier tempDb.
Je pourrais me contenter de rajouter un truc du genre :
Code:

1 2 For i = 1 To 10000000 Next
mais le risque c'est de surdimensionner le délai d'attente car la durée du compactage peut être parfois assez longue...

Quelqu'un pourrait-il donc m'indiquer comment insérer une boucle d'attente qui capterait la fin de l'exécution du compactage ?

02/04/2008, 12h20
Domi2
Bonjour,

Tu as essayé de placer un
Code:

1 2 DoEvents Kill tempDb
Avant l'instruction Kill ?

Domi2
02/04/2008, 14h22
dut-dut

Citation:

Envoyé par dut-dut

Parfait, ça résout bien mon problème. Je n'avais effectivement pas pensé à cette solution.
Merci Domi2 !
8-)

Au cas où certains aient une autre réponse à fournir sur le sujet, je laisse le post ouvert jusqu'à ce soir... ;)

Je rectifie : lorsque la bdd est trop importante celà ne fonctionne pas. Je retrouve le message d'erreur "Fichier introuvable" lorsque VBA tente d'exécuter la commande kill. :roll:
02/04/2008, 14h51
dut-dut

(au cas où ça aide certains à comprendre le problème qui se pose)

En fait la commande "kill" n'avait pas fonctionné la première fois. Par contre la base de données avait bien été compactée.

Du coup quand j'ai relancé la macro complète après avoir supprimé manuellement le fichier tempDb, ça a bien marché.
(je suppose que c'est parce que le délai de compactage a été bien plus court cette fois là)

Cependant quand j'ai réessayé d'appliquer la macro à la base de départ non-compactée, ça a de nouveau planté. :(
02/04/2008, 15h03
Domi2

Bonjour,

Regarde du côté de la fonction Dir... voir dans la FAQ.

Tu boucles, si le fichier existe tu exécutes ta commande et tu sors, sinon, tu continues à boucler.

Je ne vois pas mieux... :roll:

Domi2
02/04/2008, 16h19
dut-dut
J'ai modifié mon code pour essayer cette solution.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ... DBEngine.CompactDatabase tempDb, Db Do DoEvents Loop Until Dir(tempDb, vbHidden) <> "" MsgBox "sorti de la boucle" Kill tempDb ...
Finalement, le problème vient de la commande "kill" car le msgbox s'affiche bien mais ensuite j'ai toujours l'erreur "Fichier introuvable". Et après investigations, je me rends compte que même si j'essaie d'exécuter la commande "kill" longtemps après le compactage, ça ne fonctionne pas alors que le fichier existe bien...

:? Quelqu'un a-t-il une idée ???
Je ne m'explique pas pourquoi ça fonctionne quand je retente le coup avec une base déjà compactée... :|
02/04/2008, 16h37
dut-dut

8-) ça y est !! :idea::idea::idea:

en fait tout va bien dans mon code sauf que le fichier initial Db = "\\Serveur\appli appro\bdd.v2.0.mdb" est un fichier caché... C'est pourquoi la commande Kill ne fonctionnait pas.

Le nouveau fichier Db obtenu après un premier compactage, lui, n'avait pas la propriété "Fichier caché", du coup lorsque je relançais la macro la fois suivante tout fonctionnait très bien.

Bref au final je n'ai plus qu'à me débarrasser de cette propriété en début de macro pour arriver à mes fins. :D

Rem : ce qui est bizarre c'est que les commandes CompactDatabase ou Dir() n'ont pas "bronché" sur le fait que le fichier était caché...:roll:
02/04/2008, 16h40
Domi2

Re,

Ben pour la fonction Dir, vbHidden permet justement d'en tenir compte... Donc, pas "".

Domi2

Au final pour ceux que ça intéresse, voici le code obtenu :

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
Function Compacter_bdd()
On Error GoTo Compacter_bdd_Err
Dim Db, tempDb As String
Db = "\\Td02srvvds1\TURBOMECA\DSO\DSO-Ressources\Activites\DSO-RN\appli appro\Copie de ApproVision.v2.0_bdd.mdb"
tempDb = (Left(Db, (Len(Db) - 4)) & "temp.mdb")
 
Dim AttributOriginal, ObjFSO, objFile
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = ObjFSO.GetFile(Db)
AttributOriginal = objFile.Attributes 'mémoriser l'attribut actuel (sans doute 34 si fichier caché)
objFile.Attributes = 32 '= visible
 
Name Db As tempDb
 
    DBEngine.CompactDatabase tempDb, Db
    DoEvents
    Kill tempDb
 
    objFile.Attributes = AttributOriginal 'rétablir en l'état original
 
 
    MsgBox "Base de donnée compactée avec succès !", vbInformation, "Compactage de la base de donnée"
 
Compacter_bdd_Exit:
    Exit Function
 
Compacter_bdd_Err:
    MsgBox Error$
    Resume Compacter_bdd_Exit
 
End Function

A+ ;)

03/04/2008, 09h31
fevec

Bonjour à tous,
J'ai testé (en Access87 of course)

Si je comprend bien l'usage, avant ton code
1°) tu fais une copie de ta base d'origine

2°) tu executes ton code (celui transmis)

3°) tu renommes la copie vers la base d'origine

Ton objectif est il de compacter ta dorsale, ou une autre base de données ?

Pour ma part, je travaille plutôt par fichier .bat qui lance le compactage de la base lors de la sortie de l'application ; en effet, moi je n'arrive pas à compacter la base dorsale depuis la frontale.

amicalement,
fevec
03/04/2008, 09h43
Domi2

Bonjour,

Citation:

moi je n'arrive pas à compacter la base dorsale depuis la frontale

Tu ne précises pas pourquoi...

Mais attention qu'il faut que personne ne soit connecté à la dorsale pour faire ton compactage...

Domi2

Justement, je ne le fais pas car l'utilisateur est connecté à la frontale qui a des tables liées vers la dorsale que je veux compacter, d'ou le recours à des un fichier de commande .bat que je génére en VBA, qui s'éxécute à la sortie de l'application (si l'utilisateur choisit ce "mode de sortie")

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Function QuitterCompactage() ' 09/08/07   Quitte en compactant et réparant les data
' 20/ 08/07 - génération du bat si besoin et paramètrage du chemin complet
Dim fs As FileSystemObject
Dim F As TextStream
 
Dim Commentaire As String, Destination As String, Base As String, Repertoire As String
Call LecParam("NomData", Null, Null, Commentaire)
Base = Commentaire ' nom de la base de données ex : datafev.mdb
' Commentaire   ' nom de la base de données contenant les data   ex : datafev.mdb)
Destination = Left(Commentaire, Len(Commentaire) - 4) ' nom de la base de données sans l'extension
Call LecParam("Repertoire", Null, Null, Commentaire)
Repertoire = Nz(Commentaire, "c:\base97\")
 
 
 
   ' 20/08/07
   ' vérification si le fichier c:\base97\system\COMPACTnomdelabase.bat existe
   ' sinon génération du fichier
If Dir(Repertoire & "system\COMPACT" & Destination & ".bat", vbHidden) <> "" Then
    'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
Else
' création du fichier de commande
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.opentextfile(Repertoire & "system\COMPACT" & Destination & ".bat", 2, True)
    F.write "Rem Lance lle compactage des données "
    F.WriteLine
    F.write "Rem FEVEC"
    F.WriteLine
    F.write "Rem 10/08/07 - génération depuis le code au 20/08/07 "
 '   F.WriteLine
 '   F.write "pause"
    F.WriteLine
    Dim SGBD As String
    SGBD = SysCmd(acSysCmdAccessDir) & "MSAccess.exe"  '20/08/07 ' nom et chemin d'access
    F.write Chr(34) & SGBD & Chr(34) & " " & Chr(34) & Repertoire & Base & Chr(34) & " /compact"
    F.WriteLine
    F.write Chr(34) & SGBD & Chr(34) & " " & Chr(34) & Repertoire & Base & Chr(34) & " /REPAIR"
    F.WriteLine
    F.write "Exit"
    F.Close
End If
 
'' lancement du bat de compression
Dim Retval, Commande
Commande = Repertoire & "system\COMPACT" & Destination & ".bat"
Retval = Shell(Commande, 0) '  - 0 => fenêtre cachée
 
' quitter
Application.Quit
End Function

:alerte:attention dans ce code, j'appelle 2 fois une fonction Lecparam, vous devez mettre vos paramètres à la place (repertoire, nom de la base de données)

Mais il y a certainement d'autres solutions et je suis partant pour échanger

bonne journée à tous...

Fevec

03/04/2008, 12h20
Domi2

Re,

Citation:

Justement, je ne le fais pas car l'utilisateur est connecté à la frontale qui a des tables liées vers la dorsale que je veux compacter, d'ou le recours à des un fichier de commande .bat que je génére en VBA, qui s'éxécute à la sortie de l'application (si l'utilisateur choisit ce "mode de sortie")

Et le jour ou tu as deux utilisateur, dont un qui est encore connecté, que va-t-il se passer ?

Domi2
04/04/2008, 09h25
fevec

FACON DE COMPACTER SOUS ACCESS 97

en général, j'ai peu d'utilisateurs connectés en même temps (1, 2).
c'est l'utilisateur "responsable" de la BD qui fait le choix de quitter en compactant (de temps en temps) (l'application tourne dans des TPE, 3-4 personnes)

Je sais, je devrais tester les connectés avant de lancer cela...
(je vais m'y mettre !)

alors, et vous comment compacter vous sous Access97 ?

moi : par fichier .bat à la sortie

Fevec
04/04/2008, 09h51
Domi2

Bonjour,

Bon, en principe, pas très compliqué...

Si tu veux faire compliqué, tu regardes le nombre de connectés dans le .ldb.

Il y'a quantité de discussions la-dessus dans le forum...

Moi, je fais trivial... Un formulaire de ma base est totalement indépendant, donc je n'ai plus de connection à la dorsale...

Et je teste si le .ldb existe... Si la réponse est non, je compacte...

Domi2
07/04/2008, 10h37
dut-dut

Citation:

Envoyé par fevec

Bonjour à tous,
J'ai testé (en Access87 of course)

Si je comprend bien l'usage, avant ton code
1°) tu fais une copie de ta base d'origine

2°) tu executes ton code (celui transmis)

3°) tu renommes la copie vers la base d'origine

Ton objectif est il de compacter ta dorsale, ou une autre base de données ?

Pour ma part, je travaille plutôt par fichier .bat qui lance le compactage de la base lors de la sortie de l'application ; en effet, moi je n'arrive pas à compacter la base dorsale depuis la frontale.

amicalement,
fevec

Salut,
je ne fais pas vraiment de copie de ma dorsale. C'est l'opération de compactage qui en fait obligatoirement une. En fait le code ci-dessus exécute les opérations suivantes :
1- renommer la base de données en bdd_temp
2- compacter la base de données (équivaut à une copie de bdd_temp en bdd)
3- supprimer la base de données bdd_temp

Le reste c'est un simple test pour éviter le problème lié à la propriété "fichier caché" de ma dorsale.

Derrière j'ai également rajouté un test pour vérifier la présence d'autres utilisateurs connectés (voir FAQ) et c'est nickel. 8-)