sauvegarde la base de donne *.mdb

Question

bonjour,
je vous valide la base de donnée mais ce code marche pas 
voir en plus aide-moi
marci.

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
Private Sub Label1_Click()
On Error Resume Next
Dim Nouvfich As String
com1.DialogTitle = "Sauvgarder de la base de donnée"
com1.DefaultExt = ".MDB"
com1.FileName = "ROSH.MDB"
com1.Flags = &H1004
com1.Filter = "Base De Données (*.mdb)|*.mdb"
On Error GoTo erreur
com1.ShowSave
Nouvfich = com1.FileName
CopyFile App.Path & "\ROSH.mdb", Nouvfich, True
MsgBox "La Base De Donnée à été Bien Sauvegarder", vbInformation + vbOKOnly, "GESTION COMMERCIAL"
erreur:
If Err = 32755 Then
    Exit Sub
End If
End Sub

Private Sub ReyCommand1_Click()
On Error Resume Next
Unload Me
Form2.Show
End Sub

cs_ShayW · Answer

Bonjour

Tiens encore un bout de code que tu as trouvé
je ne sais où 
et allez y débrouillez vous avec 


ça ne marche

sportmed · Answer

je crois le problème existe ici.

CopyFile App.Path & "\ROSH.mdb", Nouvfich, True

ucfoutu · Answer

Bonjour,
Et dire que VB6 offre nativement l'instruction FileCopy (à lire dans ton aide VB6 = MSDN où elle est assortie d'un exemple clair)....


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Sauvegarde la base de donne *.mdb

3 réponses

Votre réponse

Discussions similaires