Random record

Hejsa

Det har altid været et helvede at udtrække random records fra en database, men på SQL server er der kommet en løsning på dette. Ved dog ikke om den virker på access, men du kan jo prøve:

Select * from MYTABLE order by NewID()

Dette giver en random record i SQL server.

Mvh,

Thomas Regin.

Havde det været MySQL kunne du bare tilføje ".....order by Rand()", men når det er Access, bliver du nødt til at gå en anden vej:

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

Response.Write rs("RandomFelt")

dette er min kode:
<%
Dim random_product
Dim random_product_numRows

Set random_product = Server.CreateObject("ADODB.Recordset")
random_product.ActiveConnection = MM_capitol_STRING
random_product.Source = "SELECT * FROM product WHERE Active = '" + Replace(random_product__MMColParam, "'", "''") + "'"
random_product.CursorType = 0
random_product.CursorLocation = 2
random_product.LockType = 1
random_product.Open()

random_product_numRows = 0

%>

ok - svar fra oasen - prøver lige...

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/information.asp, line 96

Jeg kan i øvrigt anbefale dig: http://www.eksperten.dk/kat/3?searchtype=txt&words=random+record&method=and&sort=score&catid=3 ;)

linie 93-99=
<%
Dim random_product__MMColParam
random_product__MMColParam = "Y"
If (Request("MM_EmptyValue") <> "") Then
  random_product__MMColParam = Request("MM_EmptyValue")
End If
%>

Og i linie 96 står der...?

hehe - i know oasen - jeg har siddet og rodet med flere af dem jeg kunne finde, men har ikke kunne få det til at virke

If (Request("MM_EmptyValue") <> "") Then

Hmm...

Det er vist ikke linie 96...

If (Request("MM_EmptyValue") <> "") Then  - er linie 96

linie 93 - 115

<%
Dim random_product__MMColParam
random_product__MMColParam = "Y"
If (Request("MM_EmptyValue") <> "") Then
  random_product__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM product WHERE Active = '" + Replace(random_product__MMColParam, "'", "''") + "'", 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

Response.Write rs("RandomFelt")

%>

Den fejl du beskriver
ADODB.Recordset error '800a0bb9'

kan ikke opstå i den linje du har vist som linje 96, det er en som har med et recordset at gøre.

Prøv at lave din kode som dette, dog skal du lige rette kolonnenanvet til:

<%
Dim random_product__MMColParam
random_product__MMColParam = "Y"
If (Request("MM_EmptyValue") <> "") Then
  random_product__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM product WHERE Active = '" + Replace(random_product__MMColParam, "'", "''") + "'", Conn, 1, 3
if rs.BOF or rs.EOF then
  Response.write "Ingen poster"
else
  rs.Move(int(rs.RecordCound * rnd())
 
  Response.write rs("klonne navn")
end if
%>

hmmm flot, ret lige denne linje:
  rs.Move(int(rs.RecordCound * rnd())

til:
  rs.Move(int(rs.RecordCount * rnd())

:) - er ("klonne navn") = IDproduct ?

Ja det kunne det være, det skal i føste omgang bare være et kolonnenavn du har i din tabel for at se det virker.

Fejl: "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."

For det virker så skal du havde en åben connection til databasen som hedder Conn har du det?

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/information.asp, line 96


linie 96 = rs.Open "SELECT * FROM product WHERE Active = '" + Replace(random_product__MMColParam, "'", "''") + "'", Conn, 1, 3

min forbindelse ligger i:
<!--#include file="Connections/capitol.asp" -->

som indeholder:
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_capitol_STRING
MM_capitol_STRING = "Data Source=d:\home\capitolshopdk\db\capitolshop.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
%>

Så ret denne:

rs.Open "SELECT * FROM product WHERE Active = '" + Replace(random_product__MMColParam, "'", "''") + "'", Conn, 1, 3

tTil:

rs.Open "SELECT * FROM product WHERE Active = '" + Replace(random_product__MMColParam, "'", "''") + "'", MM_capitol_STRING, 1, 3

det hjælper :)
kan du se den fejl der er nu - linie 138 =
<td class="productBrand"><%=(random_product.Fields.Item("Brand").Value)%> </td>

Lige en ting mere for den ikke skriver samme tal hele tiden så tilføj linjen:

randomize

Lig før denne:
rs.Move(int(rs.RecordCount * rnd())


Så det bliver

randomize
rs.Move(int(rs.RecordCount * rnd())

Ja ;)

Det så fordi du skal havde ændre enten rs til random_product eller random_product til rs. Lige nu er det valgte random produkt i recordsetet med nanvet rs.

Det var tanken at du i stedet for denne ene linje:

Response.write rs("klonne navn")


Hvor du har ændret det til produkID skal være det kode som udskriver det random valgte produkt.

du er for sej eagle
det er for vildt så hurtigt det går når du hjælper
.
really appreciate it man :)

smid et svar - det burde være 100 point, men jeg har kun 11 tilbage

Ok her et svar ;)

Tilføjet

eagle - har du nogen ide om hvorfor jeg ikke kan tage koden ud i en include fil ?
det vil bare ikke virke...

her har jeg oprettet nyt ?: http://www.eksperten.dk/spm/355356