Créer un backup

**timoth** · 09/01/2007, 06h04

Bonjour,

Je cherche a faire un backup de ma base depuis un bouton sur un formulaire. En voyant qu'on pouvait facilement copier/coller une base, meme ouverte, j'ai pris la meme méthode:

Code :

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

1
2
3
4
5
6
Dim sEmplacementInitial As String, sEmplacementFinal As String
 
sEmplacementInitial = "Q:\Mon Rep\Ma Database.mdb"
sEmplacementFinal = "Q:\Mon Rep\Backup\Ma Database_backup.mdb"
 
FileCopy sEmplacementInitial, sEmplacementFinal

Forcement, c'était trop facile, il veut pas toucher a un fichier ouvert.

On a d'autres solutions?

jnore · 09/01/2007, 07h51

Peut-être pourrais-tu lier les tables de ton fichier backup à ton application et transférer (copier) les données par requête (Requete ajout)

**timoth** · 09/01/2007, 08h55

Ahhh, c'est une bonne idée !
Créer un fichier Access du nom que je veux et y importer tout le contenu de mes tables.
Je vais creuser l'affaire, si tu sais comment faire, je suis preneur!

Merci pour cette bonne piste.

**loufab** · 09/01/2007, 10h04

Bonjour,

On peut également copier les objets tables via une commande d'export. Toutes les méthodes se valent seul le temps de développement peu changer.

Cordialement,

**timoth** · 09/01/2007, 11h22

Salut Tofalu!

Super, j'ai trouvé le code pour exporter des objets (CopyObject) et le code pour créer un nouveau fichier mdb.
Est-il possible par contre de faire une boucle du genre

Code :

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

1
2
3
4
Dim Tb as "Table"
For each Tb in Mydatabase
Docmd.CopyObject newDB,,acTable,Tb.Name
next Tb

Je ne trouve pas la syntaxe a utiliser...

Merci pour vos pistes!!!!!

**loufab** · 09/01/2007, 11h41

Bonjour,

Moi c'est Loufab.

C'est ce code que tu cherche probablement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function exporttable()
Dim tb As TableDef
Dim newBase as string
 
newbase = "c:\mabase.mdb"
 
For Each Table In CurrentDb.TableDefs
    DoCmd.CopyObject newBase, , acTable, Table.Name
Next
 
End Function

Cordialement,

**timoth** · 09/01/2007, 12h06

Oh, Loufab, chui désolé!

Ca marche bien!
J'ai neanmoins un message d'erreur "Vs n'avez pas la permission de copier 'MsysACEs'". En mettant un "On error resume next", ca passe, mais quel est le risque de ne pas déplacer cette table?

J'ai une autre petite question:
Au dessus de mon bouton "Export", je mets une boite de commande qui permet a l'utilisateur de choisir le repertoir dans lequel il va mettre son backup.
Pas de souci jusque la, je mets le chemin dans une textbox
J'aimerais bien que le chemin soit enregistré sur le formulaire et pas dans une table. Une textbox perd son contenu quand on ferme le formulaire, le caption d'un label se perd aussi...
Ya pas un moyen d'écrire la valeur sur le formulaire ou la garder qq part sans avoir a le mettre dans une table??

Merci!

**DMboup** · 09/01/2007, 12h16

MsysACEs est une table système qui n'a aucune incidence sur ton bakup.

Pour ta deuxième question, tu peut utiliser une variable globale.

**timoth** · 09/01/2007, 13h06

C'est parfait. Merci DMboup, Loufab et Jnor !!

**timoth** · 09/01/2007, 13h32

En fait, non!
La valeur de la variable globale est detruite des qu'on ferme la base de données. Je cherche une variable qui ne perd jamais son contenu, mias je sais pas si ca existe!

**loufab** · 09/01/2007, 14h51

Il faut alors stocker cette variable dans une table.

Mea culpa il faut tester le nom de la table avant de faire l'import. Donc avant le docmd mettre

Code :

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

if table.name not like "Msys*" then docmd....

hi DMboup meilleurs voeux pour 2007 !

**timoth** · 09/01/2007, 14h56

Oui, effectivement, je me suis résolu a stocker le chemin dans une table.

Oui, bonne année a toi Loufab et merci encore...

**DMboup** · 09/01/2007, 14h56

Envoyé par loufab

hi DMboup meilleurs voeux pour 2007 !

A toi de même et tous les membres de notre cher formum.

**timoth** · 09/01/2007, 15h11

Oh, une petite question qui ne peut pas vraiment faire l'objet d'un nouveau post...
Existe-t-il une fonction qui compte le nb de caracteres dans un string? Grr, je trouve pas...

Invité · 09/01/2007, 15h15

Salut

Len

Starec

**Tofalu** · 09/01/2007, 15h15

Len

**timoth** · 09/01/2007, 16h04

Ralalala, faut connaitre...

Bon, vous allez dire que je suis chiant, mais ca marche pas tout a fait.
Déja

Code :

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

if table.name not like "Msys*" then docmd....

me sort "Expected: Expression" a la compilation.

L'autre PB, c'est qu'il ne peut importer les tables car il me dit que le fichier mdb qu'il vient de créer est en cours d'utilisation. Voici un bout de mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
    Set db = ws.CreateDatabase(LFilename, dbLangGeneral)
Dim tb As TableDef
'Copy all the tables in the database previously created
For Each tb In CurrentDb.TableDefs
    'On Error Resume Next
    DoCmd.CopyObject LFilename, , acTable, tb.Name
Next
End Sub

Ca me les brise... Promis, apres j'arrete!

**loufab** · 09/01/2007, 21h24

Envoyé par timoth

Bon, vous allez dire que je suis chiant, mais ca marche pas tout a fait.
Déja

Code :

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

if table.name not like "Msys*" then docmd....

me sort "Expected: Expression" a la compilation.

Je pensais que tu avais analyser l'expression docmd....

Code :

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

If Not (tb.Name Like "Msys*") Then DoCmd.CopyObject "c:\test.mdb", , acTable, tb.Name

petite correction sur le test.

Bizarre j'ai pas le problème que tu me décris au sujet du fichier en cours d'utilisation.

**timoth** · 10/01/2007, 05h01

En fait, j'avais gardé mon On error resume next.
J'aime pas trop cette ligne de commande donc je l'ai remplacé par la tienne qui n'inhibe pas toutes les erreurs. Merci pour la bonne syntaxe.

En fait, pour mon erreur de 'File already in use', je viens de realiser que ca ne me le fait que quand j'enregistre mon backup sur un disque partagé a travers le reseau de l'entreprise. Sur mon propre dur, pas de souci.

Tu as une idée ??

Merci...

**timoth** · 10/01/2007, 06h35

Bon, c'est bon avec db.close:

Code :

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

1
2
3
4
5
6
7
8
    Set db = ws.CreateDatabase(LFilename, dbLangGeneral)
    db.Close
Dim tb As TableDef
'Copy all the tables in the database previously created
For Each tb In CurrentDb.TableDefs
    If Not (tb.Name Like "MSys*") Then DoCmd.CopyObject LFilename, , acTable, tb.Name
Next
End Sub

Cette fois-ci, c'est la bonne! Merci Loufab!

Créer un backup

Access

Discussions similaires

Partager

Partager