467,119 Members | 904 Online
Bytes | Developer Community
Ask Question

Home New Posts Topics Members FAQ

Post your question to a community of 467,119 developers. It's quick & easy.

How to display data on web page in ascending order

Joe
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="System.Data" %>
<%@ Import Column1space="System.Data.OleDb" %>
<script language="VB" runat="server">
sub Page_Load(sender as Object, e as EventArgs)

Dim connString as String
Dim pathStr As String

pathStr = Left(Request.PhysicalApplicationPath, 10)
connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" & pathStr & "\databases\somedatabase.mdb"

Dim objConnection as OleDbConnection
objConnection = New OleDbConnection(connString)
objConnection.Open()

Dim strSQL as String = "SELECT column1, column2 FROM sometable"

Dim objCommand as OleDbCommand
objCommand = New OleDbCommand(strSQL, objConnection)

Dim objDataReader as OleDbDataReader
objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConn ection)

'Set the table width.
DisplayTable.Width = 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 Column1IDHeading As TableHeaderCell = New TableHeaderCell()
column1IDHeading.Text = "Column1"
column1IDHeading.backcolor =
System.Drawing.Color.FromColumn1(CType("#CCCCCC", String))
column1IDHeading.HorizontalAlign = HorizontalAlign.Center
column1IDHeading.CssClass = "subsubTitle"
tableHeading.Cells.Add(column1IDHeading)

'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.FromColumn2(CType("#CCCCCC", String))
column2Heading.HorizontalAlign = HorizontalAlign.Center
column2Heading.CssClass = "subsubTitle"
tableHeading.Cells.Add(column2Heading)

DisplayTable.Rows.Add(tableHeading)

'Loop through the resultant data selection and add the data value
'for each respective column in the table.
While(objDataReader.Read())

Dim detailsRow As TableRow = New TableRow()
Dim column1Cell As TableCell = New TableCell()
column1Cell.Text = objDataReader("column1").ToString()
column1Cell.CssClass = "bodyText"
detailsRow.Cells.Add(column1Cell)

Dim companyCell As TableCell = New TableCell()
companyCell.Text = objDataReader("company").ToString()
companyCell.CssClass = "bodyText"
detailsRow.Cells.Add(companyCell)

'Add the new row to the table.
DisplayTable.Rows.Add(detailsRow)

End While

objDataReader.Close()
objConnection.Close()

end sub

</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="../styles/basic_cross_plat.css" rel="stylesheet" type="text/css">
</head>
<body>
<a column1="top"></a>
<asp:Table id="DisplayTable" border="1" cellpadding="2" cellspacing="1"
runat="server"></asp:Table>
<p><a href="#top" class="top">top</a></p>
</body>
</html>

Nov 18 '05 #1
  • viewed: 2753
Share:
2 Replies
Try SELECT column1, column2 FROM sometable ORDER BY column1

"Joe" wrote:
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="System.Data" %>
<%@ Import Column1space="System.Data.OleDb" %>
<script language="VB" runat="server">
sub Page_Load(sender as Object, e as EventArgs)

Dim connString as String
Dim pathStr As String

pathStr = Left(Request.PhysicalApplicationPath, 10)
connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" & pathStr & "\databases\somedatabase.mdb"

Dim objConnection as OleDbConnection
objConnection = New OleDbConnection(connString)
objConnection.Open()

Dim strSQL as String = "SELECT column1, column2 FROM sometable"

Dim objCommand as OleDbCommand
objCommand = New OleDbCommand(strSQL, objConnection)

Dim objDataReader as OleDbDataReader
objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConn ection)

'Set the table width.
DisplayTable.Width = 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 Column1IDHeading As TableHeaderCell = New TableHeaderCell()
column1IDHeading.Text = "Column1"
column1IDHeading.backcolor =
System.Drawing.Color.FromColumn1(CType("#CCCCCC", String))
column1IDHeading.HorizontalAlign = HorizontalAlign.Center
column1IDHeading.CssClass = "subsubTitle"
tableHeading.Cells.Add(column1IDHeading)

