tilfældige poster fra access

prøv den her måde:
<%
  dim objConn, objRS
  dim intRandom, intMax
  dim strSQL1, strSQL2
 
  Randomize()
 
  strSQL1 ="Select Max(ID) From myTable Order By ID" 
  strSQL2 ="Select Top 1 ID,... From myTable Where ID >= " 
 
 
  Set objConn = Server.CreateObject("ADODB.Connection")
  Set objRS = Server.CreateObject("ADODB.RecordSet")
 
  Call objConn....
  Call objRS.Open(strSQL,objConn)
    intMax = objRS.Fields(0).Value
  Call objRS.Close
 
  intRandom = (Rnd() * intMax)\1 + 1
 
  Call objRS.Open(strSQL2 & intRandom &" Order By ID",objConn)
    ...
%>

jeg har ikke prøvet det endnu - men risikerer man med det ikke at den tager et id der ikke eksisterer hvis man har slettet nogle poster?

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * From Tabel", Conn, 1, 3

Do While Not Fundet
    rs.MoveFirst
    Randomize
    rs.Move(int(rs.RecordCount * rnd))
    If Not rs.EOF And Not rs.BOF Then
        Fundet = True
    End If
Loop


- Således vil du altid få returneret en post, der findes.

og hvis det så skulle være 3 tilfældige - uden gengangere?

Tjoo... så kunne du lave det sådan:


Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * From Tabel", Conn, 1, 3

Do While str3 = ""
    rs.MoveFirst
    Randomize
    rs.Move(int(rs.RecordCount * rnd))
    If Not rs.EOF And Not rs.BOF Then
        If str1 = "" Then
            str1 = rs("Felt")
        ElseIf str1 <> rs("Felt") Then
            str2 = rs("Felt")
        ElseIf str1 <> rs("Felt") And str2 <> rs("Felt") Then
            str3 = rs("Felt")
        End If
    End If
Loop


Response.Write str1 & "<br>" & str2 & "<br>" & str3

Du får den lige en gang til med en lille korrektion:


Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * From Tabel", Conn, 1, 3

Do While str3 = ""
    rs.MoveFirst
    Randomize
    rs.Move(int(rs.RecordCount * rnd))
    If Not rs.EOF And Not rs.BOF Then
        If str1 = "" Then
            str1 = rs("Felt")
        ElseIf str2= "" And str1 <> rs("Felt") Then
            str2 = rs("Felt")
        ElseIf str1 <> rs("Felt") And str2 <> rs("Felt") Then
            str3 = rs("Felt")
        End If
    End If
Loop


Response.Write str1 & "<br>" & str2 & "<br>" & str3

Rigtig, hvis det er store gab mellem ID nr. så virker den ikke. Men man kan ikke klare den bedre med m$Access.

Den mangler en Rand()

fik ikke en 100% løsning, så jeg blev nødt til at lave det med flere sql-kald

lukker