Random poster fra Access

Hvad forventer du egentlig?

http://www.eksperten.dk/spm/335120

Hvorfor opretter du altid dine spørgsmål flere gange?

http://www.eksperten.dk/bruger.phtml?navn=maron&option=22

Jeg forventer at folk på eksperten kan skrue noget sammen som virker "Oasen" dit script virker altså heller ikke, hvis jeg skal bruge timer på at finde fejl, hjælper det mig jo ligesom ikke :-(

Og hvorfor er du så negativ?

maron ---> Jeg er negativ, fordi jeg bruger tid på at give dig et svar, hvorefter du bare lukker spørgsmålet.

Man kunne måske forestille sig, det var dig selv, der fejlede.

I øvrigt er Eksperten et hjælpeforum. Du kan ikke forvente et 100% brugbart svar, når du lukker spørgsmålet igen efter 20 min og ikke engang kan stramme dig op til at komme med en evt. fejlmeddelelse.

Men det er jo ris til egen r** i sidste ende.

Det gjorde jeg faktisk kun for at sætte flere point på spørgsmålet.

Men jeg får flg. fejl på random.Fejltype:

ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Prøv lige at vis mig det hele.

Tekniske oplysninger (for supportteknikere)
Fejltype:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/test.asp, line 6

Nej, jeg tænkte på din kode. Åbning af db osv...

<%

AccessDataBase = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("test.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * From test", Conn, 1, 3

Count = 0
Do While Count < 10
    rs.MoveFirst
    Randomize
    rs.Move(int(rs.RecordCount * rnd))
    If Not rs.EOF And Not rs.BOF Then
        Count = Count + 1
        Response.Write rs("testnavn")
    End If
Loop

%>

Det er fordi, du ikke har ændret "Conn" til dit eget variabelnavn.

rs.Open "Select * From test", AccessDataBase, 1, 3

Det har jeg så gjort nu og får så denne fejl
:Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: 'test'

Denne her virker, men viser kun ét resultat, du kan måske fortælle mig hvordan jeg får 10 res. ud?

<%
    Set objRs = Server.CreateObject("ADODB.Recordset")
    strConn = "Driver={MicroSoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/test.mdb")
    strSQL = "SELECT * FROM test"
    objRs.Open strSQL, strConn, 1
   

    Randomize
    objRs.Move(int(objRs.RecordCount * Rnd()))

    Response.Write(objRs("test"))
     
%>

Det er samme princip. Der er bare ingen løkke. Du er vel klar over, du har skrevet "testnavn" i den ene og "test" i den anden...?
Men så prøv at kombinere dem:


Set objRs = Server.CreateObject("ADODB.Recordset")
strConn = "Driver={MicroSoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/test.mdb")
strSQL = "SELECT * FROM test"
objRs.Open strSQL, strConn, 1

Count = 0
Do While Count < 10
    objRs.MoveFirst
    Randomize
    objRs.Move(int(objRs.RecordCount * rnd()))
    If Not objRs.EOF And Not objRs.BOF Then
        Count = Count + 1
        Response.Write objRs("test")
    End If
Loop

Perfekt, det virker lige som det skal :-)
Mange tak for hjælpen og 60 point til dig.

Jeg skal bare have 30. Det var jo det, du startede med at udlove ;)

ok hvor er funktionen ret point?

Læg et svar selv og tildel 30 points til hver.

Fint :-)