Discussion :

[zOoOm_10]

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 :

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

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 :

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

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

[zOoOm_10]

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 :

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

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 :

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

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

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

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

Code :

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

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

[leeloo95]

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

[zOoOm_10]

j trouvé j pas fait attention au next

il fallait tous simplement écrire ce code:

Code :

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

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