'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.FromColumn2(CType("#CCCCCC", String))
column2Heading.HorizontalAlign = HorizontalAlign.Center
column2Heading.CssClass = "subsubTitle"
tableHeading.Cells.Add(column2Heading)

DisplayTable.Rows.Add(tableHeading)

'Loop through the resultant data selection and add the data value
'for each respective column in the table.
While(objDataReader.Read())

Dim detailsRow As TableRow = New TableRow()
Dim column1Cell As TableCell = New TableCell()
column1Cell.Text = objDataReader("column1").ToString()
column1Cell.CssClass = "bodyText"
detailsRow.Cells.Add(column1Cell)

Dim companyCell As TableCell = New TableCell()
companyCell.Text = objDataReader("company").ToString()
companyCell.CssClass = "bodyText"
detailsRow.Cells.Add(companyCell)

'Add the new row to the table.
DisplayTable.Rows.Add(detailsRow)

End While

objDataReader.Close()
objConnection.Close()

end sub

</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="../styles/basic_cross_plat.css" rel="stylesheet" type="text/css">
</head>
<body>
<a column1="top"></a>
<asp:Table id="DisplayTable" border="1" cellpadding="2" cellspacing="1"
runat="server"></asp:Table>
<p><a href="#top" class="top">top</a></p>
</body>
</html>

Nov 18 '05 #2
SELECT column1, column2 FROm table ORDER BY column1 DESC

Or ASC at end depending on direction you want :)

"Joe" wrote:
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="System.Data" %>
<%@ Import Column1space="System.Data.OleDb" %>
<script language="VB" runat="server">
sub Page_Load(sender as Object, e as EventArgs)

Dim connString as String
Dim pathStr As String

pathStr = Left(Request.PhysicalApplicationPath, 10)
connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" & pathStr & "\databases\somedatabase.mdb"

Dim objConnection as OleDbConnection
objConnection = New OleDbConnection(connString)
objConnection.Open()

Dim strSQL as String = "SELECT column1, column2 FROM sometable"

Dim objCommand as OleDbCommand
objCommand = New OleDbCommand(strSQL, objConnection)

Dim objDataReader as OleDbDataReader
objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConn ection)

'Set the table width.
DisplayTable.Width = 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 Column1IDHeading As TableHeaderCell = New TableHeaderCell()
column1IDHeading.Text = "Column1"
column1IDHeading.backcolor =
System.Drawing.Color.FromColumn1(CType("#CCCCCC", String))
column1IDHeading.HorizontalAlign = HorizontalAlign.Center
column1IDHeading.CssClass = "subsubTitle"
tableHeading.Cells.Add(column1IDHeading)

'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.FromColumn2(CType("#CCCCCC", String))
column2Heading.HorizontalAlign = HorizontalAlign.Center
column2Heading.CssClass = "subsubTitle"
tableHeading.Cells.Add(column2Heading)

DisplayTable.Rows.Add(tableHeading)

'Loop through the resultant data selection and add the data value
'for each respective column in the table.
While(objDataReader.Read())

Dim detailsRow As TableRow = New TableRow()
Dim column1Cell As TableCell = New TableCell()
column1Cell.Text = objDataReader("column1").ToString()
column1Cell.CssClass = "bodyText"
detailsRow.Cells.Add(column1Cell)

Dim companyCell As TableCell = New TableCell()
companyCell.Text = objDataReader("company").ToString()
companyCell.CssClass = "bodyText"
detailsRow.Cells.Add(companyCell)

'Add the new row to the table.
DisplayTable.Rows.Add(detailsRow)

End While

objDataReader.Close()
objConnection.Close()

end sub

</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="../styles/basic_cross_plat.css" rel="stylesheet" type="text/css">
</head>
<body>
<a column1="top"></a>
<asp:Table id="DisplayTable" border="1" cellpadding="2" cellspacing="1"
runat="server"></asp:Table>
<p><a href="#top" class="top">top</a></p>
</body>
</html>

Nov 18 '05 #3

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

1 post views Thread by deko | last post: by
18 posts views Thread by Terry Holland | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.