sacar registros de bd
igdepaz
29 de Julio del 2003
El codigo que os mando saca las preguntas y sus respuestas de una base de datos.Lo que me gustaria saber es donde tengo que poner las lineas de codigo que tienen un numero a la izqda(esto es para identificarlas mejor) para que me salgan las preguntas aleatoriamente y no simpre en el mismo orden.Esto lo voy a usar para por ejemplo una base de datos con 50 preguntas, que cada vez que te conectes te salgan 10 diferentes.
Espero haberme explicado mejor.
Un saludo y muchas gracias.
<!-- #include file="adovbs.inc" -->
<%
dim Conn, Rs,SQL, Rs2
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=prueba"
set Rs=Server.CreateObject("ADODB.Recordset")'Este recordset sera para la Tabla Preguntas
SQL="Select * From Preguntas"
Rs.Open SQL, Conn
1)Dim rndMax 'Creo la variable que contendra el limite superior
2)rndMax=CInt(Rs.RecordCount) 'Al limite superior le asigno el valor del total de los registros que hay en Preguntas
3)Rs.MoveFirst 'Nos colocamos en el primer registro
4)Dim rndNumber 'Creo una variable para el numero aleatorio que estará entre el liminf y el limsup
5)rndNumber=Int((rndMax - 1) * rnd + 1) 'Al numero aleatorio le asigno el valor: (limsup-liminferior +1)* rnd +liminferior
6)Rs.Move rndNumber Nos movemos al registro que indica el numero aleatorio
%>
<html>
<TITLE> Formulario</TITLE>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<form method="POST" action="ResultadosForm.asp" name="formExam">
<% Do while Not Rs.Eof
'seleccionamos la pregunta
Response.Write Rs("preguntas")'Escribo la pregunta 1%>
<%
set Rs2=Server.CreateObject("ADODB.Recordset") 'Este recordset es para las respuestas
SQL="SELECT * FROM Respuestas WHERE idq=" & Rs("idq")
Rs2.Open SQL, Conn
'mostramos las diferentes respuestas por idq
Do While Not Rs2.Eof %>
<p>
<% num=Rs("idq")& Rs2("idr")%>
<input type="radio" value="<%=num%>"
name="Pregunta<%=Rs("idq")%>">
<%=Rs2("respuestas")%>
</p>
<%
Rs2.MoveNext
Loop 'del segundo while
Rs2.Close
set rs2 = nothing
%>
<%
Rs.MoveNext
Loop 'del primer while
'descargamos los objetos y cerramos la bd
Rs.Close
SET rs = nothing
Conn.Close
%>
Espero haberme explicado mejor.
Un saludo y muchas gracias.
<!-- #include file="adovbs.inc" -->
<%
dim Conn, Rs,SQL, Rs2
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=prueba"
set Rs=Server.CreateObject("ADODB.Recordset")'Este recordset sera para la Tabla Preguntas
SQL="Select * From Preguntas"
Rs.Open SQL, Conn
1)Dim rndMax 'Creo la variable que contendra el limite superior
2)rndMax=CInt(Rs.RecordCount) 'Al limite superior le asigno el valor del total de los registros que hay en Preguntas
3)Rs.MoveFirst 'Nos colocamos en el primer registro
4)Dim rndNumber 'Creo una variable para el numero aleatorio que estará entre el liminf y el limsup
5)rndNumber=Int((rndMax - 1) * rnd + 1) 'Al numero aleatorio le asigno el valor: (limsup-liminferior +1)* rnd +liminferior
6)Rs.Move rndNumber Nos movemos al registro que indica el numero aleatorio
%>
<html>
<TITLE> Formulario</TITLE>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<form method="POST" action="ResultadosForm.asp" name="formExam">
<% Do while Not Rs.Eof
'seleccionamos la pregunta
Response.Write Rs("preguntas")'Escribo la pregunta 1%>
<%
set Rs2=Server.CreateObject("ADODB.Recordset") 'Este recordset es para las respuestas
SQL="SELECT * FROM Respuestas WHERE idq=" & Rs("idq")
Rs2.Open SQL, Conn
'mostramos las diferentes respuestas por idq
Do While Not Rs2.Eof %>
<p>
<% num=Rs("idq")& Rs2("idr")%>
<input type="radio" value="<%=num%>"
name="Pregunta<%=Rs("idq")%>">
<%=Rs2("respuestas")%>
</p>
<%
Rs2.MoveNext
Loop 'del segundo while
Rs2.Close
set rs2 = nothing
%>
<%
Rs.MoveNext
Loop 'del primer while
'descargamos los objetos y cerramos la bd
Rs.Close
SET rs = nothing
Conn.Close
%>
hollmanlp
29 de Julio del 2003
un tip.
utiliza la hora del sistema (hh-mm-ss)para sacar aleatoriamente los numeros.
utiliza la hora del sistema (hh-mm-ss)para sacar aleatoriamente los numeros.
jorge
29 de Julio del 2003
por favor enviame que es una llave primaria, manual de imformix 4gl todo sobre informix es que estoy estudiando lenguaje de programacion en el conalep de campeche !por favor¡
igdepaz
29 de Julio del 2003
explicate mejor porque no he entendido nada. A ver si te puedo echar una mano