Bonjour,

J'ai le code suivant qui me permet de créer un fichier XML dont le contenu est pris à partir d'un DataSet.

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
 
Try
Dim xmlDoc As XmlDataDocument = New XmlDataDocument
 xmlDoc.LoadXml(monDataSet.GetXml)
 
 
Dim outputXmlDoc As XmlDocument = New XmlDocument()
Dim reader As XmlNodeReader = New XmlNodeReader(xmlDoc)
Dim settings As XsltSettings = New XsltSettings()
settings.EnableDocumentFunction = True
Dim xslt As XslCompiledTransform = New XslCompiledTransform(True)
xslt.Load(My.Settings.cheminxsl, settings, Nothing)
Dim transformOutput As System.Text.StringBuilder = New System.Text.StringBuilder
Dim writerSettings As XmlWriterSettings = New XmlWriterSettings()
writerSettings.ConformanceLevel = ConformanceLevel.Auto
 
' ici c'est pour appliquer un formattage du fichier xml avec le fichier de styles .xsl
Dim htmlDoc As XmlWriter = System.Xml.XmlWriter.Create(transformOutput, xslt.OutputSettings)
xslt.Transform(reader, Nothing, htmlDoc, New XmlUrlResolver())
outputXmlDoc.InnerXml = transformOutput.ToString()
 
outputXmlDoc.Save(dossier & "\" & fichier3)
attach = dossier & "\" & fichier3
Catch ex As Exception
MsgBox(ex.Message)
 
End Try
Or, outre les données du dataset, je veux ajouter d'autres informations dans mon fichier XML. Comment faire?
merci pour m'eclaircir.