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 Sub
Demonstrando 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 Function
LINKs
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.