Compactage automatique d'une Base protégée [À faire]

**matgel** · 05/06/2003, 17h27

Bonjour,

Je cherche a compacté automatiquement une BD Access avec une ligne de commande

Code :

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

1
2
 
[PATHMSACCESS]\MSACCESS.EXE [PATHBD]\CLLEData.mdb  /compact

Le Hic c'est que ma base est protégé par un mot de passe (que je connais

)

Y a-t-il un moyen de compacter même si la base est protégé ???

En passant la propriété /pwd ne marche pas pour ce genre de protection !

**matgel** · 05/06/2003, 21h23

Pour ceux que ça intéresse voici ce que j'ai trouvé sur le sujet...

On ne peut passer par une ligne de commande il faut donc créer un script qui fait le travail... Voici le code à utiliser dans un fichier [fichier].vbs

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
'******************************************
' Script qui compacte une base de données
' Ne pas oblier de changer les variables 
'******************************************
 
Dim objScript
Dim objAccess
Dim strPathToMDB
Dim strMsg
dim strPassword
 
' initialisation
strPassword = ""
 
 
'******** NOTE:  Variable à éditer **********
'	 
' Path du fichier à compacter
    strPathToMDB = "[PATHFICHIER].mdb"
 
' Path du fichier Temporaire 
    strTempDB = "[PATHFICHIERTEMP].mdb"
'
' Mot de passe de la BD
    strPassword = "[MOTDEPASSE]"
'*******************************************
 
 
    ' Pour Access 1997
    'Set objAccess = CreateObject("Access.Application.8")
 
    ' Pour Access 2000
    Set objAccess = CreateObject("Access.Application.9")
 
    ' J'imagine que pour Access 2002 --> Access.Application.10 
 
	' Gestion de l'erreur base de donné ouverte
	On Error Resume Next 
 
 
	if strPassword <> "" then
		strPassword = ";pwd=" & strPassWord
		objAccess.DbEngine.CompactDatabase strPathToMDB ,strTempDB, , , strPassword
	else
		objAccess.DbEngine.CompactDatabase strPathToMDB ,strTempDB
	end if
 
	' s'il y a eu une erreur
	If Err.Number <> 0 Then 
		WScript.Quit 
	End If 
 
	' Revient au mode d'erreur gérer par Windows
	On Error Goto 0 
 
 
    Set objScript= CreateObject("Scripting.FileSystemObject")
 
 
    objScript.CopyFile strPathToMDB , strPathToMDB & "z", True
    objScript.CopyFile strTempDB, strPathToMDB, True
    objScript.DeleteFile strTempDB
 
 
 
    ' On vide les objets
    Set objAccess = Nothing
    Set objScript = Nothing

Pas pire n'est ce pas ??!!

**Frank** · 05/06/2003, 22h40

Résolu?

Alors, [RESOLU] !!!
Et mrci d'avoir mis ce code sur le forum pour que d'autres puissent en profiter!

**nicburger** · 01/09/2003, 14h38

Est-ce que quelqu'un peut juste me dire quel est le SQL pour lancer un compactage avec un bouton par exemple ?

**nicburger** · 01/09/2003, 17h06

UP z'avez pas une

**Lucifer** · 01/09/2003, 17h12

Est-ce que quelqu'un peut juste me dire quel est le SQL pour lancer un compactage avec un bouton par exemple ?

Du SQL pour lancer un compactage ????? Ca veut dire quoi ???

**nicburger** · 01/09/2003, 17h36

Envoyé par Lucifer

Est-ce que quelqu'un peut juste me dire quel est le SQL pour lancer un compactage avec un bouton par exemple ?

Du SQL pour lancer un compactage ????? Ca veut dire quoi ???

ça veut dire que je dis n'importe nawak !

En fait je veux faire "Outils/Utilitaires.../Compatcer une base de données"
et ça par l'intermédiaire d'un bouton !

**norfelt** · 02/09/2003, 10h27

je dirai que oui c possible, faut connaitre le nom des variables des menus.

