COMO INCLUIR DADOS DE UM XML EM UM DATAGRIDVIEW
Eu estou lendo os dados de um XML e quero ir colocando eles em um DATAGRIDVIEW.
Estou pegando os dados do xml assim:
Dim xmlDoc As New XmlDocument()
xmlDoc.Load(Application.StartupPath.Replace([Ô]bin\Debug[Ô], [Ô][Ô]) & [Ô]XMLFile1.xml[Ô])
Dim noList As XmlNodeList = xmlDoc.GetElementsByTagName([Ô]item[Ô])
For i As Integer = 0 To noList.Count - 1
Dim xmlAttr As XmlAttributeCollection = noList(i).Attributes
MessageBox.Show([Ô]CPF: [Ô] & xmlAttr([Ô]cpf[Ô]).Value & [Ô] | Nome: [Ô] & xmlAttr([Ô]nome[Ô]).Value)
Next
Nesse caso, vai mostrando os itens do XML, um a um, até o final do xml.
Eu quero, em VB.Net, ir carregando esses itens direto em um DATAGRIDVIEW.
Já li vários exemplos que me passaram e procurei pelo google, mas todos os exemplos ensinam como trabalhar com bando de dados.
Obrigado
Estou pegando os dados do xml assim:
Dim xmlDoc As New XmlDocument()
xmlDoc.Load(Application.StartupPath.Replace([Ô]bin\Debug[Ô], [Ô][Ô]) & [Ô]XMLFile1.xml[Ô])
Dim noList As XmlNodeList = xmlDoc.GetElementsByTagName([Ô]item[Ô])
For i As Integer = 0 To noList.Count - 1
Dim xmlAttr As XmlAttributeCollection = noList(i).Attributes
MessageBox.Show([Ô]CPF: [Ô] & xmlAttr([Ô]cpf[Ô]).Value & [Ô] | Nome: [Ô] & xmlAttr([Ô]nome[Ô]).Value)
Next
Nesse caso, vai mostrando os itens do XML, um a um, até o final do xml.
Eu quero, em VB.Net, ir carregando esses itens direto em um DATAGRIDVIEW.
Já li vários exemplos que me passaram e procurei pelo google, mas todos os exemplos ensinam como trabalhar com bando de dados.
Obrigado
Dim xmlDoc As New XmlDocument()
xmlDoc.Load(Application.StartupPath.Replace([Ô]bin\Debug[Ô], [Ô][Ô]) & [Ô]XMLFile1.xml[Ô])
Dim noList As XmlNodeList = xmlDoc.GetElementsByTagName([Ô]item[Ô])
For i As Integer = 0 To noList.Count - 1
Dim xmlAttr As XmlAttributeCollection = noList(i).Attributes
Me.DataGridView.Rows.Add([Ô]CPF: [Ô] & xmlAttr([Ô]cpf[Ô]).Value, Nome: [Ô] & xmlAttr([Ô]nome[Ô]).Value)
[ô]MessageBox.Show([Ô]CPF: [Ô] & xmlAttr([Ô]cpf[Ô]).Value & [Ô] | Nome: [Ô] & xmlAttr([Ô]nome[Ô]).Value)
Next
Consegui :)
Acrescentei antes do for-next
Dim dt As New DataTable
dt.Columns.Add([Ô]CPF[Ô])
dt.Columns.Add([Ô]nome[Ô])
e dentro :
dt.Rows.Add(xmlAttr([Ô]cpf[Ô]).Value, xmlAttr([Ô]nome[Ô]).Value)
dbgrid1.DataSource = dt
Listou como eu queria.
Acrescentei antes do for-next
Dim dt As New DataTable
dt.Columns.Add([Ô]CPF[Ô])
dt.Columns.Add([Ô]nome[Ô])
e dentro :
dt.Rows.Add(xmlAttr([Ô]cpf[Ô]).Value, xmlAttr([Ô]nome[Ô]).Value)
dbgrid1.DataSource = dt
Listou como eu queria.
Tópico encerrado , respostas não são mais permitidas