20. marts 2005 - 12:57Der er
3 kommentarer og 1 løsning
Random udvalg fra database
Jeg har denne kode som skal vælge en tilfeldig database post, og vise den : SUB Random set rs=server.CreateObject("adodb.recordset") strSQL = "SELECT COUNT(*) FROM Jokes" RS.Open strSQL, con, 3, 1 recCount = rs(0) 'rs.RecordCount randomize rec = int(rnd * recCount) 'Flyt til den valgte record rs.Move rec joketype = rs("tabel") jokenr = rs("jokenr") End SUB
Problemet her er at den tager kun antallet af poster, og hvordan kan jeg så få den til at finde oplysningerne om den valgte joke? Dette virkede fint med min gamle database som var i Access, men ikke i den nye som er MySQL? Tabellerne er fuldstændig ens i begge databaser?
Når det er mySQL kan du få den til at hente en tilfældig post ved brug af rand(): select * from tabelnavn order by rand() limit 1
Så din kode vil blive:
SUB Random set rs=server.CreateObject("adodb.recordset") strSQL = "select * from Jokes order by rand() limit 1" Set rs = con.Execute(strSQL) joketype = rs("tabel") jokenr = rs("jokenr") End SUB
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
