Recuperar registros al azar con BD

[Fer]_[123] · #1 (**permalink**) 11/02/2009, 22:36

Hola de nuevo yo! hace 3 dias que lucho con esto y no hay caso, voy a apelar a sus conocimientos que son mas que los mios sin duda...estoy haciendo un sistemita de ofertas en el costado de la pagina de un amigo que no deben repetirse o sea tengo 3 recuadritos que cada uno muestra imagen y texto de la oferta distinto del otro, les muestro lo que hice para elprimero:

<%
set rs = CreateObject("ADODB.Recordset")
set rs5 = CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("productos.mdb"))

Dim id_var
minimo = 1
' cantidad total de la tabla
maximo = "select count(id) as cant_total from Productos "

rs.Open maximo, conn
maximo1 = rs("cant_total")
encontro = 0

'Genero un nro. aleatorio para no cablearlo y que muestre diferentes productos cada vez que hago F5.
Randomize
id_var = Int(((maximo1-minimo+1) * Rnd) + minimo)

do while encontro = 0
'busco el ID del producto = al nro. que me genero el random.
sqltxt="SELECT id as id_aux FROM Productos Where id = "&id_var&" "
rs5.Open sqltxt,conn
id = rs5("id_aux")

'Este es una marca que me dice si es oferta(Si) o no es oferta(No).
'Me fijo lo que tiene de acuerdo al ID encontrado arriba.
flag = "select flag_oferta as flag from productos where id = "&id&" "
rs5.Open flag, conn
flag_of = rs5("flag")

'Si no es oferta le digo que me genere otro nro. y que lea el siguiente.
if flag_of ="No" then
Randomize
id_var = Int(((maximo1-minimo+1) * Rnd) + minimo)
Rs5.movenext
else
'de lo contrario quiere decir que es oferta y deberia mostrarme el producto.
rs.close
rs.CursorType = adOpenKeyset
variable=Request("tabla")

sqltxt="SELECT * FROM Productos Where id = "&id&" and flag_oferta = 'Si' "
rs.Open sqltxt,conn
' Leo las ofertas y Luego recupero mas abajo los registros con rs.
end if

loop

**El problema es que me tira el siguiente error

ADODB.Recordset error '800a0e79'

La operación no está permitida si el objeto está abierto.

/ofertas/principal.asp, línea 484
>es esta linea 484: rs5.Open flag, conn

