mostrar registros aleatorios complicado

[engonga]

hola tengo un script que me muestra datos de una base de datos lo que quiero que me haga es que me muestre un registro aleatorio

en la base de datos tengo un campo "Id" que es autonumerico y el administrador borrar e inserta registros normalmente

y no se como hacerlo

[tammander]

Hola :)

por SQL:

http://www.petefreitag.com/item/466.cfm

por ASP:

Código:

<%
Dim conn, rst

set conn = server.CreateObject("ADODB.Connection")
conn.open "connectionstring"

set rst = conn.execute("SELECT * FROM tabla")
if not rst.EOF then
    rst.moveFirst()
    a = Int((rst.recordCount) * Rnd)
    
    ' Te posiciones en el registro aleatorio
    rst.move(a)
    
end if

rst.close()
set rst = nothing
%>

Un saludo

[engonga]

y ahora para mostrar 10 registros?

[Shiryu_Libra]

seria algo similar a esto.... en negritas lo que deberias de agregarle al codigo que te proporciono tammander

<%
Dim conn, rst
set conn = server.CreateObject("ADODB.Connection")
conn.open "connectionstring"
set rst = conn.execute("SELECT * FROM tabla")
if not rst.EOF then
rst.moveFirst()

for i=0 to 9

a = Int((rst.recordCount) * Rnd)
' Te posiciones en el registro aleatorio
rst.move(a)

next

end if
rst.close()
set rst = nothing
%>

suerte

[engonga]

me sale el error

"Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E24)
El conjunto de filas no admite recuperación hacia atrás"

[tammander]

Eso es porque el cursor del recordset no permite moverse hacia atras. Te propongo un ejercicio. Deja tal y como Shiryu_libra (hola, shiryu ;) ) te puso el código y busca las diferentes formas de abrir un recordset.

Esta:

set rst = conn.execute("SELECT * FROM tabla")

es bastante comun pero no deja mas que mover el cursor hacia adelante (suficiente en la mayoria de los casos).

Una pista:

' Tipos de cursor
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

' Bloqueos
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3

set rs=createobject("ADODB.Recordset")
rs.CursorType = elije un tipo de cursor
rs.LockType = adLockOptimistic ' Este te lo dejo ya listo ;)


Si quieres investigar mas, mira este sitio:

http://www.asptutor.com/asp/vart.asp?id=5



Un saludo