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
|
Dim m_dsData As DataSet
Public Function GetDataSetXML(ByVal vFile As String) As DataSet
Dim xmlDoc As XmlDocument = New XmlDocument()
Dim ds As DataSet = New DataSet()
Dim xnr As XmlNodeReader
Try
xnr = New XmlNodeReader(xmlDoc)
xmlDoc.Load(vFile)
ds.ReadXml(xnr)
Catch ex As Exception
End Try
Return (ds)
End Function
'appel de la fonction
sub Test()
m_dsData = GetDataSetXML("le chemin du fichier xml")
messageBox.show(m_dsData.Tables("element3").Rows(0)(0) ) ' retourne Test
end sub |