Sacar registros aleatorios de BD?

RauMarSo · #1 (**permalink**) 29/03/2009, 06:15

Hola chicos/as tengo la intención de sacar unos registros aleatorios de una base de datos pero solo consigo sacar uno con Randomize y estoy un poco espeso me podríais ayudar, por favor.

<%
AbreBaseDatos("Datos")
SQL = "SELECT * FROM ARTICULOS"
AbreRecordSet rs,SQL,ConDatos

intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
%>

<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><img src="/imagen.asp?path=<%=Server.MapPath("/Images/Productos/")& "/" & rs.fields("RefArticulo")%>_1.jpg&height=75" height="75" border="0" align="left"></a>
 
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><%=rs("Nombre" )&" "&rs("color")%></a> <blockquote><%=(left(rs("Descripcion"),25 0)) %> ...</blockquote>

Un saludo y muchas gracias.

mc_quake · #2 (**permalink**) 29/03/2009, 10:41

para optener registros aleatorios de una tabla solo usas esto NEWID()

ej:

SQL = "SELECT * FROM ARTICULOS NEWID()"

RauMarSo · #3 (**permalink**) 29/03/2009, 16:42

Cita:

Iniciado por mc_quake

para optener registros aleatorios de una tabla solo usas esto NEWID()

ej:

SQL = "SELECT * FROM ARTICULOS NEWID()"

No entiendo lo que me quieres decir.

Un saludo y muchas gracias.

mc_quake · #4 (**permalink**) 29/03/2009, 20:02

Cita:

Iniciado por RauMarSo

No entiendo lo que me quieres decir.

Un saludo y muchas gracias.

tu pides esto:
sacar unos registros aleatorios de una base de datos pero solo consigo sacar uno.

solucion usando la cosulta que ya tines pesta:

Código asp:

Ver original<%
AbreBaseDatos("Datos") 
SQL = "SELECT TOP 10 * FROM ARTICULOS NEWID()"
' selecconas 10 registros de forma aleatoria de la tabla articulos. el numero 10 lo cambias por la cantidad de registros que quieras optener
AbreRecordSet rs,SQL,ConDatos
intTotalRecords = rs.RecordCount
 
While NOT rs.EOF
%>
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><img src="/imagen.asp?path=<%=Server.MapPath("/Images/Productos/")& "/" & rs.fields("RefArticulo")%>_1.jpg&height=75" height="75" border="0" align="left"></a>
<br><br>
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><%=rs("Nombre" )&" "&rs("color")%></a><br><br><br><font size="1"><blockquote><%=(left(rs("Descripcion"),25 0)) %> ...</blockquote></font>
 
<%
Rs.MoveNext
wend
%>

Adler · #5 (**permalink**) 30/03/2009, 05:57

Hola

Básicamente lo tienes hecho

Cambia esto

Código asp:

Ver original<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><img src="/imagen.asp?path=<%=Server.MapPath("/Images/Productos/")& "/" & rs.fields("RefArticulo")%>_1.jpg&height=75" height="75" border="0" align="left"></a>

por esto otro

Código asp:

Ver original<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs(0)%>&RefArt=<%=rs(1) %>&cat=<%=rs(3)%>"><img src="/imagen.asp?path=<%=Server.MapPath("/Images/Productos/")& "/" & rs(4)%>_1.jpg&height=75" height="75" border="0" align="left"></a>

Adecualo al orden de los campos de tu bd. Por ejemplo si el campo RefProducto es el primer campo entonces, para imprimirlo rs(0). Y así sucesivamente

Suerte

RauMarSo · #6 (**permalink**) 30/03/2009, 07:49

Cita:

Iniciado por mc_quake

tu pides esto:
sacar unos registros aleatorios de una base de datos pero solo consigo sacar uno.

solucion usando la cosulta que ya tines pesta:

Código asp:

