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,