Dim doc As XmlDocument = New XmlDocument()
doc.Load(Server.MapPath("ARQUIVO.xml"))
doc.GetElementsByTagName("NOMEDONODE").Item(IDDONODEPARAOXML).InnerText()
IDDONODEPARAOXML = começa em zero
se quiser saber quantos tem :
Dim root As XmlElement = doc.DocumentElement
root.ChildNodes.Count()XML + Repeater
Página ASPX
<form id="Form1" method="post" runat="server"> ID : <asp:TextBox id="TxtId" runat="server" AutoPostBack="True" /> <asp:Repeater id="ItemAcervoRepeater" runat="server"> <HeaderTemplate> <h3>Item Acervo</h3> </HeaderTemplate> <ItemTemplate> <%# DataBinder.Eval(Container.DataItem, "titulo") %> </ItemTemplate> <FooterTemplate> <hr> </FooterTemplate> </asp:Repeater> </form>
Página ASPX.VB
Imports System.Xml
'Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Le o arquivo XML em um XmlDataDocument assim podemos acessá-lo via DataSet
Dim myXmlDataDocument As New XmlDataDocument()
myXmlDataDocument.DataSet.DataSetName = "DSItemAcervo"
myXmlDataDocument.DataSet.ReadXmlSchema(strXmlSchema)
myXmlDataDocument.Load(strXmlDocument)
Dim ItemAcervoTable As DataTable
ItemAcervoTable = myXmlDataDocument.DataSet.Tables("ItemAcervoRef")
'vincula a fonte de dados ao controle repeater
ItemAcervoRepeater.DataSource = ItemAcervoTable
ItemAcervoRepeater.DataBind()
End SubDemonstrando Linhas e Colunas do XML
Imports System.Xml
Dim ds As New DataSet()
ds.ReadXml(Server.MapPath("../temp/ConfigNivelAcesso.xml"))
Dim dc As DataColumn
For Each dc In ds.Tables(0).Columns
LblMsg.Text += "<br>" & dc.ColumnName
Next
LblMsg.Text += "<br><br><br>"
'Verificando as linhas existentes
Dim dr As DataRow
For Each dr In ds.Tables(0).Rows
Dim i As Integer
For i = 0 To ds.Tables(0).Columns.Count - 1
LblMsg.Text += "<br>" & dr(i)
Next
Next***********************************************
Public Function Chamado(ByVal strArqXml As String) As String
Dim ds As System.Data.DataSet
Dim intTable As Integer
Dim intRows As Integer
Dim intCols As Integer
Dim strNometabela As String
Dim strCampo As String
Dim strCampoValor As String
Dim strErro As String = ""
ds = FnStrXmlToDataset(strArqXml) 'Converte String
For intTable = 0 To ds.Tables.Count - 1
strNometabela = ds.Tables(intTable).TableName
For intRows = 0 To ds.Tables(intTable).Rows.Count - 1
For intCols = 0 To ds.Tables(intTable).Columns.Count - 1
strCampo = ds.Tables(intTable).Columns(intCols).ColumnName
strCampoValor = ds.Tables(intTable).Rows(intRows).Item(strCampo)
Next
Next
Next
End Function
'Criado Dia 14/01/2008 Por Tiago MACUL
'Função converte uma variável com conteúdo em XML para um DATASET
''' <summary>
'''converte uma variável com conteúdo em XML para um DATASET
''' </summary>
Public Function FnStrXmlToDataset(ByVal strArqXml As String)
Dim xmlSR As System.IO.StringReader = New System.IO.StringReader(strArqXml)
Dim ds As New Data.DataSet
Try
ds.ReadXml(xmlSR) ' , Data.XmlReadMode.IgnoreSchema)
Catch ex As Exception
'EscreveLog("BancoDados.FnStrXmlToDataset", Err.Number, ex.Message)
End Try
Return ds
End FunctionLINKs
Página dinâmica atualiza usando XMLHTTP
http://www.thescript...read484515.html
http://www.xmlforasp.net/
Edição feita por: MACUL, 19/03/2008, 16:48.
