Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal agradeço a quem puder me ajudar, ja tentei varias formas mais
não consegui, gostaria de colocar no cód. abaixo a função randomize
para exibir registros aleatorios sem repeti-los
no exemplo abaixo esta listando 5 registros por vez
agradeço muito a ajuda de vcs
obrigado
<html>
<head>
<title> Listando Itens de uma Tabela </title>
</head>
<body bgcolor="#DE9BFF">
<% Dim nome_carta
Set Conexao = Server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("adodb.recordset")
dbPath = "DBQ=" & Server.Mappath("dados/banco_taro.mdb")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & dbPath
PESQUISAR = "SELECT * FROM tabela"
Set RecSet=Conexao.Execute(PESQUISAR)
Dim Repeat1__numRows
Repeat1__numRows = 5
Dim Repeat1__index
Repeat1__index = 0
RecSet_numRows = RecSet_numRows + Repeat1__numRows
%> <%IF RecSet.EOF then %>
( Banco de Dados vazio!!! )
<% else %>
<table border=1 width="100%" cellpadding="0"> <tr>
<% num = 0
While ((Repeat1__numRows <> 0) AND (NOT RecSet.EOF))
%>
<td width="10%" height="15">
Cod. <%=RecSet("nome_carta")%> </td>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RecSet.MoveNext()
num = num + 1
if num mod 3 = 0 then response.write "</tr><tr>"
Wend
%>
</tr>
<%RecSet.Movenext%>
</table>
<%end if%>
<%conexao.close %>
</body>
</html>Agradeço sua resposta, mais já tentei e não rodou
mesmo assim obrigado
>
não sei se no access pode fazer isso, mas eu acho que um order by rand() resvole /applications/core/interface/imageproxy/imageproxy.php?img=http://forum.imasters.com.br/public/style_emoticons/default/biggrin.gif&key=cb0fdb2382312b39ddcb15831fcae62157015f17d2417528782628663387e929" alt="Imagem Postada" />
sql="select from tabela order by RND(INT(NOWid)-NOW*id)"
Uma simples busca de meio minuto sanaria sua dúvida....
>
Agradeço sua resposta, mais já tentei e não rodou
mesmo assim obrigado
>
não sei se no access pode fazer isso, mas eu acho que um order by rand() resvole /applications/core/interface/imageproxy/imageproxy.php?img=http://forum.imasters.com.br/public/style_emoticons/default/biggrin.gif&key=cb0fdb2382312b39ddcb15831fcae62157015f17d2417528782628663387e929" alt="Imagem Postada" />
Muito bom mesmo obrigado
resolvido
>
sql="select from tabela order by RND(INT(NOWid)-NOW*id)"
Uma simples busca de meio minuto sanaria sua dúvida....
e se os ids do banco fossem assim:
2
5
10
13
14
15
23
funcionaria do mesmo jeito?
Sim
olha este exemplo
SELECT FROM tabela order by Rnd(Int(Now()[ID])-Now()*[ID]);
não sei se no access pode fazer isso, mas eu acho que um order by rand() resvole :D