|
xxx
Utility Belt:
Xray To Page Demo
by Charles Carroll
The code below calls "Utility Belt" functions.
The enhanced Tracing functions is one demo of Array "Utility Belt" functionality
including tracing of arrays, hashtables, datatables and dataset.
filename=/experiments/utilitybelt/vercurrent/ubdemo_xray_topage.aspx
<%@ debug="false" %>
<%@ Assembly src="utilitybelt.vb" %>
<script language="VB" runat="server">
dim ub1 as new LearnAsp.utilitybelt()
dim strConnect as string="\experiments\data\biblio.mdb"
Sub Page_Load(S As Object, E As EventArgs)
ub1.Options("Debug-on,Xray-To-page-On")
dim dtNYFolks as system.data.datatable
ub1.DbPopulate(strConnect,"select * from publishers where state='NY'",dtNYfolks)
ub1.Xray(dtNYFolks,"dtNYfolks")
dim arryCities as string()
ub1.DBPopulate(strConnect,"select distinct city from publishers",arryCities)
ub1.Xray(arrycities,"arryCities")
ub1.Array1dRandomize(arryCities,2)
ub1.Xray(arrycities,"arryCities")
dim arryNY as string(,)
ub1.DBPopulate(strConnect,"select * from publishers where state='NY'",arryNY)
ub1.Xray(arryNY,"arryNY")
dim dsSlippers as system.data.dataset
dsSlippers=ub1.XMLToDataset("/experiments/data/animalslippers.xml")
ub1.Xray(dsSlippers,"dsSlippers")
End Sub
</script>
<html><head>
<title>Xray Utility Belt Demo</title>
</head>
<body bgcolor="#FFFFFF">
<form runat="server">
</form>
</body></html>
|