Discussion :

[bensniper]

Bonjour,

J'ai un problème avec mon fichier XML

il doit se présenter de cette façon :

Code XML :

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

1
2
3
4
5
6
7
8
9
10
11
12
<table1>
 <Champ1-Cléprimaire>
 <Champ2>
 <Champ3>
 <table2>
  <Champt2-1-Cléprimaire>
  <Champt2-2>
  <Champt2-3-Clésecondaire => egale<Champ1-Cléprimaire>>
 </table2>
 <Champ4>
 <Champ5>
<table1>

mais j'obtiens :

Code XML :

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

1
2
3
4
5
6
7
8
9
10
11
12
<table1>
 <Champ1-Cléprimaire>
 <Champ2>
 <Champ3>
 <Champ4>
 <Champ5>
 <table2>
  <Champt2-1-Cléprimaire>
  <Champt2-2>
  <Champt2-3-Clésecondaire => egale<Champ1-Cléprimaire>>
</table2>
 <table1>

Pourtant mon XSD est correct, et je ne vois vraiment pas pourquoi ça ne fonctionne pas.

Merci d'avance.

[tomlev]

C'est le XML d'un DataSet ? Quel est ton code pour sérialiser ?
Et qu'est-ce que ça change que les éléments soient dans un ordre ou dans un autre ?

[bensniper]

Bonjour,

voici le code :

Code VB.NET :

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
 
  Dim DSPaiement As New DataSet
        Dim DSVirement As New DataSet
        DSVirement.ReadXmlSchema("x:\Dossier Analyse\Transport scolaire\doc num cpte\Ret. sur app. déc. 2013")
        Dim objBIC As New CreationSEPA.ClassListe_BIC_Banque
        DSPaiement = Remplir_DS()
        For i As Integer = 0 To DSPaiement.Tables(0).Rows.Count - 1
            'Dim dtrow As DataRow
            Dim dtrow_PmtInf As DataRow
            Dim dtrow_DbtrAcct As DataRow
 
 
 
            dtrow_PmtInf = DSVirement.Tables("PmtInf").NewRow   '3 new
 
            dtrow_PmtInf("PmtInf_id") = 25009
            dtrow_PmtInf("PmtMtd") = "TRF"
            dtrow_PmtInf("NbOfTxs") = DSPaiement.Tables(0).Rows.Count   'nb de lignes
            dtrow_PmtInf("CtrlSum") = Replace(Format(DSPaiement.Tables(0).Rows.Item(0).Item(5) / 100, "######0.00"), ",", ".")   'montant total
            DSVirement.Tables("PmtInf").Rows.Add(dtrow_PmtInf)   '3 add
 
            dtrow_DbtrAcct = DSVirement.Tables("DbtrAcct").NewRow   '9 new
            dtrow_DbtrAcct("Ccy") = "EUR"
            dtrow_DbtrAcct("PmtInf_id") = 25009
 
            DSVirement.Tables("DbtrAcct").Rows.Add(dtrow_DbtrAcct)   '9 add
 
        Next i
        DSVirement.WriteXml("x:\Dossier Analyse\Transport scolaire\doc num cpte\fichpaiement.xml")
 
        Return 0

CtrlSum doit ce trouve après la table DbtrAcct

l'ordre à l'air d'avoir un très grande importance car si le logiciel lit le fichier XML il le refuse avec un erreur fatale ! si j'édite le fichier et place le champs juste après la table DbtrAcct le fichier est accepté !

Benoit

[tomlev]

Ce que je comprends pas c'est que dans l'exemple de XML que tu donnes la table2 est "dans" la table1... c'est jamais comme ça dans un DataSet. C'est un modèle relationnel, les tables sont écrites séparément. Un DataSet ne peut pas générer le XML que tu veux ; si tu veux obtenir ce résultat, il faut que tu génères le XML manuellement (le plus simple est d'utiliser Linq to XML)