ASP

ASP and ADO Pivots -- Old School CrossTabs

Jeff Smith — Mon, 16 May 2005 01:26:00 GMT

OK, so let's sum up my recent flury of crosstab / pivoting posts the past week or so:

Jumping back a bit, I thought I'd also post a bit of code for those still using good old ASP and/or ADO. This is a function writen in VBScript that works much in the same way as the GetRows() method of an ADO recordset -- it returns the entire contents of the recordset in a 2-dimensional array. The difference with this one, of course, is that it will also do a pivot for you.

An entire sample ASP page with the function embedded in it for you to enjoy can be found here. This example, like the others, uses the Northwind database and requires that you have created the view defined here.

Here are the parameters and expected data types of this “old school” Pivot function:

rsData -- (ADODB.Recordset) This is the ADO recordset which contains the data to be pivoted. As before, it must be fully grouped, summarized and sorted properly.
strRow - (String) This is the name of the field that can determines the Rows in the pivot table
strColumn -- (String) The name of the field that will be pivoted into columns
strValue -- (String) The the name of the field that contains the summarized data to be pivoted into columns.
rsColumnVals -- (ADODB.Recordset) This is a new one -- pass in a recordset containing a single column of vals for which to create the pivoted columns.

The last parameter is a new one, and it makes things as efficient as possible to get the list of column values ahead of time. This is similiar to what the dynamic stored procedure method does. Typically, if you are pivoting on field “XYZ”, then you will pass in a recordset that is defined along the lines of “SELECT DISTINCT XYZ FROM ...” for the rsColumnVals parameter. Another thing to note is that the first row of values returned by this function will contain the column headers for the result, which is necessary since those column headers are unknown at runtime unlike when using GetRows(). See the comments and the example for more details.

As before, this method, even when compared to the ultra-speedy GetRows() method in ADO, is clearer, faster, and more efficient than the dynamic sql technique. The main benefit, of course, is that you can use standard SQL with normal grouping and summarizing and you are just returning the data from the database, and not worrying about formatting the results into columns for display purposes.

Feel free to use or modify my code as needed; it is not designed to be a complete ready-to-use libary, but rather an example of ways you can create your own functions at the presentation layer in your applications to do things that the database layer should not have to worry about.

ASP Report Class Northwind Sample

Jeff Smith (Dr. Cross Join) — Thu, 20 Nov 2003 22:22:00 GMT

As promised, here's a sample ASP report from Northwind using my ASP Report Class (http://weblogs.sqlteam.com/jeffs/posts/526.aspx).

Hopefully, everyone will agree that the script is very easy to write and read and much shorter. All grouping (for both headers and footers), subtotals and running totals are completely taken care of by using the class, and it is giving you recordset functionality (movenext and EOF and column reference by name) using the speedy GetRows() method under the hood.

For this to work, you must have the class saved as “ReportClass.asp“ in the same folder as this script (notice the include).

<%@ Language=VBScript %>

<%Option Explicit%>

<%@ Language=VBScript %>

<%Option Explicit%>

dim c,r,g

set c = server.CreateObject("ADODB.Connection")

c.open “your connect string to Northwind here“

set r = c.Execute ("Select * from Invoices ORDER BY SalesPerson, CustomerID, OrderDate, ProductID")

' here we declare our Report object and intialize it

set g = new Report

g.Init r,array("SalesPerson","CustomerID","OrderDate"), array("Quantity","Discount","ExtendedPrice")

' close the DB connection; we're done with it!

c.close

<%do while not g.eof

' Group Headers:

if g.Groups("Salesperson").header then%>

</TR>

end if

if g.groups("CustomerID").header then%>

<TD colspan=7>Customer: <%=g("CustomerName")%></TD>

</TR>

end if

if g.groups("OrderDate").header then%>

<TR>

<TD colspan=6>Order Date: <%=g("OrderDate")%></TD>

</TR>

end if

' Details (note the running total accross the

' "order date" group):

<TR>

</TR>

' Group Footers:

if g.groups("OrderDate").Footer then %>

<TD colspan=2>Order Totals</TD>

</TR>

end if

if g.groups("CustomerID").footer then %>

<TD>Customer Totals</TD>

</TR>

<TR>

<TR>

<% end if

if g.groups("SalesPerson").footer then %>

<TR>

<TR>

<% end if

g.movenext ' move next until EOF, just like with ADO recordsets

loop

</Table>

Grand total for Extended price is: <%=g.CoLTotal("ExtendedPrice")%><BR>

</body>

</html>

ASP - Report Class with Grouping, Headers, Footers and more

Jeff Smith — Mon, 17 Nov 2003 18:36:00 GMT

If you use ASP, ADO and SQL Server, check out my new article. It includes code for a VBScript class which makes writing HTML reports based on an ADO recordset with group headers, footers, and subtotals extremely easy.

read more...