Discussion :

[BaRonm3]

Bonjour,

J'ai actuellement un formulaire constitué d'une zone de texte et d'un controle. Ce controle a pour but d'ouvir un explorateur , puis sélectionner une base de donnée. Une fois sélectionner, le chemin d'accés est transcrit dans la zone de texte.

Je souhaiterais donc créer un controle qui a pour but de compacter et de créer un fichier .mde de la bd sélectioner. Voila donc si des personnes ont des idées sur comment concevoir ce bouton a l'aide du code, merci de me le faire parvenir.

[Dolphy35]

Salut,

ce qui est de compacter tout ce trouve dans la
Comment compacter une base de données ?

[Sonic]

Salut
Pour compacter la base tu peux utiliser:

Code :

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

DBEngine.CompactDatabase NomBaseSource, NomBaseDestination

Par contre c'est à toi de gérer le nom de base source et destination, fais une copie compacte et ensuite ecrase l'ancienne.
Mais pour le mde je sais pas désolé

[BaRonm3]

J'avais déjà repéré cette aide dans la FAQ, merci quand même .
Mon probléme c'est que je n'arrive pas a mettre en relation le chemin d'accés écrit dans la zone de texte de mon formulaire, et le code pour compacter la base de donnée.

[Sonic]

Dans ta zone de texte (nommée Texte0 par ex) tu as le chemin complet d'accès à ta base (genre 'C:\BaseDonnees.mdb')
Le code de compactage devient :

Code :

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

1
2
3
DBEngine.CompactDatabase Me.texte0, "C:\BaseDonneesCopie.mdb"
Kill Me.texte0
Name "C:\BaseDonneesCopie.mdb" as Me.texte0

[BaRonm3]

Ok merci je vais essayer

[BaRonm3]

J'ai donc une zone de texte (nommée FilePath), j'ai donc appliqué le code suivant :

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
Private Sub Commande11_Click()
Dim rep
Dim sNomBaseTmp As String
Dim sNomBase As String
 
If IsNull(Me.FilePath) Then
    rep = MsgBox("Please select a database", vbOKOnly, "Configuration")
        If vbOK Then
        Me.FilePath = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Access", "mdb")
        End If
Else
sNomBase = Me.FilePath
sNomBaseTmp = "C:\Documents and Settings\tmp-ach\Bureau\essai.mdb"
DBEngine.CompactDatabase sNomBase, sNomBaseTmp
 
End If
 
End Sub

Cette partie de code fonctionne, mon probléme est dés que je rajoute le code suivant :

Code :

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

1
2
Kill sNomBase
Name sNomBaseTmp as sNomBase

Une fois ces 2 lignes rajouter le code ne fonctionne plus, je ne comprend pas pourquoi. Donc si quelqu'un a une explication merci de me la faire parvenir.

[Sonic]

Ouais le name ne marche que quand on reste ds le même rep
Essaie plutôt ca :

Code :

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

1
2
3
4
5
6
 
if Dir(sNomBaseTmp)>"" then Kill sNomBaseTmp
DBEngine.CompactDatabase sNomBase, sNomBaseTmp
Kill sNomBase
FileCopy sNomBaseTmp, sNomBase
Kill sNomBaseTemp

PS : si ca marche tjs pas essaie d'être plus précis que "ca ne fonctionne plus" (erreur de compile, erreur d'exécution,...) parce que ca aide pas trop sinon

[BaRonm3]

Ok, je vais essayer ton code aprés le repas.

Quand j'ai dis le code ne fonctionne plus, cela voulait dire que sans ces 2 lignes de code, la base de donnée compacter était créer mais avec ces lignes aucun fichier n'était créer. J'ai donc essayer en enlevant la ligne :

Code :

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

Name sNomBaseTmp as sNomBase

La base d'origine était donc supprimé, et une base compacté fut créer. Le probléme vient donc quand je souhaite renommer la base de donnée.
J'espére qu'avec ton code sa marchera, bonne apétit

[BaRonm3]

C'est bon, je te remercie ton code fonctionne , y me faut encore chercher comment transformer la base de donnée en .mde mais bon je pense que je vais trouver.

Encore merci pour vos réponses.