Contents of blist2v.aspx:
<html> <body> <%@Page Language="VB"%> <%@Import Namespace="System.Data" %> <%@Import Namespace="System.Data.SqlClient" %> <center><table border="1"> <tr> <td><img src="captsm.gif"></td> <td valign="middle" align="center" bgcolor="#aaaaaa"><font face="COMIC SANS MS"><font size="4"> <b>The Simple Table Listing Program Using a Data Grid<br>with a Simple Comntrol Break<br>in VB.NET<hr>Lists the Contents of <i>glmaster</i><br>Using a DataReader in SQL </td> </tr></table> <div>SELECT command: <b><span id="outSelect" runat="server"></span></b></div> <div id="outError" runat="server"> </div> <div id="outResult" runat="server"></div> <script language="VB" runat="server"> Sub Page_Load (sender as Object, e as EventArgs) ' // declare a string to hold the results as an HTML table Dim displayoutput as String = "<center><table border='1'>" displayoutput=displayoutput+"<tr>" displayoutput=displayoutput+"<td align='center' bgcolor='#999999'><b>MAJOR</td>" displayoutput=displayoutput+"<td align='center' bgcolor='#999999'><b>MINOR</td>" displayoutput=displayoutput+"<td align='center' bgcolor='#999999'><b>SUB1</td>" displayoutput=displayoutput+"<td align='center' bgcolor='#999999'><b>SUB2</td>" displayoutput=displayoutput+"<td align='center' bgcolor='#999999'><b>ACCOUNT DESCRIPTION</td>" displayoutput=displayoutput+"<td align='center' bgcolor='#999999'><b>BALANCE</td></tr>" Dim sum as Decimal=0.0 Dim subtot as Decimal=0.0 Dim strConnect as String = "server=AUCKLAND;uid=gl001;pwd=11111;database=gl001" Dim old_major as String ="" Dim skip_first_switch as String = "Y" Dim strSelect as String = "SELECT * FROM glmaster" outSelect.InnerText = strSelect Try Dim objConnect as new SqlConnection(strConnect) ' // open the connection to the database objConnect.Open() ' // create a new Command using the connection object and select statement Dim objCommand as new SqlCommand(strSelect, objConnect) ' // declare a variable to hold a DataReader object Dim objDataReader as SqlDataReader ' // execute the SQL statement against the command to fill the DataReader objDataReader = objCommand.ExecuteReader() ' // iterate through the records in the DataReader getting field values ' // the Read method returns False when there are no more records Do while objDataReader.Read() '***control break if skip_first_switch <> "Y" AND cstr(objDataReader("major"))<>old_major then displayoutput +="<tr><td colspan='5' align='right'><b>SubTotal for Major " displayoutput += old_major+" = "+formatnumber(subtot,2)+"</td><td></td></tr>" subtot=0.0 old_major=objDataReader("major") end if skip_first_switch="N" displayoutput += "<tr><td>" + objDataReader("major").ToString displayoutput +="</td><td>"+ objDataReader("minor").ToString + "</td><td>" displayoutput +=objDataReader("sub1").ToString + "</td><td>" displayoutput +=objDataReader("sub2").ToString + "</td><td>" displayoutput +=objDataReader("acctdesc") + "</td><td align='right'>" displayoutput +=formatnumber(objDataReader("balance"),2) + "</td></tr>" sum=sum+cdbl(objDataReader("balance")) subtot=subtot+cdbl(objDataReader("balance")) old_major=objDataReader("major") Loop displayoutput +="<tr><td colspan='5' align='right'><b>SubTotal for Major " displayoutput += old_major+" = "+formatnumber(subtot,2)+"</td><td></td></tr>" displayoutput +="<tr><td colspan='5' align='right'>Grand Total = " displayoutput +=formatnumber(sum,2)+"</td><td></td></tr>" ' // close the DataReader and Connection objDataReader.Close() objConnect.Close() Catch objError as Exception ' // display error details outError.InnerHtml = "<b>* Error </b>.<br />"+ objError.Message + "<br />" + objError.Source end Try ' // add closing table tag and display the results displayoutput += "</table>" outResult.InnerHtml = displayoutput+"<p>Click <a href='bdoc.asp?fl=l2v'> here</a> for program (blist2v.aspcx) listing" end sub </script> </body> </html>
***** end of file *** printed: 108 lines on: 11/23/2009 6:00:23 AM
