Bonjours,
J'ai un petit soucie concernant l'édition d'un certains type de fichier xml.
Voici le type de fichier que j'aimerais générer.
Jusqu'a maintenent je n'utilisais qu'un attribut à la fois dans mes éléments, mais la les enchainer me pose problème.

<?xml version="1.0" encoding="ISO-8859-1" ?>
- <PersonList>
<Person status="OPERATEUR" lastName="DAVID" firstName="Jérémy" id="1" />
</PersonList>

Ci dessous un extrait du code que j'utilise actuelement

xmlDoc.appendChild oRacine
Set oElement = xmlDoc.selectSingleNode("PersonList") ' positionnement sur la racine

Set reqPerson = DbGP.OpenRecordset("select * from person")
n = reqPerson.RecordCount
If n <> 0 Then
reqPerson.MoveLast
reqPerson.MoveFirst
n = reqPerson.RecordCount
While n > 0
nomcomplet = reqPerson!NOMMATR
vname = InStr(1, nomcomplet, " ")

If vname <> 0 Then
nom = Mid(nomcomplet, 1, vname - 1)
pnom = Mid(nomcomplet, vname + 1, Len(nomcomplet))

End If


Dim CIB As String
CIB = "OPERATEUR"
Set oNom = xmlDoc.createElement("PersonStatus")
oNom.Text = CIB
oElement.appendChild oNom


Set oPrenom = xmlDoc.createElement("lastName")
oPrenom.Text = nom
oElement.appendChild oPrenom


Set oFirst = xmlDoc.createElement("firstName")
oFirst.Text = pnom
oElement.appendChild oFirst

Set oID = xmlDoc.createElement("ID")
oID.Text = i
oElement.appendChild oID

n = n - 1
i = i + 1
reqPerson.MoveNext
Wend


Merci beaucoup

Eva,