Discussion :

[ekmule]

bonjour à tous,

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

Voci un exemple :

Code :

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

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?

[SilkyRoad]

bonsoir

j'espere que cet exemple pourra t'aider

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
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