|
xxx
VB.net - XML To DataSet
by Charles Carroll
Here is the XML to Dataset sample:
filename=/experiments/xmltodataset/xmltodataset_vb.aspx
<%@ import namespace = "System.Data"%>
<%@ import namespace = "System.IO"%>
<script language ="vb" runat ="server">
sub Page_Load(s as object, E as EventArgs)
dim fs as FileStream
try
dim ds as new DataSet
FS=new FileStream(Server.MapPath("/experiments/data/animalslippers.xml"), FileMode.Open)
ds.ReadXml(FS)
dim intTableMaxCount as integer=ds.Tables.Count
dim intTableCounter as integer
Trace.Write("number of tables=",intTableMaxCount)
for intTableCounter = 0 to intTablemaxCount
Page.Controls.Add(new LiteralControl("<hr><font color='red'>Table #" & intTableCounter & " of " & intTableMaxCount & "</font><br>"))
dim d1 as new DataGrid
d1.ID = "MyDataGrid" & intTableCounter
d1.BackColor= System.Drawing.Color.FromName("lightblue")
d1.Width=Unit.Percentage(100)
d1.BorderColor=System.Drawing.Color.FromName("black")
d1.ShowFooter=false
d1.CellPadding=3
d1.CellSpacing=0
d1.Font.Name="Verdana"
d1.Font.Size=new FontUnit(10)
d1.HeaderStyle.BackColor=System.Drawing.ColorTranslator.FromHtml("#aaaadd")
d1.DataSource = new DataView(ds.Tables(intTableCounter))
d1.DataBind()
Page.Controls.Add(d1)
next
catch exc1 as Exception
Trace.Write("blah","blah",exc1)
finally
if isnothing(FS)
else
FS.Close()
end if
end try
end sub
</script>
|