Contents of blistv3.aspx:
<%@ Page Language="VB" %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.SqlClient" %> <script runat="server"> Sub Page_Load(Sender As Object, E As EventArgs) ' TODO: Update the ConnectionString and CommandText values for your application ' ' gets connection string from the global.asax file ' Dim strConnect as String = "server=AUCKLAND;uid=gl001;pwd=11111;database=gl001" Dim out as String Dim myConnection As New SqlConnection(strConnect) Dim CommandText as String = "select * from glmaster" Dim myCommand As New SqlCommand(CommandText, myConnection) myConnection.Open() DataGrid1.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection) DataGrid1.DataBind() out = "<p>Row Count="+DataGrid1.Items.Count.ToString() out += "<P>Normal Termination "+Now outResult.InnerHtml = out End Sub </script> <%@ Import Namespace="System.Data.SqlClient" %> <html> <head> </head> <body style="FONT-FAMILY: arial"> <center> <table border="1"> <tbody> <tr> <td> <img src="captsm.gif" /></td> <td valign="center" align="middle" bgcolor="#aaaaaa"> <font face="COMIC SANS MS"><font size="4"><b>Simple List (Report) Using a Data Grid<br /> in VB.NET <hr /> for <i>glmaster</i> </b></font></font></td> </tr> </tbody> </table> <p> </p> <form runat="server"> <asp:datagrid id="DataGrid1" runat="server" EnableViewState="False" ForeColor="Brown" BackColor="White" CellPadding="3" GridLines="None" CellSpacing="1" BorderColor="Red" BorderStyle="Double"> <HeaderStyle font-bold="True" forecolor="White" bordercolor="#80FF80" backcolor="#00C000"></HeaderStyle> <ItemStyle backcolor="#C0FFC0"></ItemStyle> </asp:datagrid> </form> <div id="outResult" runat="server"></div> </center> </body> </html>
***** end of file *** printed: 60 lines on: 11/23/2009 5:53:24 AM
