Sauvegarder une base de donné avec CommonDialog

Question

Salut, je voudrais pouvoir sauvegarder ma base de donn&#233;es Acess dnas mon programme (en vb6) avec une boite de dialogue "enregistrer sous".
J'ai tester la commande CommonDialog, mais &#231;a m'enregistre du vent (ca enregistre rien m&#234;me :p)

Private Sub Command2_Click()


CommonDialog1.CancelError = True ' Attribue &#224; CancelError la valeur True
On Error GoTo ErrHandler
CommonDialog1.DialogTitle = "Selection de Fichier" ' D&#233;finit le titre de la fen&#234;tre
CommonDialog1.Flags = cdlOFNHideReadOnly ' D&#233;finit la propri&#233;t&#233; Flags
CommonDialog1.InitDir = "F:\Stage\reservation.mdb" ' Chemin Initial
CommonDialog1.Filter = "Fichiers Accesss(*.mdb)|*.mdb" ' D&#233;finit les filtres
CommonDialog1.FilterIndex = 2 ' D&#233;finit le filtre par d&#233;faut
CommonDialog1.ShowSave ' Affiche la bo&#238;te de dialogue Ouverture
CommonDialog1.FileName = ""


Exit Sub
ErrHandler:
'L'utilisateur a cliqu&#233; sur Annuler
End Sub

Merci d'avance.
(ya l'exam du BTS dans 2 mois !!! )

jrivet · Answer

Salut,

CommonDialog1.ShowSave ' Affiche la bo&#238;te de dialogue Ouverture
CommonDialog1.FileName = ""

Sauf erreur de ma part il ne faut pas mettre la ligne en rouge car tu efface le choix de l'utilisateur

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_mephisto51 · Answer

merci, j''ai test&#233; ta soluce, mais ca ne change rien h&#233;las

Dalida · Answer

salut,



c'est parceque tu as mis 3 S &#224; Access !

CommonDialog1.Filter = "Fichiers Accesss(*.mdb)|*.mdb" ' D&#233;finit les filtres



non, je rigole !...  



une foix que tu as affich&#233; ton Dialog, tu vas r&#233;cup&#233;rer le FileName que l'utilisateur souhaite. 



en fait, tu as juste r&#233;cup&#233;rer le chemin, maintenant il faut coder la copie de ton fichier.



[ Dalida ]
<hr>
pensez &#224; indiquer le langage utilis&#233; et sa version !

cs_jperre · Answer

Il y a des erreurs dans les paramètres.
Private Sub Command2_Click()

 With CommonDialog1
      .CancelError = True ' Attribue à CancelError la valeur True
      On Error GoTo ErrHandler
      .DialogTitle = "Selection de Fichier" ' Définit le titre de la fenêtre
      .Flags = cdlOFNHideReadOnly ' Définit la propriété Flags
      .InitDir = "F:\Stage" ' Chemin Initial
      .Filter = "Fichiers Accesss(*.mdb)|*.mdb||" ' Définit les filtres
      .FilterIndex = 1 ' Définit le filtre par défaut
      .FileName = ""
      .ShowSave ' Affiche la boîte de dialogue Ouverture
  End With
  Exit Sub
ErrHandler:
'L'utilisateur a cliqué sur Annuler
End Sub
 Il ne faut pas initialiser FileName à chaîne vide après avoir lancé la méthode ShowSave mais avant car sinon, celà annule la valeur qui avait été renvoyée par cette méthode.

cs_mephisto51 · Answer

OK merci &#224; tous pour votre aide, je vais essayer vos conseil demain

radcur · Answer

effectivement, la m&#233;thode ShowSave affiche la boite de sauvegarde et attend qu'on fasse Enregistrer ou Annuler.

Faire CommonDialog1.FileName = "" 
annule la saisie de l'utilisateur.

Apr&#232;s le showsave, tu devrais faire ceci:
if commondialog1.filename <> "" then
    NomFichier=commondialog1.filename
    'Faire tes &#233;tapes pour copier le fichier NomFichier
endif

Sauvegarder une base de donné avec CommonDialog

6 réponses

Discussions similaires