ASP.NET 2.0隨機讀取Access記錄

 由于使用ADO訪問Access數據庫會有緩存，這在隨機提取數據庫數據時，例如：sql="select top 10 Title,objectGuid from Document Order By Rnd(id)"，將得不到隨機記錄，下面的例子可以克服這一缺陷，實現數據庫的隨機讀取。

C#：

＜%@ Page Language="C#" %＞

＜!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"＞

＜script runat="server"＞

protected void Page_Load( object sender, EventArgs e )
{
Random rnd = new Random(unchecked((int)DateTime.Now.Ticks));
int intRandomNumber = rnd.Next();
string ConnectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=　DataDirectory　aspxWeb.mdb;Persist Security Info=True";
string sql = "select top 10 Title,objectGuid from Document Order By Rnd(" + (-1 * intRandomNumber) + "*id)";
System.Data.OleDb.OleDbConnection cn = new System.Data.OleDb.OleDbConnection(ConnectionString);
cn.Open();
System.Data.OleDb.OleDbCommand cmd = new System.Data.OleDb.OleDbCommand(sql, cn);
System.Data.OleDb.OleDbDataReader dr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection);
GridView1.DataSource = dr;
GridView1.DataBind();
dr.Close();
cmd.Dispose();
cn.Dispose();
cn = null;

}
＜/script＞
＜html xmlns="http://www.w3.org/1999/xhtml"＞
＜head runat="server"＞
＜title＞隨機讀取Access數據庫記錄＜/title＞
＜/head＞
＜body＞
＜form id="form1" runat="server"＞
＜div＞
＜asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="false"＞
＜Columns＞
＜asp:HyperLinkField DataNavigateUrlFields="objectGuid" HeaderText="文章" DataTextField="Title"
DataNavigateUrlFormatString="http://dotnet.aspx.cc/article/{0}/read.aspx" /＞
＜/Columns＞
＜/asp:GridView＞
＜/div＞
＜/form＞
＜/body＞
＜/html＞

VB.NET：

＜%@ Page Language="VB" Debug="true" %＞

＜!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"＞

＜script runat="server"＞

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim TimeString As String = DateTime.Now.Ticks.ToString()
Dim a As UInt32 = UInt32.Parse(TimeString.Substring(TimeString.Length - 8, 8))
Dim b As Int32 = BitConverter.ToInt32(BitConverter.GetBytes(a), 0)
Dim rnd As Random = New Random(b)
Dim intRandomNumber As Integer = rnd.Next
Response.Write(intRandomNumber)
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=　DataDirectory　aspxWeb.mdb;Persist Security Info=True"
Dim sql As String = "select top 10 Title,objectGuid from Document Order By Rnd(" + (-1 * intRandomNumber).ToString() + "*id)"
Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection
(ConnectionString)
cn.Open()
Dim cmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(sql, cn)
Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
GridView1.DataSource = dr
GridView1.DataBind()
dr.Close()
cmd.Dispose()
cn.Dispose()
cn = Nothing
End Sub
＜/script＞

＜html xmlns="http://www.w3.org/1999/xhtml"＞
＜head id="Head1" runat="server"＞
＜title＞隨機讀取Access數據庫記錄＜/title＞
＜/head＞
＜body＞
＜form id="form1" runat="server"＞
＜div＞
＜asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="false"＞
＜Columns＞
＜asp:HyperLinkField DataNavigateUrlFields="objectGuid" HeaderText="文章" DataTextField="Title"
DataNavigateUrlFormatString="http://dotnet.aspx.cc/article/{0}/read.aspx" /＞
＜/Columns＞
＜/asp:GridView＞
＜/div＞
＜/form＞
＜/body＞
＜/html＞

原文轉自：http://www.anti-gravitydesign.com