ASP.NET 2.0中隨機讀取Access資料庫記錄

最後更新：2017-01-13 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

<%@ 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.NextResponse.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 = drGridView1.DataBind()dr.Close()cmd.Dispose()cn.Dispose()cn = NothingEnd 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>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More