OVH Cloud OVH Cloud

commande access pour copier une autre base de données

2 réponses
Avatar
jp
Bonjour,
j'ai une base access A, dans laquelle il n'y a que les programmes, et
une seconde base B, dans laquelle il n'y a que les données.
1) Je souhaite pouvoir, lorsque je suis dans A, lancer une commande qui
me permette de copier la base B sur un lecteur externe.
2) toujours lorsque je suis dans A, avoir une commande qui me permette
de copier à partir d'un lecteur externe une copie de B sur le disque dur.

C'est possible ?
Merci de votre aide

JP

2 réponses

Avatar
Père FOURAS
Bonjour,

J'utilise toujours ce style de structure (2 bases de données) avec une
commande de reconnection automatique de la base contenant les données à la
base contenant le programme.

Sur ton formulaire "Menu Principal", tu ajoutes tes deux boutons
"Sauvegarde" et "Restauration", plus deux autres : "Déconnection Table" et
"Reconnection Table".

Pour les actions Sauvegarde et Restauration, je passerais par les
FileSystemObjet (il faut référencer Microsoft Scripting Runtime). Puis tu
utilises la procédure CopyFile.

Sub CopyFile(Source As String, Destination As String, [OverWriteFiles As
Boolean = Vrai])
Membre de Scripting.FileSystemObject
Copier un fichier

Bonne chance

Cordialement


"jp" wrote:

Bonjour,
j'ai une base access A, dans laquelle il n'y a que les programmes, et
une seconde base B, dans laquelle il n'y a que les données.
1) Je souhaite pouvoir, lorsque je suis dans A, lancer une commande qui
me permette de copier la base B sur un lecteur externe.
2) toujours lorsque je suis dans A, avoir une commande qui me permette
de copier à partir d'un lecteur externe une copie de B sur le disque dur.

C'est possible ?
Merci de votre aide

JP




Avatar
jp
Bonjour,
Sur ton formulaire "Menu Principal", tu ajoutes tes deux boutons
"Sauvegarde" et "Restauration", plus deux autres : "Déconnection Table" et
"Reconnection Table".

Pour les actions Sauvegarde et Restauration, je passerais par les
FileSystemObjet (il faut référencer Microsoft Scripting Runtime). Puis tu
utilises la procédure CopyFile.

Sub CopyFile(Source As String, Destination As String, [OverWriteFiles As
Boolean = Vrai])
Membre de Scripting.FileSystemObject
Copier un fichier


OK, je vais me lancer, merci pour ta réponse

JP