Method for Random Access of 10 data entries
CopyCode The Code is as follows: Select * from Table order by RND (ID)
The ID in RND (ID) is the auto-increment field in the table.
Access random display records (not repeated) Solution
Copy codeThe Code is as follows: <%
'------------------------- Database connection -----------------------
Set objconn = server. Createobject ("ADODB. Connection ")
Objconn. connectionstring = "provider = Microsoft. Jet. oledb.4.0 ;"&_
"Data Source =" & server. mappath ("data. mdb ")
Objconn. Open
'------------------------- Database connection -----------------------
'------------------------- Retrieve data -----------------------
Strsql = "select ID, datacolumn from datatable"
'SQL statement, search database
Set objrs = server. Createobject ("ADODB. recordset ")
'Create record set
Objrs. Open strsql, objconn, 1, 1
'Perform search
Count = objrs. recordcount
'Get the total number of records
Item = 4
'Number of display records
'------------------------- Retrieve data -----------------------
'-------------------------------------------------------------------------------
Redim A (item, 2), T (count)
'Define 2 arrays. array a is used to store records. array T is used to delete selected records.
'---------------------------------------
'Initial array value, which is to be compared with this value after data is inserted.
For each J in T
J = 0
Next
'---------------------------------------
'---------------------------------------
'Random extraction record No.
Randomize timer initialize the random number generator
For j = 1 to item
K = int (RND * count + 1) 'randomly retrieves a record from the total number.
Do while T (k) <> 0' to determine whether the record is already in the array
K = int (RND * Item + 1)
Loop
T (K) = 1' the k-th record is selected
Next
'--------------------------------------
J = 1: I = 1' define subscript
'--------------------------------------
'Cyclically select some records in the dataset objrs and store them in the array.
Do while not objrs. EOF
If T (j) = 1 then
A (I, 1) = objrs ("ID") 'Record ID
A (I, 2) = objrs ("datacolumn") 'Record Content
I = I + 1
End if
J = J + 1
Objrs. movenext
Loop
'--------------------------------------
'-------------------------------------------------------------------------------
'---------------------------- Display content --------------------
For I = 1 to item
Response. Write "no." & A (I, 1) & "<br>"
Response. Write "content" & A (I, 2) & "<p>"
Next
'---------------------------- Display content --------------------
'---------------------------
'Release Resources
Objrs. Close
Set objrs = nothing
Objconn. Close
Set objconn = nothing
'---------------------------
%>
MSSQL random 10 recordsCopy codeThe Code is as follows: Select * From talbe order by newid ()
10 random MySQL records
Copy codeThe Code is as follows: Select * from Table order by rand () limit 0, 10
Original please indicate the source www.jb51.net