Discussion :

[massdiop26]

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

[massdiop26]

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

[LedZeppII]

Bonjour,

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

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

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

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

En ayant ces constantes

Code :

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

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 :

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

oRoot.setAttribute "Code", CS_Batch

...par...

Code :

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

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

A+

[massdiop26]

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

[LedZeppII]

Bonsoir,

Pour passer à ligne il faut utiliser

Code :

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

oObjetDOMElement.appendChild oXmlDoc.createTextNode(vbCrLf)

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

Code :

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

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+