Click here to Skip to main content
15,888,968 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
Public Function IEnumerable(Of loaditems)()
Dim ds As DataSet
Dim query1 = From d In XElement.Load("~/item.xml").Elements()
Where (CStr(d.Attribute("Item_Id"))) = "504668
Select Item_Id = d.Attribute("Item_Id").Value,
Trace_Number = d.Element("Trace_Number").Value,
Unique_Number = d.Element("Unique_Number").Value,
Addressee_name = d.Element("Addressee_name").Value


here is my webservice code
<WebMethod()> _
Public Function infor() As DataSet
Dim xrdr As XmlTextReader = New XmlTextReader("C:\Users\40012820\Desktop\item.xml")
Dim ds As New Data.DataSet
ds.ReadXml(xrdr)
Return ds
End Function

xml file
<?xml version="1.0" encoding="UTF-8"?>
<MAIN>
<ITEMS Item_Id = "50466811">
<Trace_Number>RA085792400A</Trace_Number>
<Unique_Number>402404040439</Unique_Number>
<Addressee_name>S LO</Addressee_name>
</ITEMS>
<ITEMS Item_Id = "46266810">
<Trace_Number>R043826181A</Trace_Number>
<Unique_Number>000000723650</Unique_Number>
<Addressee_name>RV BYE</Addressee_name>
</ITEMS>
<ITEMS Item_Id = "54666812">
<Trace_Number>P546668126Z</Trace_Number>
<Unique_Number>1F45043469002</Unique_Number>
<Addressee_name>MR N T DLA</Addressee_name>
</ITEMS>
<ITEMS Item_Id = "50466811">
<Trace_Number>RZ630668143Z</Trace_Number>
<Unique_Number>018201304155698</Unique_Number>
<Addressee_name>WILLIAMS BERNA</Addressee_name>
</ITEMS>
<ITEMS Item_Id = "67266815">
<Trace_Number>Z672668158Z</Trace_Number>
<Unique_Number>001201309604738</Unique_Number>
<Addressee_name>ANTSANE M</Addressee_name>
</ITEMS></MAIN>
Posted

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900