XML Daten einlesen und anzeigen

wakkes

Grünschnabel
Hallo Liste

Ich sollte in VB.NET eine XML Datei einlesen und diese Daten in
Labels anzeigen..

zb. Label Vorname
Label Nachname usw......

Ich stehe da ein wenig neben den Schuhen wie ich das in VB.NET
machen kann

Kann mir da jemand weiterhelfen wie die richtige Lösung ist in VB.NET ein
XML File einzulesen und anzuzeigen

Danke
Wakkes
 
moin,

ich denke dieses Beispiel sagt einiges:

<% @Page Language="C#" %>
<% @Import Namespace="System.Xml" %>
<%
XmlDocument doc = new XmlDocument();
doc.Load(Page.MapPath("currentarticles.xml"));

XmlElement root = doc.DocumentElement;

foreach(XmlNode article in root.ChildNodes)
{
Response.Write(@"<font size=""1"">[" + article["date"].InnerText);
Response.Write("] </font>");
Response.Write("<b>" + article["title"].InnerText + "</b><br>");
Response.Write("<p>" + article["description"].InnerText + "</p>\r\n");
}
%>


gesehen bei aspheute.com
 
Ob nun C#, ASP.net oder VB.net - da tut sich (abgesehen von der Syntax) nicht besonders viel. Das Beispiel von oben kannst Du mit etwas Nachdenken durchaus ohne viele Probleme anpassen.
 
VB.NET einlesen von XML Files

Hi try this :)

Musst halt mal gucken, ob du es wirklich mit Labels machen möchtest.
Ansonten per Textfeld. Format halt so anpassen, das es rein optisch wie ein Label aussieht. Wäre auch eine Möglichkeit.

Viel Spass,

Imports System.Xml
Private data As System.Data.DataSet
Private dvOrders As System.Data.DataView

Private Sub loadXMLData()

'Festlegen welche Datei ausgelsen werden soll:
Dim fs As New FileStream("\My Documents\.NETCF Sample Data\AObjekte_Gebaeude.xml", FileMode.Open)

'Reader deklarieren
Dim xr As New XmlTextReader(fs)
'File einlesen
data.ReadXml(xr)

xr.Close()
fs.Close()

End Try

Private Sub displayData()

'dvOrders ist im Endeffekt eine View/Abfrage etc.
dvOrders = New DataView(data.Tables("AObjekte"))

cboCompany.DataSource = dvOrders

'Kombinationsfeld erhält Daten der Abfrage dvOrders, allerdings nur die Felder
'des Knotenpunktes : AObjekte

cboOrders.DisplayMember = "O_Anschrift"

Bei Label würde ich dann mit :
' label.databinding und/oder Text arbeiten

End Sub
 
Zurück