Se que no deberia ser muy dificil pero es medio enroscado o me enrosque yo, puede traer la marca en S o en N . El otro tema importante es que si se borra un registro de la tabla osea desaparece el ID al mostrar muestra el recuadro vacio, :( ;(

Si alguien vio alguna vez algo parecido bienvenido será !

Saludos y gracias d e antemano.

Shiryu_Libra · #2 (**permalink**) 11/02/2009, 23:20

aki lo que pasa es que al ejecutar tu primera sentencia... todo bien, pero cuando realizas el "NO", jamas cierras la consulta anterior

es que andas queriendo realizar una consulta sobre otra consulta abierta, y logicamente se bloquea

ahora, en construir sentencias ando oxidado....

pero podrias construir una sentencia, donde preguntes directamente si el campo es "si", y te evitas el realizar la siguiente busqueda

(ahi me sacrifican si no estoy correcto)

Código ASP:

Ver originalsqltxt="SELECT id as id_aux, flag FROM Productos Where id = "&id_var&" and flag = si"

quiero pensar que es "SI" en ese campo

realizas muchas consultas, cuando podrias unirla en una sola, y te evitarias tantos pasos

[Fer]_[123] · #3 (**permalink**) 12/02/2009, 17:07

Hola gracias por la respuesta, lo solucione con esto:

' seleccionamos todos los registros.
sql = "SELECT * FROM Productos where flag_oferta = 'Si'" '
RS.OPEN sql, oConn, 1, 1
'los contamos con RecordCount.
registros = rs.RecordCount

minimo = 1
maximo = registros
'Iniciamos randomize
Randomize
'obtenemos un regitro al azar entre 1 y la cantidad de registros.
registro_azar = Int(((maximo-minimo+1) * Rnd) + minimo)'''''

'Vamos hasta el registro.
RS.Move(regitro_azar)

<<<<<< Luego recupero los registros: >>>>>>>
EL Problema es que me muestra siempre los mismos 5 y yo quiero que al actualizar la pagina me muestre al azar.

'Tomo solo 5 registros para que me muestre si no se descontrola la pagina
<% I=0
do while not rs.eof and contador <= cint(tamanopagina) and I < 5 %>

<%= RS("Titulo_prod")%>
<%
Rs.movenext
I = I+1
LOOP
RS.Close
oConn.close
Set RS = Nothing
Set oConn = Nothing

%>

-------------------------------------------------------------------------------
alguna idea de porque? :(
Saludos!

Shiryu_Libra · #4 (**permalink**) 12/02/2009, 18:14

pues yo solo miro que el ciclo Do While da 5 vueltas tomando los valores 0 - 5, pero no miro que este la funcion de randomize dentro de las vueltas para cambiar de registro aleatoriamente

sera que tan oxidado estoy que no miro el error

[Fer]_[123] · #5 (**permalink**) 12/02/2009, 19:37

Cita:

Iniciado por Shiryu_Libra

pues yo solo miro que el ciclo Do While da 5 vueltas tomando los valores 0 - 5, pero no miro que este la funcion de randomize dentro de las vueltas para cambiar de registro aleatoriamente

sera que tan oxidado estoy que no miro el error

Pues Shiryu yo lo miro y lo miro y lo vuelvo a mirar y no me doy cuenta como ponerle el randomize dentro del do while ;( como le hago per favor! ya no se que mas probar me estoy volviendo loco lelo o no se...

Shiryu_Libra · #6 (**permalink**) 12/02/2009, 19:53

haber....

consulto el total de registros (count)

creo 5 numeros aleatorios en un arreglo
creo una sentencia base
sql="select * from tabla where id="

creo un ciclo de 5 vueltas (I=0)
ejecuto la consulta directamente sin RS
conexion.execute sql&alea(i)
muestro la informacion
regreso el ciclo

cierro las operaciones
limpio variables

fin

seria algo asi.... no crees?

engonga · #7 (**permalink**) 11/11/2009, 14:03

sacaron la solucion para que los saque al azar?

[Fer]_[123] · #8 (**permalink**) 11/11/2009, 17:49

Cita:

Iniciado por ^engonga^

sacaron la solucion para que los saque al azar?

Si te sirve yo hago algo asi:

Dim conn, RS, registros, registro_azar, I, minimo1
' Conectamos a la BD.
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("NOM_BASEDATOS.mdb"))

rs.CursorType=adOpenStatic

RS.CursorType = 1
SQL = "SELECT * FROM Productos where flag_oferta ='Si'"
RS.Open SQL, conn,3,1
minimo1 = 1
'/*Tomo la cantidad de registros*/
registros = int(rs.RecordCount) 'maximo
for i=1 to registros
'Obtengo un numero al azar
randomize()
valor_aux = Int(RND * registros)
randomize()
'Pasamos a entero porque RND da decimales
num_aleatorio1 = Int(((registros-minimo1+1) * Rnd) + minimo1)

if num_aleatorio1 = registros then
num_aleatorio1 = num_aleatorio1 - 1
end if

RS.MoveFirst
RS.Move(num_aleatorio1)
----
'Recorro la tabla y tomo la foto del producto con el valor del ID igual al numero aleatorio "num_aleatorio1"

Rs.movenext
I = I+1
LOOP
RS.Close
conn.close
Set RS = Nothing
Set conn = Nothing
----
Es medio rebuscado pero por ahi podes adaptarlo o te da una idea.
Suerte. Saludos

sjam7 · #9 (**permalink**) 11/11/2009, 17:55

les aconsejo cambiarse a MySQL, bajen MySQL-Front y ahi importan su archivo MDB muy facil, es muy facil de usar, y en MySQL solo necesitarian agregar ORDER BY RAND() LIMIT 1 para mostrar un registro al azar

engonga · #10 (**permalink**) 12/11/2009, 01:17

FER

tu codigo me lanza el error

Error de compilación de Microsoft VBScript (0x800A040E)
'loop' sin 'do'
/hotelenbaqueira/z_rest_aleatori3.asp, línea 45
LOOP

Adler · #11 (**permalink**) 12/11/2009, 05:06

Hola

Tengo este script de hace una años, de cuando usaba access. Espero que te sirva

Código asp:

Ver original<%@LANGUAGE="VBSCRIPT"%>
<%
function getRandomNumber()
    Randomize()
    getRandomNumber = int (1000*Rnd)+1
end function
 
Response.Write "SACAR REGISTROS ALEATORIAMENTE<br> el order by ha de ser un número igual que los campos seleccionados menos 1"
 
'Numero de registros que devolveremos del recordset
recNo = 3
 
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./Prueba.mdb")&";" 
SQL = "SELECT TOP " & recNo & " id, referencia, nombre, tamano, Rnd(" & -1 * (getRandomNumber()) & "*id) FROM tabla5 ORDER BY 4"
 
'---Debug-----
'Response.Write(SQL)
'Response.End()
'-------------
 
 
set rs = oConn.Execute(SQL)
registros = rs.GetRows
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
 
 
For i = 0 To UBound(registros,2) 
Response.Write registros(0,i)  &" - " & registros(1,i)  &" - " & registros(2,i)  &" - " & registros(3,i) & "<br />"
Next
%>

En cuanto a migrar de access a MySQL tenemos la herramienta MySQLMigration

Suerte

engonga · #12 (**permalink**) 12/11/2009, 05:15

me salen los 3 primeros y su refresco no canvia aleatoriamente

Adler · #13 (**permalink**) 12/11/2009, 06:00

Hola

No lo había probado creyendo que funcionaba

. Prueba ahora

Código asp:

Ver original<%@LANGUAGE="VBSCRIPT"%>
<%
Function NoAleatorio(inicio, fin)
Randomize()
NoAleatorio = Int((fin - inicio + 1) * Rnd + inicio)
End Function
 
Response.Write "SACAR REGISTROS ALEATORIAMENTE<br /><br />"
 
'Numero de registros que devolveremos del recordset
recNo = 3
 
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./Prueba.mdb")&";" 
SQL = "SELECT TOP " & recNo &" id, referencia, nombre, tamano FROM tabla5 ORDER BY " & NoAleatorio(1,4) &""
 
'---Debug-----
'Response.Write(SQL)
'Response.End()
'-------------
 
 
set rs = oConn.Execute(SQL)
registros = rs.GetRows
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
 
 
For i = 0 To UBound(registros,2) 
Response.Write registros(0,i)  &" - " & registros(1,i)  &" - " & registros(2,i)  &" - " & registros(3,i) & "<br />"
Next
%>

Nota; Fíjate en esto NoAleatorio(1,4). En este caso obcila en el 1 y el 4 por que son el número de campos que he seleccionado. Si en tu caso seleccionas 7 campos, entonces sería NoAleatorio(1,7)

Suerte

engonga · #14 (**permalink**) 12/11/2009, 06:58

lo tengo asi

Código HTML:

<%
Function NoAleatorio(inicio, fin)
Randomize()
NoAleatorio = Int((fin - inicio + 1) * Rnd + inicio)
End Function
 
Response.Write "SACAR REGISTROS ALEATORIAMENTE<br /><br /><br />"
 
'Numero de registros que devolveremos del recordset
recNo = 2
 
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("datos/hotel_en_baqueira.mdb")&";" 
SQL = "SELECT TOP " & recNo &" id, nombre, localidad FROM restaurantes where destacado = 1 ORDER BY " & NoAleatorio(1,3) &""
 
'---Debug-----
'Response.Write(SQL)
'Response.End()
'-------------
 
 
set rs = oConn.Execute(SQL)
registros = rs.GetRows
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
 
 
For i = 0 To UBound(registros,2) 
Response.Write registros(0,i)  &" - " & registros(1,i)  &" - " & registros(2,i)  &" - <br />"
Next
%>

donde resgistros destacados tengo 4 y solo me muestra los dos primeros

Adler · #15 (**permalink**) 12/11/2009, 07:24

Hola

Cita:

'Numero de registros que devolveremos del recordset
recNo = 2

Cámbialo por el número de registros que quieres que se impriman

Suerte

engonga · #16 (**permalink**) 12/11/2009, 07:33

no si ya lo entiendo

pero si de registros como destacados tengo 4 y le pogno renNo = 2 me tendria que ir mostrando dos registros aleatoriamente de los 4 no?

solo me muestra los 2 primeros de la consulta

Adler · #17 (**permalink**) 13/11/2009, 07:56

Hola

Probablemente el problema esté en los datos que tienen esos campos. Esta función NoAleatorio(1,3) lo que hace es ordenar los registros devueltos por el campo 1, 2 o 3.

Te pongo un ejemplo

Cita:

Id --------- Nombre ----------- Localidad -------- destacados
1 ---------- Juan --------------- Fregenal --------- 1
2 ---------- Pedro ------------- Badajoz -----------1
3 --------- Javier -------------- Mérida -------------1
4 --------- Nicolás ------------ Sevilla --------------1

Si los ordena por el primer campo (Id) dará como resultado 1,2
Si los ordena por el segundo campo (Nombre): 3,1
Si los ordena por el tercer campo (Localidad): 2,1

Suerte

engonga · #18 (**permalink**) 13/11/2009, 10:00

entonces no le veo solución

Adler · #19 (**permalink**) 13/11/2009, 12:58

Hola

Cita:

Iniciado por ^engonga^

entonces no le veo solución

Muéstranos los datos de los campos, a ver si entre todos somos capaces de lograr una solución

Suerte

jochesfor · #20 (**permalink**) 18/11/2009, 09:08

[fer]_[123] Chequea esto tal vez te sirva. soloasp.com.ar/vereje.asp?eje=17

engonga · #21 (**permalink**) 18/11/2009, 09:27

Cita:

[fer]_[123] Chequea esto tal vez te sirva. soloasp.com.ar/vereje.asp?eje=17

ok

puede funcionar ahora voy un poco liado pero lo probaré

pero no se como hacer que no me muestr un solo registro si no que me muestre 10...

jochesfor · #22 (**permalink**) 18/11/2009, 09:35

Busca paginacion de resultados y agregale ese codigo al ejemplo que puse arriba, debe funcionar.

Myakire · #23 (**permalink**) 18/11/2009, 12:29

A ver ......

Ya mezclaste un mismo problema en dos post distintos

Yo quisiera saber qué problema específico haz tenido en implementar un uso de RAND() en el order by como ya se te había sugerido.

Edito
Solo por curiosidad "googlie" un rato y encontré esto:

http://www.mvps.org/access/queries/qry0011.htm
http://www.ofzenandcomputing.com/zanswers/1101
http://support.microsoft.com/kb/287682
http://databases.aspfaq.com/database...om-record.html
http://www.vclcomponents.com/s/0__/s..._vb_via_access

Saludos

Wasper · #24 (**permalink**) 18/11/2009, 12:51

Código:

Dim totalRegistros, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12
f1 = RandomNumber(1, totalRegistros)
f2 = RandomNumber(1, totalRegistros)
f3 = RandomNumber(1, totalRegistros)
f4 = RandomNumber(1, totalRegistros)
f5 = RandomNumber(1, totalRegistros)
f6 = RandomNumber(1, totalRegistros)
f7 = RandomNumber(1, totalRegistros)
f8 = RandomNumber(1, totalRegistros)
f9 = RandomNumber(1, totalRegistros)
f10 = RandomNumber(1, totalRegistros)
f11 = RandomNumber(1, totalRegistros)
f12 = RandomNumber(1, totalRegistros)
sql = "SELECT * FROM tutabla WHERE id in(" & f1 & "," & f2 & "," & f3 & "," & f4 & "," & f5 & "," & f6 & "," & f7 & "," & f8 & "," & f9 & "," & f10 & "," & f11 & "," & f12 & ")"' & Request.QueryString("id")
Set result = con.Execute(sql)

Quizas esto te sirva... tal vez sea un poco bestia, pero asi de pronto se me ocurre esto...

Saludos, Jose