|
<%@ Import Namespace="System.Data" >
<%@ Import Namespace="System.Data.SqlClient" >
<html>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Dim ds As DataSet
Dim conn As SqlConnection
Dim da As SqlDataAdapter
Dim sql As String
conn = New SqlConnection()
With conn
.ConnectionString="server=myserver;database=mydatabase;user id=usrid;password=passwd;"
.open()
sql = "Execute rac " & _
"@transform='count(*) as cnt'," & _
"@rows='shipcountry & shipvia'," & _
"@pvtcol='lastname'," & _
"@from='orders join employees on orders.employeeid=employees.employeeid'"
da = New SqlDataAdapter(sql, conn)
ds = new DataSet()
da.Fill(ds, "rac")
dg.DataSource=ds.Tables("rac").DefaultView
dg.DataBind()
.Close()
End With
End Sub
</script>
<body>
<h3><font face="Verdana">RAC ASP.NET-Basic Crosstab Demo Code</font></h3>
<ASP:DataGrid id="dg" runat="server"
Width="700"
BackColor="#ccccff"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
EnableViewState="false"
/>
</body>
</html>
|