Ver original<%
AbreBaseDatos("Datos") 
SQL = "SELECT TOP 10 * FROM ARTICULOS NEWID()"
' selecconas 10 registros de forma aleatoria de la tabla articulos. el numero 10 lo cambias por la cantidad de registros que quieras optener
AbreRecordSet rs,SQL,ConDatos
intTotalRecords = rs.RecordCount
 
While NOT rs.EOF
%>
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><img src="/imagen.asp?path=<%=Server.MapPath("/Images/Productos/")& "/" & rs.fields("RefArticulo")%>_1.jpg&height=75" height="75" border="0" align="left"></a>
<br><br>
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><%=rs("Nombre" )&" "&rs("color")%></a><br><br><br><font size="1"><blockquote><%=(left(rs("Descripcion"),25 0)) %> ...</blockquote></font>
 
<%
Rs.MoveNext
wend
%>

Me da el siguiente error y no se a que se debe, creo que esta todo bien

------ error -------
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis en la cláusula FROM.

/Includes/master.asp, línea 45
---- fin error -----

----- codigo -----

Sub AbreRecordset(recordset,consulta,conexion)
'Response.Write(CONSULTA & " ")
Set Recordset=Server.CreateObject("ADODB.Recordset")
Recordset.Open consulta,conexion,adOpenStatic <--------Linea 45
End Sub

--- fin codigo ---

Un saludo y muchísimas gracias por vuestra ayuda

mc_quake · #7 (**permalink**) 30/03/2009, 08:59

1.- Prueba asi quitando el () al newid
2.- Verifica que tu conexion a la bd este bien
este error casi siempre se debe a que no tienes la cadena de conexion a la BD puesta

Código asp:

Ver originalAbreBaseDatos("Datos") 
SQL = "SELECT TOP 10 * FROM ARTICULOS NEWID"
' selecconas 10 registros de forma aleatoria de la tabla articulos. el numero 10 lo cambias por la cantidad de registros que quieras optener
AbreRecordSet rs,SQL,ConDatos
intTotalRecords = rs.RecordCount

u_goldman · #8 (**permalink**) 30/03/2009, 10:06

La función NEWID() que bien recomienda McQuake, es de T-SQL por lo tanto solo funciona en SQL Server y generalmente se utiliza el el order by pues genera GUIDS de manera aleatoria.
Creo que deberías tratar lo que te dice Adler.

Saludos

RauMarSo · #9 (**permalink**) 31/03/2009, 06:43

Cita:

Iniciado por u_goldman

La función NEWID() que bien recomienda McQuake, es de T-SQL por lo tanto solo funciona en SQL Server y generalmente se utiliza el el order by pues genera GUIDS de manera aleatoria.
Creo que deberías tratar lo que te dice Adler.

Saludos

Entonces newid() no funciona?

Lo que me comenta Adler ya lo he hecho, pero solo me saca un registro aleatoriamente, y lo que yo quiero es que saque varios.

Un saludo y muchísimas gracias.

Adler · #10 (**permalink**) 31/03/2009, 07:12

Hola

Podrías añadirle un ciclo

Suerte

Shiryu_Libra · #11 (**permalink**) 01/04/2009, 23:19

numeros aleatorios

Código ASP:

Ver originalfunction alea(max)
    dim rndmax
    dim rndnumber
   
    rndmax = cdbl(max)
    randomize timer
   
    rndnumber = int(rnd * rndmax)
 
alea = rndnumber
end function

donde max, seria la limitante de los numeros aleatorios

Código ASP:

Ver original<%
AbreBaseDatos("Datos")
SQL = "SELECT * FROM ARTICULOS"
AbreRecordSet rs,SQL,ConDatos
 
max_despliegue = 10
intTotalRecords = rs.RecordCount
 
