Hi,
I have an asp.net script that connects to MS Access database and displays
data in a table. For some reason I am do not know how to display data say in
ascending order of column1.
I have pasted below the script that I am using. I will appreciate if someone
can give me a clue as how to sort data in ascending or descending order when
displaying on the page.
Thanks,
Joe
<%@ page language="VB" debug="true" %>
<%@ Import Column1space="S ystem.Data" %>
<%@ Import Column1space="S ystem.Data.OleD b" %>
<script language="VB" runat="server">
sub Page_Load(sende r as Object, e as EventArgs)
Dim connString as String
Dim pathStr As String
pathStr = Left(Request.Ph ysicalApplicati onPath, 10)
connString = "PROVIDER=Micro soft.Jet.OLEDB. 4.0;" _
& "DATA SOURCE=" & pathStr & "\databases\som edatabase.mdb"
Dim objConnection as OleDbConnection
objConnection = New OleDbConnection (connString)
objConnection.O pen()
Dim strSQL as String = "SELECT column1, column2 FROM sometable"
Dim objCommand as OleDbCommand
objCommand = New OleDbCommand(st rSQL, objConnection)
Dim objDataReader as OleDbDataReader
objDataReader = objCommand.Exec uteReader(Comma ndBehavior.Clos eConnection)
'Set the table width.
DisplayTable.Wi dth = Unit.Percentage (100.0)
'Create a new row for adding a table heading
Dim tableHeading As TableRow = New TableRow()
'Create and add the cells that contain the Customer ID column heading
text.
Dim Column1IDHeadin g As TableHeaderCell = New TableHeaderCell ()
column1IDHeadin g.Text = "Column1"
column1IDHeadin g.backcolor =
System.Drawing. Color.FromColum n1(CType("#CCCC CC", String))
column1IDHeadin g.HorizontalAli gn = HorizontalAlign .Center
column1IDHeadin g.CssClass = "subsubTitl e"
tableHeading.Ce lls.Add(column1 IDHeading)
'Create and add the cells that contain the Contact Column1 column
heading text.
Dim companyHeading As TableHeaderCell = New TableHeaderCell ()
column2Heading. Text = “column2"
column2Heading. backcolor =
System.Drawing. Color.FromColum n2(CType("#CCCC CC", String))
column2Heading. HorizontalAlign = HorizontalAlign .Center
column2Heading. CssClass = "subsubTitl e"
tableHeading.Ce lls.Add(column2 Heading)
DisplayTable.Ro ws.Add(tableHea ding)
'Loop through the resultant data selection and add the data value
'for each respective column in the table.
While(objDataRe ader.Read())
Dim detailsRow As TableRow = New TableRow()
Dim column1Cell As TableCell = New TableCell()
column1Cell.Tex t = objDataReader(" column1").ToStr ing()
column1Cell.Css Class = "bodyText"
detailsRow.Cell s.Add(column1Ce ll)
Dim companyCell As TableCell = New TableCell()
companyCell.Tex t = objDataReader(" company").ToStr ing()
companyCell.Css Class = "bodyText"
detailsRow.Cell s.Add(companyCe ll)
'Add the new row to the table.
DisplayTable.Ro ws.Add(detailsR ow)
End While
objDataReader.C lose()
objConnection.C lose()
end sub
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt d">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitl ed Document</title>
<link href="../styles/basic_cross_pla t.css" rel="stylesheet " type="text/css">
</head>
<body>
<a column1="top"></a>
<asp:Table id="DisplayTabl e" border="1" cellpadding="2" cellspacing="1"
runat="server"> </asp:Table>
<p><a href="#top" class="top">top </a></p>
</body>
</html>
