Export XML avec XSD imposé

Merci gérard

de quel type de varible vous parler
ben moi j ai essayer d'utiliser la meme base en changeant seulement le nom des tables et aussi le code et l'adapter à ma base mais ça marche pas
je t envoie le format xml souhaité et ma base de données

Bonjour

je reviens en joignant la base pour que vous puissez me trouver l'erreur

j'ai réussi à l'adapter à mes tables et le fichier xml est bien généré mais le probleme qui se pose est cela n'extrait pas tous les enregistrements de la table Contracdata

et aussi le champs A definir j aimerais le remplacer par un champs de la table Batch

Aidez moi svp

Bonjour,

Je n'ai plus vraiment ça en tête, mais je vais tenter de répondre au mieux...

Citation:

---

Envoyé par massdiop26

... le probleme qui se pose est cela n'extrait pas tous les enregistrements de la table Contracdata ...

---

Il manque la boucle qui parcourt tous les champs de Contracdata.

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 26 27 28 29 30 31 32 33 34

' *** Element <ContractData> *** ' Sélectionner les enregistrements de la table des ContractData Set rsP = db.OpenRecordset("ContractData") ' S'il y a des enregistrements If rsP.RecordCount > 0 Then Do ' Créer et ajouter l'élément <ContractData> Set oContractData = oXmlDoc.createElement("ContractData") oContract.appendChild oXmlDoc.createTextNode(vbCrLf) oContract.appendChild oXmlDoc.createTextNode(String(2 * CL_TABLEN, " ")) oContract.appendChild oContractData ' Créer et ajouter les éléments enfants de <ContractData> ' parcourir les champs de la table For Each oFld In rsP.Fields Select Case oFld.Name Case "C" ' ne pas ajouter Case Else ' Créer et ajouter les éléments enfants de <ContractData> Set oChildElt = oXmlDoc.createElement(oFld.Name) oChildElt.Text = Nz(oFld.Value, "") oContractData.appendChild oXmlDoc.createTextNode(vbCrLf) oContractData.appendChild oXmlDoc.createTextNode(String(3 * CL_TABLEN, " ")) oContractData.appendChild oChildElt End Select Next ' enregistrement suivant table des ContractData rsP.MoveNext Loop Until rsP.EOF oContractData.appendChild oXmlDoc.createTextNode(vbCrLf) oContractData.appendChild oXmlDoc.createTextNode(String(2 * CL_TABLEN, " ")) End If rsP.Close Set rsP = Nothing

---

Citation:

---

Envoyé par massdiop26

et aussi le champs A definir j aimerais le remplacer par un champs de la table Batch

---

En ayant ces constantes

Code:

---

1 2	Const CS_TBL_Batch = "Batch" ' Table des Batch Const CS_Batch = "BatchIdentifier" ' Code client qui sera reporté dans l'élément racine du xml

---

Remplacer...

Code:

---

oRoot.setAttribute "Code", CS_Batch

---

...par...

Code:

---

oRoot.setAttribute "Code", Nz(DLookup(CS_Batch, CS_TBL_Batch), "")

---

A+

Bonjour merci de m avoir repondu
Finalement j ai reussi a avoir ce que je voulais mais j ai un petit blocage
Quand je genere le fichier xml. Les balises enfants sont comme suite
<a>
<b>
<champ1>111</champs1>
<champ2>111</champs2><b2>
<champ1>111</champs1></b2></b>
</a>


Les balises doivent toujours s ouvrir et se refermer a la ligne

Bonsoir,

Pour passer à ligne il faut utiliser

Code:

---

oObjetDOMElement.appendChild oXmlDoc.createTextNode(vbCrLf)

---

où oObjetDOMElement est déclaré de type MSXML2.IXMLDOMElement

Code:

---

Dim oObjetDOMElement As MSXML2.IXMLDOMElement

---

Dans mon code la principe que je suis, est d'ajouter un passage à la ligne avant chaque ajout d'un nouvel élément.
Un élément est une séquence <balise /> ou <balise>...</balise>.

A+