probleme d'enregistrement avec xml

Version imprimable

salut,

c'est la première fois que j manipule les fichiers xml je voudrais récupérer les champs de mes textbox pour les insérer dans un fichier xml

voici le code que j fait:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Dim xmldoc As XmlDocument = New XmlDocument()
 
        xmldoc.LoadXml("<chargement> </chargement>")
        Dim elemlivraison As XmlElement
        elemlivraison = xmldoc.CreateElement("livraison")
        Dim elemcodec As XmlElement
        elemcodec = xmldoc.CreateElement("codecamion")
        Dim elemcodeb As XmlElement
        elemcodeb = xmldoc.CreateElement("codeabarreproduit")
        Dim elemqte As XmlElement
        elemqte = xmldoc.CreateElement("qte")
        elemcodec.InnerText = TextBox1.Text
        elemcodeb.InnerText = TextBox2.Text
        elemqte.InnerText = TextBox3.Text
        elemlivraison.AppendChild(elemcodec)
        elemlivraison.AppendChild(elemcodeb)
        elemlivraison.AppendChild(elemqte)
        xmldoc.DocumentElement.AppendChild(elemlivraison)
        xmldoc.Save("newlivraison.xml")
        MsgBox("enregistrement réussi")

après j voulu afficher le contenu du fichier dans un datagrid afin de vérifier c'est la création du ficher c'est bien dérouler

Code:

1
2
3
4
5
6
7
8
  Dim xmldoc As XmlDocument = New XmlDocument()
        xmldoc.Load("newlivraison.xml")
 
        Dim ds As DataSet = New DataSet()
        Dim xnr As New XmlNodeReader(xmldoc)
        ds.ReadXml(xnr)
        DataGrid1.Visible = True
        DataGrid1.DataSource = ds

aprés exécution le datagrid n'affiche rien :?
sinon comment je fait pour accéder directement au fichier xml ????

et merci d'avance:)

j enfin trouvé la solution a mon problème:)

mais maintenant j un autre problème voila je n'arrive a insérer qu'une seule livraison via une liste box:(

voila le code xml que j voudrais obtenir par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
<chargement>
<livraisnon>
<codebarre>1234677857576</codebarre>
<codecamion>c4<codecamion>
<qte>45</qte>
</livraisnon>
<livraisnon>
<codebarre>1234677856766</codebarre>
<codecamion>c8<codecamion>
<qte>33</qte>
</livraisnon>
</chargement>

le code vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
  Dim j As Integer
        Dim carr, montab() As String
 
        Try
 
            Dim xmldoc As XmlDocument = New XmlDocument()
 
            xmldoc.LoadXml("<chargement> </chargement>")
            Dim root As XmlNode = xmldoc.DocumentElement
            For j = 0 To i - 1
                carr = ListBox1.Items(j).ToString
                montab = Split(carr, ":")
 
                Dim elemlivraison As XmlElement
                elemlivraison = xmldoc.CreateElement("livraison")
                Dim elemcodec As XmlElement
                elemcodec = xmldoc.CreateElement("codebarre")
                Dim elemcodeb As XmlElement
                elemcodeb = xmldoc.CreateElement("ref")
                Dim elemqte As XmlElement
                elemqte = xmldoc.CreateElement("label")
                elemcodec.InnerText = montab(0)
                elemcodeb.InnerText = montab(1)
                elemqte.InnerText = montab(2)
                elemlivraison.AppendChild(elemcodec)
                elemlivraison.AppendChild(elemcodeb)
                elemlivraison.AppendChild(elemqte)
                xmldoc.DocumentElement.AppendChild(elemlivraison)
                root.AppendChild(elemlivraison)
 
                Dim writer As XmlTextWriter = New XmlTextWriter("test1.xml", Nothing)
                writer.Formatting = Formatting.Indented
                xmldoc.Save(writer)
            Next
            MsgBox("enregistrement réussi")

donc aprés exécution il n'insère que la première ligne de mon listbox et par la suite un message d'erreur s'affiche

Citation:

The process can not acces the file test.xml because it is being using by another process

:aie:
on ouvrant aprés mon nouveau fichier xml voila ce que j'obtiens:

Code:

1
2
3
4
5
6
7
<chargement>
<livraisnon>
<codebarre>1234677857576</codebarre>
<codecamion>c4<codecamion>
<qte>45</qte>
</livraisnon>
</chargement>

juste la première ligne est insérer :aie:

22/04/2010, 12h47
leeloo95

ta variable i tu la déclare ou?
i = listbox.items.count ?

j trouvé :mouarf: j pas fait attention au next

il fallait tous simplement écrire ce code:
Code:

1 2 3 4 Dim writer As XmlTextWriter = New XmlTextWriter("test1.xml", Nothing) writer.Formatting = Formatting.Indented xmldoc.Save(writer)
a la fin de la boucle for :aie: