Discussion :

[jojo210]

Bonjour,

J'aimerais bien sauvegarder un datagridview dans un fichier xml. Je n'ai pas de problème pour l'importer depuis un fichier xml vers le datagridview, mais lorsque je fais l'inverse, ça ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub loadGrid()
        Dim ds As DataSet = New DataSet
        ds.ReadXml("C:\x\tsst.xml")
        Dim dv As DataView = New DataView(ds.Tables(0))
        mainGrid.DataSource = dv
End Sub

Pourquoi ce n'est pas possible de remplacer tous les Read par Write ?!

Le but est de reproduire cette petite application (sauf que je ne parviens pas à ouvrir l'intégralité de son code source )


Merci d'avance.

[Gurdil le nain]

Bonjour,

Je ne comprends pas ton problème...la méthode WriteXml existe sur l'objet Dataset...

Voir MSDN

[jojo210]

Hello,

J'ai essayé de faire un WriteXml, mais je ne suis pas sûr d'avoir fait juste, en tout cas, dans mon fichier xml, il n'y a qu'un <NewDataSet />

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Button1_Click()
        Dim ds As DataSet = New DataSet
        ds.WriteXml("C:\users\film.xml")
        Dim dv As DataView = New DataView(ds.Tables(0))
        DataGridView1.DataSource = dv
End Sub

Et lorsque je clique sur le Button1, L'erreur suivante apparaît sur le New DataView :

L'exception IndexOutOfRangeException n'a pas été gérée !
Impossible de trouver la table 1.

[jojo210]

C'est tout bon,

À force de chercher sur google comment sauver un datagridview dans un fichier xml, j'ai trouvé un super site qui explique tout en détail

http://www.v-basic.net/2011/04/xml-i...nd-export.html

Merci quand même !

[fireman59]

Salut,

Si je peux me permettre une modif sur ton bout de code. L'instruction pour "enregistrer sous" est pour un fichier texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim savefile As New SaveFileDialog
                savefile.FileName = ""
                savefile.Filter = "Fichier Text (*.txt)|*.txt"
                savefile.ShowDialog()

Donc pour ton fichier xml :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim savefile As New SaveFileDialog
                savefile.FileName = ""
                savefile.Filter = "Fichier Text (*.xml)|*.xml"
                savefile.ShowDialog()

Lorsque tu changes de dossier ou ton dossier est supprimer ça ne marche plus par contre ça ça marche pour tout les cas.

[jojo210]

Ok, merci, j'y penserai.

Mais en fait, j'ai toujours un petit problème, avec la solution que j'ai trouvé, je suis obligé d'ouvrir un fichier Xml avant de l'enregistrer. Je ne peux pas l'enregistrer directement...

En résumé, dans cet example,

http://www.v-basic.net/2011/04/xml-i...nd-export.html

tu ne peux pas cliquer directement sur Save XML File.

Est-ce que quelqu'un a une idée ?

[chrismonoye]

Bonjour,
en appliquant la source de ton premier message :

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
    Private filePath As String = My.Application.Info.DirectoryPath & "\user.xml" 'xml filepath
 
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim dt As New DataTable
 
        Me.DgvMstUser.EndEdit()
        dt = Me.DgvMstUser.DataSource
 
        Try
            dt.WriteXml(filePath)
            MsgBox("Data has been saved.")
        Catch ex As Exception
            MsgBox("Data cannot be saved.")
        End Try
    End Sub