Random udtræk fra tabel i Acces database

Du kan vel rette denne her til, det skulle ikke være så svært.

Randomize Timer

Set Rs = Conn.Execute("SELECT * FROM Tabel WHERE ID = ("&_
    "SELECT Min(ID) FROM Tabel WHERE ID >= (" &_
    "SELECT Round(CDbl(" & Replace(Rnd(),",",".") &_
    "*Max(ID))) FROM Tabel))")

Jeg kender ikke JScript koden for de der ting :(

okay, jeg koder ikke selv i JScript, men jeg kan da godt prøve.

Mit forsøg kommer her :

Randomize Timer

Set Rs = Conn.Execute("SELECT * FROM Tabel WHERE ID = ("SELECT Min(ID) FROM Tabel WHERE ID >= ("SELECT Round(CDbl(" + Replace(Rnd(),",",".") + " *Max(ID))) FROM Tabel))")

Uhauha... nej den kan den ikke lide :D
Den siger den ikke kan finde ud af at compilere det!

Hvis du har RIGTIGT mange records kan du lave en SQL som hendter alle ID (autonummer) kolonnnen ud. Og vælger et tilfældigt ID der i blandt. Man kan nemlig ikke nøjes med antal hvis man har slettet nogle records.


Så koden bliver lidt mere besværlig:


conn = Server.CreateObject("ADODB.Connection");
rs = Server.CreateObject("ADODB.Recordset");

DBPath = "DBQ=" + Server.mappath("/dbase/infodb.mdb");
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " + DBPath);

SQL = "SELECT ID FROM xyzTabel";
rs = Conn.Execute(SQL)

var listID,IDarr;
var antal, visI;
antal = 0;
listID = "";
while (!rs.EOF) {
  listID += rs("ID");
  rs.MoveNext();
  if (!rs.EOF) {
    listID += ",";
  }
  antal++
}
IDarr = listID.split(",");
visI = Math.floor(Math.random()*antal);

SQL = "SELECT * FROM xyzTabel WHERE ID = " + IDarr[visI];
rs = Conn.Execute(SQL)

Response.Write (rs("navn"));

Conn.Close();

Fed kode... det virker dude.. du er min helt! Hvis jeg havde været tøs eller gay havde jeg omfavnet dig!

Man kan enda korte det lidt med ved at bruge rs.GetRows() til at få alle ID ud:


conn = Server.CreateObject("ADODB.Connection");
rs = Server.CreateObject("ADODB.Recordset");

DBPath = "DBQ=" + Server.mappath("/dbase/infodb.mdb");
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " + DBPath);

var SQL, antalID, tempArray, idArr, visI;

SQL = "SELECT ID FROM xyzTabel";
rs = Conn.Execute(SQL)

tempArray = rs.GetRows();
idArr = tempArray.toArray();
antalID = idArr.length;
visI = Math.floor(Math.random()*antalID);

SQL = "SELECT * FROM xyzTabel WHERE ID = " + idArr[visI];
rs = Conn.Execute(SQL)

Response.Write (rs("navn"));

Conn.Close();