test ca pour te prouver que ca doit etre possible:
-creer un formulaire (mode creation)
- ajout un controle "bouton" (click)
-la une fenetre s'ouvre et te propose differente action a executer
-choisit une action que tu pourrai trouver dans la barre de menu (en haut d'access)
-ensuite visualise le code, ca te donnera une petite idee, des possibilités

norf

**Lucifer** · 02/09/2003, 10h30

Ce qu'il faut savoir c'est aussi qu'à partir d'access 2000, il y a une option de compactage à la fermeture de l'appli dans outils/option onglet Général

**nicburger** · 02/09/2003, 13h07

Envoyé par Lucifer

Ce qu'il faut savoir c'est aussi qu'à partir d'access 2000, il y a une option de compactage à la fermeture de l'appli dans outils/option onglet Général

ouais je sais je l'avais lu !
Malheureusement j'ai le 97, je vai sessayer selon ce que dit Norf

**gripoil** · 02/09/2003, 14h45

MISE A JOUR

J'ai la solution pour un bouton Compacter pour Access 97.

Dans un module Standard que tu nommes obligatoirement "Fonctions" (ce nom est repris dans le script) :

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
Function CompactEXE() As Boolean
 
'Compacte la base de données en cours
 
On Error GoTo Err_CompactEXE
 
Dim strDbFile As String
strDbFile = CurrentDb.Name & ".tmp"
 
If Dir(strDbFile) <> "" Then Kill strDbFile
 
DBEngine.CreateDatabase strDbFile, dbLangGeneral
DoCmd.CopyObject strDbFile, , acMacro, "mcrCompact"
 
'Attention au nom du module !
 
DoCmd.CopyObject strDbFile, , acModule, "Fonctions"
 
Shell "MSACCESS.EXE """ & strDbFile & """ /x mcrCompact", _
        vbMinimizedNoFocus
 
Quitte_CompactEXE:
Exit Function
 
Err_CompactEXE:
    MsgBox Err.Description
Resume Quitte_CompactEXE
 
End Function

et

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
Public Function Compact()
 
    Dim acApp As Access.Application
    Dim strDbPath As String, strDbFile As String
    Dim strDbFileOld As String
 
    strDbPath = CurrentDb.Name 'Nom complet de la base
    strDbFile = Left(strDbPath, Len(strDbPath) - 4) 'Nom complet de la base sans l'extension ".mdb"
    strDbFileOld = Left(strDbFile, Len(strDbFile) - 4) & ".old" 'Nom complet de la base avec l'extension ".old"
 
    Set acApp = GetObject(strDbFile)
 
    With acApp
        .SysCmd acSysCmdSetStatus, "Compactage en cours..."
        .CloseCurrentDatabase
        DBEngine.CompactDatabase strDbFile, strDbFileOld
        Kill strDbFile
        Name strDbFileOld As strDbFile
        .OpenCurrentDatabase strDbFile
        .SysCmd acSysCmdClearStatus
    End With
    Application.Quit
End Function

Pour finir la fameuse macro mcrCompact

Il faut donc créer une macro contenant juste l'instruction suivante :

Code :

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

1
2
Action : ExécuterCode
NomFonction : =Compact()

Dans ton formulaire, tu fais un joli bouton et tu lui attribues l'évènement sur Clic :

Code :

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

=CompactEXE()

Succès garanti.

**nicburger** · 02/09/2003, 16h48

Pour savoir si j'ai tout bien fait sachant que cela ne marche pas encore !

J'ai créé un module et j'ai copié-collé les 2 fonctions du poste précédent et ce module je l'ai appelé "Fonctions"

Derrière j'ai créé un bouton dont l'évènement "sur clic" est Compactexe()

La réponse est que Microsoft Jet n'a pas trouvé l'élément "mcrCompact" !!

**norfelt** · 02/09/2003, 16h57

il reste ma solution

, je plaisante, celle de mister Gripoil a l'air plus joli tout de meme

**nicburger** · 02/09/2003, 17h02

Envoyé par norfelt

il reste ma solution

, je plaisante, celle de mister Gripoil a l'air plus joli tout de meme

J'ai fais les 2 mais la tienne c'est clair que j'ai pas trouvé le chemin distant pour lancer le compactage !!

L'autre a l'air très bonne mais pour le moment elle ne fonctionne pas !

**norfelt** · 02/09/2003, 17h07

Envoyé par "nicburger

J'ai fais les 2 mais la tienne c'est clair que j'ai pas trouvé le chemin distant pour lancer le compactage !!

L'autre a l'air très bonne mais pour le moment elle ne fonctionne pas !

yep c'est ce que je te disai , si tu trouve le chemin , la solution est toute basique , mais il faut trouver le chemin, tiens pour la peine je vais chercher aussi, lol. C'est con qu'il n'y ai pas un enregistreur de macro comme sous Excel , la tu aurai tout de suite la solution

je chercher et je te tiens au courant

norf

**norfelt** · 02/09/2003, 17h43

eh eh

test moi ca mon ami , apres une bonne recherche , je pense avoir ta solution simple:

Code :

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

DoCmd.DoMenuItem acFormBar, 5, 6, 1, acMenuVer70

si ca marche pas , teste celui la:

Code :

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

DoCmd.DoMenuItem acFormBar, 6, 6, 1, acMenuVer70

c forcement un des deux

pour plus d'aide , je vous conseille de faire une recherche sur "DoMenuItem" dans l'aide access

voili, voilou , c'etait l'astuce norf du jour , lol

norf

**THOGAL** · 02/09/2003, 17h50

c forcement un des deux

ALORS LA, JE REVE .....

tu ne peux pas tester avant de donner ce genre de piste ???

**nicburger** · 02/09/2003, 17h53

pas loin mais marche pô !!
il me dit "ajuster tailler formulaire" en débugant !!

**norfelt** · 02/09/2003, 17h58

non parce que je n'ai pas envie de compacter ma base et que je n'ai pas non plus envie d'en creer une , donc comme tu peux lire si tu regarde bien j'ai de TESTER avant, et que je PENSAIS avoir sa solution

Envoyé par norfelt

test moi ca mon ami , apres une bonne recherche , je pense avoir ta solution simple

et de plus j'ai meme dit pour qu'il n'y ait pas de mal entendu, pour verifier l'info:

Envoyé par norfelt

pour plus d'aide , je vous conseille de faire une recherche sur "DoMenuItem" dans l'aide access

Merci de tout lire , et pas seulement ce que l'on veut lire ou comprendre

, sans rancune

ceci etait un droit de reponse, rien d'autre

norf

**norfelt** · 02/09/2003, 18h00

Envoyé par nicburger

pas loin mais marche pô !!
il me dit "ajuster tailler formulaire" en débugant !!

t'as testé les deux? si oui , look l'aide, au moins tu comprendra ma démarche, and give me the good answer after

et THOGAL , inadmissible, ma reponse ne marche pas

(heureusement que j'ai dit que je pensai et que ce n'etais po une certitude

, sinon...)

norf

Compactage automatique d'une Base protégée [À faire]

Contribuez

Discussions similaires

Partager

Partager