Discussion :

[julielanglois]

Bonjour,

Je désire effectuer un backup de donnée d'une BD Access vers une autre BD Access, dont les données sont sélectionnées par un usager . Je programme le tout en VBA. Malheureusement, je ne sais pas comment effectuer cette opération (appel à une deuxième BD Access) et après recherche sur ce site et d'autres je n'ai pas trouvé le code qui me permet de faire le tout. Voici ce que j'ai trouvé qui pourrait s'appliquer le plus près :

Code :

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

SELECT * INTO backup in "C:\MaBaseBackup.mdb" FROM tablesource

J'ai tenté de modifier pour mes besoins, mais sans succès.

Voici le code que j'utilise pour archiver, mais dans la même BD et qui fonctionne... Probablement que ca va vous paraître simple, mais je ne sais pas comment modifier le tout pour effectuer la même opération dans une autre BD. Pourriez-vous m'aider s.v.p à résoudre le mystère

Code :

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

1
2
3
4
5
6
If Me.listProjets.ListIndex > -1 Then
           cmd.commandtext = "INSERT INTO ArchivesTaches SELECT * FROM Taches WHERE PROJET = " & SQLText(Me.listProjets.Value)
           cmd.Execute
           cmd.commandtext = "DELETE FROM Taches WHERE PROJET = " & SQLText(Me.listProjets.Value)
           cmd.Execute
 End If

Merci pour votre précieuse aide!

[vodiem]

salut julielanglois et bienvenue,

ta syntaxe "select into" est correcte, quelle est le message d'erreur ?

[Begon0]

tu peux essayer de lier les tables de ta base Backup dans ta base principale
et après tu les gères comme des tables normales, ce qui te permettrait de garder ton code actuel

sinon tu peux chercher dans cette voie :

Code :

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

1
2
3
4
dim db as database
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\MaBaseBackup.mdb")
db.execute ...
db.openrecordset(...

si ça peux t'aider ...

[julielanglois]

Bonjour et merci pour vos réponses.

vodiem, le code mentionné n'est pas adapté pour mes besoins. Ce que j'ai besoin se rapprocherait plus de la syntaxe suivante qui ne fonctionne pas :

Code :

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

1
2
3
 cmd.commandtext = "INSERT INTO ArchivesTaches in" & " C:\Bureau\ArchivesApproVision.mdb" _
            & " SELECT * FROM Taches WHERE PROJET = " & SQLText(Me.listProjets.Value)
            cmd.Execute

Lors de l'exécution j'ai le message d'erreur suivant :
Erreur d'exécution '-2147217900(80040e14)':
Erreur de syntaxe dans l'instruction INSERT INTO

Est-ce que le code est modifiable pour exécuter ce que je veux? Ou bien c'est infessable de cette façon ?

Begon0, comment puis-je lier une table d'une BD dans une autre BD ?

merci beaucoup à vous deux pour votre aide!!

[Tofalu]

Salut, il manque les "" autour du nom de fichier

Code :

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

1
2
cmd.commandtext = "INSERT INTO ArchivesTaches in "" C:\Bureau\ArchivesApproVision.mdb""  SELECT * FROM Taches WHERE PROJET = " & SQLText(Me.listProjets.Value)
cmd.Execute

[julielanglois]

Bel essai, mais malheureusement j'ai toujours un message d'erreur, soit celui indiquant :

Mise entre crochet non valide du nom 'C:\Bureau\ArchivesApproVision.mdb'

Pour être certaine que je n'ai pas fait d'erreur de syntaxe j'ai copié ce que tu m'avais écrit, mais encore là, le même message survient!

[Begon0]

tu as quelle version d'Access ?

je viens d'installer la version 2007 donc c'est un peu différent des autres versions mais de tête il me semble que si tu fais un clic droit sur la partie "tables", tu as un menu qui apparait avec "lier les tables", ensuite il faut aller chercher la base concernée puis la ou les tables que tu veux lier dans ton fichier actuel
ainsi les données sont toujours présentes physiquement dans ta base de backup mais tu y as accès depuis ta base principale

[julielanglois]

Salut Begon0

Je travaille sous la version Access 2003.

J'ai essayé de lier les tables selon tes souvenirs et ca fonctionne très. J'ai testé mon code pour archiver et encore là, tout à suivi. Donc je crois que cette solution est parfaite pour mes besoins.

Un gros merci à tout le monde pour votre aide.