sauvegarde de la base [VB6]Résolu

Question

bonjour
j'ai se code pour sauvegard&#233; ma base ACCESS,mais &#231;a ne fonctionne pas 
auriez vous une id&#233;e
Private Sub sauv_Click()
Dim FileName As String
Dim blnAnnuler As Boolean
Dim strFileName As String, strFileTitle As String
  
  On Error GoTo TraitementErreur
  blnAnnuler = False
com1.DialogTitle = "Sauvegarde de la base de donn&#233;e"
com1.DefaultExt = ".MDB"
com1.FileName = "Vid&#233;o"
com1.Flags = &H1004
com1.Filter = "Access (.mdb)|*.mdb"
com1.ShowSave
FileName = com1.FileName
FileCopy App.Path & "\BD\film.mdb", FileName
MsgBox "La base de donn&#233;e a &#233;t&#233; bien sauvegarder", vbInformation + vbOKOnly, "Gestion DVD"
Exit Sub
TraitementErreur:
  If Err.Number = cdlCancel Then
    blnAnnuler = True
    Resume Next
  
  End If
End Sub
merci
@ plus
petchy

cs_petchy · Accepted Answer

ok,donc dans mon code j'ai rajout&#233; 
db.Close pour fermer ma base,le temps de la sauvegarde &#231;a fonctionne,mais comment l'ouvrir une fois que j'ai fini la sauvegarde,j'ai essay&#233; db.open,mais il me fait une erreur lors d'un click sur ma listbox pour affiche des donn&#233;es qui provienne de ma base.
merci
petchy

cs_DARKSIDIOUS · Answer

Ca fonctionne pas : CAD ? _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_petchy · Answer

salut
&#231;a ne sauvegarde pas,et je n'est meme pas de confirmation avec le MsgBox.
petchy

cs_DARKSIDIOUS · Answer

Essaye ceci pour voir : Private Sub sauv_Click() Dim FileName As String Dim blnAnnuler As Boolean Dim strFileName As String, strFileTitle As String On Error GoTo TraitementErreur blnAnnuler = False com1.DialogTitle = "Sauvegarde de la base de donnée" com1.DefaultExt = ".MDB" com1.FileName = "Vidéo" com1.Flags = &H1004 com1.Filter = "Access (.mdb)|*.mdb" com1.ShowSave FileName = com1.FileName FileCopy App.Path & "\BD\film.mdb", FileName MsgBox "La base de donnée a été bien sauvegarder", vbInformation + vbOKOnly, "Gestion DVD" Exit Sub TraitementErreur: MsgBox Err.Description If Err.Number = cdlCancel Then blnAnnuler = True Resume Next End If End Sub _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_petchy · Answer

Re
il me marque "permission refus&#233;e"

cs_DARKSIDIOUS · Answer

Normal : ta base doit être en cours d'utilisation... Ferme toutes les connexions à ta base de données avant de la copier. _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_petchy · Answer

c'est bon,j'ai trouv&#233;
en fait j'ais mal plac&#233; db.open
merci Darksidious pour ton coup de main


petchy

Sauvegarde de la base [VB6]

7 réponses