Discussion :

[abouilyas]

Salut,

Je veux faire une copie de ma base de données mais j'y arrive pas , aidez moi.
Merci.

[supersnail]

Bonjour,

Bah... Copier/Coller?

[250rgv]

Quelle type de base ? DBIII+, Access, SQLServer, celle de la NSA ? une pas encore inventée ?

Chaque base/marque/type a sa méthode, donc sans en savoir plus...

Cela étant, tu peut déjà lire la doc, tu devrais y trouver des infos (cherche backup et/ou restore si ta doc est en anglais).

[abouilyas]

Quelle type de base ? DBIII+, Access, SQLServer, celle de la NSA ? une pas encore inventée ?

Chaque base/marque/type a sa méthode, donc sans en savoir plus...

Cela étant, tu peut déjà lire la doc, tu devrais y trouver des infos (cherche backup et/ou restore si ta doc est en anglais).

Merci pour ta réponse.
Ma base est ACCESS. liaison ADO.

Ce que je veux faire:
sur click d'un bouton je veux:
1- créer un dossier dans la partition D:.
2- Sauvegarder la base de données.
3- sur le prochain click, Sauvegarder la base en remplaçant la copie précédente.

j'ai essayé ce code, mais il faut d'abord créer le dossier "copies" manuellement. je veux que la command_click crée le dossier et y sauvegarde la base.
Mon code:
-------------------------------------------------------------------------

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
Public Sub Copy_me()
If Dir(d & "\copies\mabase.mdb") = "" Then
CopyFile App.Path & "\mabase.mdb", d & "\copies\mabase.mdb"
MsgBox "La base de données est sauvegardée avec succès.."
Else
Kill (d & "\copies\mabase.mdb")
CopyFile App.Path & "\mabase.mdb", d & "\copies\mabase.mdb"
End If
 
End Sub
-----------------------------------------------------------------------
Sub CopyFile(SourceFile As String, DestFile As String)
 
  Dim Result As Long
   If Dir(SourceFile) = "" Then
      MsgBox Chr(34) & SourceFile & Chr(34) & _
         " Le nom de la base de données est invalide!!"
   Else
      Result = apiCopyFile(SourceFile, DestFile, False)
   End If
End Sub

Merci!

[Jannus]

Si j'ai bien compris, tu souhaites seulement savoir comment créer un dossier (répertoire) le reste est fait.
Regarde ici il y a un exemple http://gilmir.developpez.com/tutoriels-vb6/tutoriel24/