Solved

Xml Get subelements to Datagridview

Posted on 2013-05-23
7
224 Views
Last Modified: 2013-05-25
I have this code but only return the first line of each element InvoiceNum. For ex. Invoicenum 154 has two lines, but i can get only one line, the first. How can get all lines from each invoice.

<Documents>
	   <Sales>
		<Total>81678.600000</Total>
		<Invoice>
			<InvoiceNum>153</InvoiceNum>
			<Date>2013-03-01</Date>
			<Customer>2589</Customer>
			<Line>
				<ProductId>AT.02-2584</ProductId>
				<Description>Product 1</Description>
				<Quantity>1.000</Quantity>
				<UnitPrice>265.140000</UnitPrice>
			</Line>
		</Invoice>		
		<Invoice>
			<InvoiceNum>154</InvoiceNum>
			<Date>2013-03-01</Date>
			<Customer>2589</Customer>
			<Line>
				<ProductId>AT.02-2584</ProductId>
				<Description>Product 1</Description>
				<Quantity>1.000</Quantity>
				<UnitPrice>265.140000</UnitPrice>
			</Line>
                        <Line>
				<ProductId>AT.02-2599</ProductId>
				<Description>Product 2</Description>
				<Quantity>1.000</Quantity>
				<UnitPrice>85.100000</UnitPrice>
			</Line>
		</Invoice>	
	</Sales>
</Documents>

Open in new window

filepath1 = "C:\Users\Documents\WorkP\March2013.xml"
       Dim XmlDoc As XDocument = RemoveXmlNamespace(XDocument.Load(filepath1))
        Dim query = From xe In XmlDoc.Descendants("Invoice")
              Where xe.Element("InvoiceNo").Value = "154"
              Select New With {
                 .Factura = xe.Element("InvoiceNo").Value,
                 .Cliente = xe.Element("CustomerID").Value,
                 .Produto = xe.Element("Line").Element("ProductCode").Value
              }
        DataGridView1.DataSource = query.ToArray

Open in new window

0
Comment
Question by:rflorencio
  • 5
  • 2
7 Comments
 
LVL 42

Accepted Solution

by:
sedgwick earned 500 total points
ID: 39190578
here:
filepath1 = "C:\Users\Documents\WorkP\March2013.xml"
       Dim XmlDoc As XDocument = RemoveXmlNamespace(XDocument.Load(filepath1))
        Dim query = From xe In XmlDoc.Descendants("Invoice")
              Where xe.Element("InvoiceNo").Value = "154"
              Select New With {
                 .Factura = xe.Element("InvoiceNo").Value,
                 .Cliente = xe.Element("CustomerID").Value,
                 .Produto = xe.Element("Line").Elements("ProductCode").Select(n=>n.Value)
              }
        DataGridView1.DataSource = query.ToArray

Open in new window

0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39190581
look at line 8, instead of :
.Produto = xe.Element("Line").Element("ProductCode").Value

Open in new window

i used
.Produto = xe.Element("Line").Elements("ProductCode").Select(n=>n.Value)

Open in new window

so it returns for each line in the invoicenum, the ProductCode value.
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39190586
now that i look at the xml there's no ProductCode element inside Line element.
did u mean u have ProductId?
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:rflorencio
ID: 39191053
I have two xml files one with ProductCode and another with ProductId. I'm a little confused (with Linq and Collections), what should put where is "n"  in the code ".Select(n=>n.Value) ".
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39191137
I made a mistake, it should be:
 
.Produto = xe.Elements("Line").Select(n=>n.Element("ProductCode").Value)

Open in new window

this little linq code means loop through line elements and for each get productcode value.
The reason u got only the 1st one is cause u called xe.Element("Line") and not xe.Elements("Line").
xe.Element("Line") return the first one if exists.
0
 

Author Comment

by:rflorencio
ID: 39191242
Sorry. Something is wrong with me. With the code provided ".Produto = xe.Elements("Line").Select(n=>n.Element("ProductCode").Value)", an error occurs saying "n is not declared".
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39191297
Sorry its c# i need to convert it to vb.net
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

930 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now