Discussion :

[peter2587]

Bonjour,
avec Access 2007, j'exporte une table de données vers un fichier XML, mais les balises vides ne figurent pas dans le fichier xml.
Exemple pour les données "nom", "ancien_prix" et "prix", le champs "ancien_prix" etant vide, j'obtiens dans mon fichier xml :

<produit>
<nom>nom du produit</nom>
<prix>8 €</prix>
</produit>

Mais j'aimerais obtenir :

<produit>
<nom>nom du produit</nom>
<ancien_prix />
<prix>8 €</prix>
</produit>

Y-a-t'il un moyen, en passant par VBA par exemple, de faire apparaitre les champs vides de cette manière ?

Merci d'avance

PF

[Heureux-oli]

Oui, avec du DAO et un test pour chaque champ.
Il faut parcourir la table du début à la fin.

[peter2587]

C'est déjà une bonne nouvelle !
Est-ce que vous pouvez me donner un peu plus de précisions ?
J'ai trouvé ExportXML en VBA, mais qui ne donne qu'un panel d'options limités.
En ADO il y a ExportADOXML, mais en DAO je n'ai rien trouvé qui se rapporte au XML.

[Heureux-oli]

Exact, en DAO, il faut le faire manuellement.

Un tuto sur le DAO

Le principe serait :

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
 
Dim rs as DAO.Recordset
Dim db as DAO.database
 
set db = CurrentDB
set rs = db.OpenRecordset("matable",dbOpenTable)
 
while not rs.EOF
     NZ( rs.fields("champ1"),"<champ1 />","<champ1>" & rs.fields("champ1") & "</champ>"
rs.movenext
wend
 
set db = nothing
set rs = nothing
 
db.close

[peter2587]

Voici les dernières nouvelles.
Avec le code suivant
****

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
Sub Main0()
  Dim MyXml As String
  Dim rst1 As New ADODB.recordset
  MyXml = FreeFile()
  Open "peter1.xml" For Output As MyXml
  Print #MyXml, "<Table_Lots>"
  rst1.Open "qrytest", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  Do While Not rst1.EOF
  Print #MyXml,   "  <Lot>"
    Print #MyXml, "    <NUMDOM>" & rst1.Fields("NumDom") & "</NUMDOM>"
    Print #MyXml, "    <DAT_R>" & rst1.Fields("DAT_R") & "</DAT_R>"
    Print #MyXml, "  </Lot>"
    rst1.MoveNext
  Loop
  Print #MyXml, "</Table_Lots>"
  Close MyXml
  rst1.Close
  Set rst1 = Nothing
End Sub

****
j'obtiens un fichier peter.xml qui m'affiche les balises vides comme suit :
****

Code :

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

1
2
3
4
5
6
- <Table_Lots>
- <Lot>
  <NUMDOM>99</NUMDOM> 
    <DAT_R /> 
   </Lot>
.....

****
seule (minuscule) ombre au tableau : Certains de mes champs (non listés ci dessus) contiennent des caractères spéciaux et quand j'essaie d'ouvrir le fichier xml generé (avec Firefox ou Internet explorer), j'obtiens le message suivant : La page XML ne peut pas être affichée,un caractère incorrect a été trouvé dans un contenu de texte. Erreur de traitement de la ressource
Cela doit être un problème d'encodage, si quelqu'un a une suggestion je suis preneur.
Toutefois le fichier est lisible avec un editeur texte.

[Heureux-oli]

Il faut poser une nouvelle question sur le forum XML.

C'est un remplacement de caractère qu'il faut faire, mais les membres du forum XML seront mieux qualifiés pour apporter une réponse.