<%@ Import namespace="System.Data" %>
<%@ Import namespace="System.Data.SqlClient" %>
Display Column Information
Sub Page_Load(Source As Object, E As EventArgs)
' Create dataset and data adapter with properties that apply to all tables
Dim objDataSet As New DataSet("EmployeePage")
' First Table - "Comments Table" From XML
objDataSet.ReadXmlSchema(Server.MapPath("Comments.xsd"))
objDataSet.ReadXml(Server.MapPath("Comments.xml"))
' Diagnostic print of tables in objDataSet - loop through DataSet.Tables
Dim strNames As String
Dim c As DataColumn
Dim iTableItem As DataTable
For Each iTableItem In objdataSet.Tables
strNames &= "Table Name: " & iTableItem.tableName & "
"
For Each c In iTableItem.Columns
strNames &= "- Column " & c.ColumnName & " is of type " _
& c.DataType.ToString & "
"
Next
Next
Response.Write(strNames)
End Sub
<%-- Comments.xsd
--%>
<%-- Comments.xml
1
Name
6
2001-01-01
comment
--%>