[VB] faire un update avec une bdd en xml

bonjour à tous,

Voilà j'ai un problème pour mettre à jour ma base de données en xml.

Voci un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Noeud as xmlNode dim Noeuds as Xmlnodelist   Docxml.Load("xxxx.xml")   Noeuds = Docxml.childnodes   for each Noeud In noeuds select case Noeud.name case "resultat" Noeud.innertext = "toto" end select Next

---

Et ça marche pas le Noeud.innertext ne permet pas une mise à jour du neoud. Comment faut-il faire?

bonsoir

j'espere que cet exemple pourra t'aider

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

Sub modifierFichierXML() 'necessite d'activer la reference Microsoft XML V3.0 Dim xmlDoc As DOMDocument Dim Rt As IXMLDOMElement   Set xmlDoc = New DOMDocument xmlDoc.async = False xmlDoc.Load "C:\leDocument.xml"   Set Rt = xmlDoc.documentElement parseNodes Rt xmlDoc.Save "C:\leDocument.xml" End Sub   Private Sub parseNodes(Rt_node As IXMLDOMNode) Dim i As Long For i = 0 To Rt_node.childNodes.Length - 1 On Error Resume Next If Rt_node.childNodes.Item(i).Attributes(0).Text = "resultat" Then If Err.Number = 0 Then Rt_node.childNodes.Item(i).Text = "toto" End If   parseNodes Rt_node.childNodes(i) Next End Sub

---

bonne soiree
michel