Tilfældig udtræk fra database (access)

Prøv med dette:


Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(".\dbfil.mdb")
Conn.Open (ConnStr)
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM randomText"
rs.Open strSQL, Conn, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int((RND * rndMax))  'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record

'UDSKRIV RANDOM recorden her
Response.Write rs("visDetteTekst")

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

Jeg skal så have lave en kolonne med navn RecordCount
Eller tager jeg helt fejl?

Ja det gør du :)

Det er en property to recordset som indeholder antallet af records i recordsetet.

to -> på

Hvordan holder man styr på hvor mange gange de forskellige poster er blevet vist?

Så må man bygge en UPDATE ind sådan her:


Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(".\dbfil.mdb")
Conn.Open (ConnStr)
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM randomText"
rs.Open strSQL, Conn, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int((RND * rndMax))  'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record

SQL = "UPDATE SET randomText SET vist = vist + 1 WHERE idnr = " & rs("idnr")
Conn.Execute(SQL)

'UDSKRIV RANDOM recorden her
Response.Write rs("visDetteTekst")

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

Syntax error in UPDATE statement.

http://www.opfinderen.dk/sites/?id=2

ja det var to SET det første skal være:

SQL = "UPDATE randomText SET vist = vist + 1 WHERE idnr = " & rs("idnr")

Her kan du se SQL syntax:
http://www.w3schools.com/sql/

Til netro
Jeg får godt nok et tilfældig udtræk, jeg vil bare gerne have at posterne bliver vist ligemeget

Nu sprøg jeg dumt igen, skal jeg nu have en kolonne der hedder vist?

Ja det skal du.

Mange tak for hjælpen

Jeg læste kun spørgsmålet, så det var blot en venlig henvisning.

Sådan var den også modtaget. Tak for forslaget

:-)