for I=0 to max_despliegue
    rs.Move alea(intRandomNumber)%>
 
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><img src="/imagen.asp?path=<%=Server.MapPath("/Images/Productos/")& "/" & rs.fields("RefArticulo")%>_1.jpg&height=75" height="75" border="0" align="left"></a>
<br><br>
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><%=rs("Nombre" )&" "&rs("color")%></a><br><br><br><font size="1"><blockquote><%=(left(rs("Descripcion"),25 0)) %> ...</blockquote></font><%
 
next
'RECUERDA CERRAR TODO PERFECTAMENTE PARA QUE NO MARQUE ERROR
%>

esto desplegaria un total de 10 aleatorios
que opinan?

u_goldman · #12 (**permalink**) 02/04/2009, 00:57

Está bien para partir de ahí pero quizás es un poco más complejo que esto pues corres el riesgo de que tus números aleatorios estén repetidos, por ende, los registros...

Saludos

Adler · #13 (**permalink**) 02/04/2009, 06:40

Hola

u_goldman tiene razón, es mas complicado que eso.

Encontré esto, para lo que ocupa habría que cambiar

For iArrayLooper = LBound(arrSequencer) To UBound(arrSequencer)

por For iArrayLooper = LBound(arrSequencer) To 9 ' Así muestra 10 registros

Suerte

u_goldman · #14 (**permalink**) 02/04/2009, 12:10

Código asp:

Ver originalfunction getRandomNumber()
    Randomize()
    getRandomNumber = int (1000*Rnd)+1
 end function
 
'Numero de registros que devolveremos del recordset
recNo = 3
 
strSQL = "SELECT TOP " & recNo & " id, campo1, Rnd(" & -1 * (getRandomNumber()) & "*id) FROM tbl1 ORDER BY 3"

La magia sucede cuando obtienes un numero aleatorio y lo vuelves a aleatorizar haciendo un calculo en access que en este caso consiste en obtener un numero aleatorio multiplicado por el id, despues se ordena con un numero N, en este caso el mismo valor usado para devolver los primeros registros y listo

alejandro2 · #15 (**permalink**) 02/04/2009, 12:49

beunos dias a todos miren tengo una duda estoy estudian do el sexto semestre de preparatoria tengo una duda comopuedo hacer una conexion de una base de datos de access a una pagina de php gracias por su ayudase despide de ustedes su amigo alajandro2

u_goldman · #16 (**permalink**) 02/04/2009, 12:54

Cita:

Iniciado por alejandro2

asi no es esta mal

¿?

Cita:

Iniciado por alejandro2

beunos dias a todos miren tengo una duda estoy estudian do el sexto semestre de preparatoria tengo una duda comopuedo hacer una conexion de una base de datos de access a una pagina de php gracias por su ayudase despide de ustedes su amigo alajandro2

Parece que estás un poco perdido, ve al foro de PHP por favor.

Adler · #17 (**permalink**) 02/04/2009, 13:11

Hola

U_Goldman he probado tu magia

y se rompe cuando refrescas la página una y otra vez y continua mostrando los mismos registros

¿O quizás los he probado con una tabla con pocos registros (5)?

u_goldman · #18 (**permalink**) 02/04/2009, 13:41

Mmhhhh, a ver pon tu código...deja además subir mi ejemplo para que lo descarguen.

Edit: el order by tiene que ser 3, hace mucho que tengo ese código así que no recordaba bien lo que hacía y quise según yo hacerlo mas dinámico....ya lo corregí.

u_goldman · #19 (**permalink**) 02/04/2009, 13:58

Acá esta el código, a ver si les funciona

Adler · #20 (**permalink**) 03/04/2009, 05:53

Hola

U_G, perfecto

No me deba cuenta que el order by era 3 y yo solo seleccionaba un campo mas el aleatorio

u_goldman · #21 (**permalink**) 03/04/2009, 12:09

Lo del order by fue algo que hice mal yo. Al momento de copipeistear me pareció que podía agregar funcionalidad extra al hacer ese ORDER BY, sin recordar por qué estaba así...es que el viernes estaba cerca, por cierto, salud!