Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Como faço para mostrar algo da minha base de dados de forma aleatória.
Tentei e não deu certo!!!
manda o que aconteceu.......pq eu fiz esse codigo em um site e funcionou
Deu este erroMicrosoft VBScript runtime error '800a01a8' Object required: '' /internacional/coord/teste/index.asp, line 15 O codigo usado foi:<%Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "DRIVER={Microsoft Access Driver (.mdb)}; DBQ="& Server.MapPath("frase.mdb") & ";"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1)set tabela = db.Execute("select from frases where Código="&id_tabela)do while tabela.EOFRandomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1)set tabela = db.Execute("select * from frases where Código="&id_tabela)if not tabela.EOF then exit doloop%><%if not tabela.EOF thenreponse.write(frase)end if %>
ele tah dando o erro por causa do nome do seu objeto de conexao ao banco.o seu objeto eh 'CONEXAO'no meu codigo eu usei 'DB'eh soh você substituir que beleza...
Alterei:<%Set db = Server.CreateObject("ADODB.Connection")db.Open "DRIVER={Microsoft Access Driver (.mdb)}; DBQ="& Server.MapPath("frase.mdb") & ";"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1)set tabela = db.Execute("select from frases where Código="&id_tabela)do while tabela.EOFRandomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1)set tabela = db.Execute("select * from frases where Código="&id_tabela)if not tabela.EOF then exit doloop%><%if not tabela.EOF thenResponse.Write bd("frase")end if %></body></html> ainda não deu certo!!!Deu erro!!Microsoft VBScript runtime error '800a000d' Type mismatch: 'bd' /internacional/coord/teste/index.asp, line 27
olha nessa linha:<%if not tabela.EOF then Response.Write bd("frase") '<<<<<<<< end if %>você tem que exibir algum campo da sua tabelatipo assim:response.write tabela("Código")
Deu certo!Agora estou tentando colocar que aparecam uma quantidade pre definida.Obrigado!!!
Alguem pode me ajudar!!!! :)
nao entendi muito bem...mas acho que deve estar querendo mostrar, por exemplo, apenas 10 registros....se for, tenta isso:tabela.CacheSize = 10tabela.PageSize = 10
Porque este modelo que você fez me mostra somente um registro, eu queria mostrar 10 registros ao mesmo tempo de forma aleatória!!!
<%set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1)set tabela = db.Execute("select from frases where Código="&id_tabela)do while tabela.EOFRandomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1)set tabela = db.Execute("select from frases where Código="&id_tabela)if not tabela.EOF then exit doloop%><%Do while not tabela.eof%> <table width="100" border="0"> <tr> <td><%response.write tabela("frase")%></td> </tr></table> <%tabela.movenext loop%></body></html>Sei que estou pedindo ajuda de mais, mas aonde eu vou inserir este coddigo que você disse!!!
Para isso voc~e deverá fazer uma páginação dos seus dados.... :) :) :) :) :)
:huh: Como assim!!
tenta isso:<%set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1)i=0set tabela = db.Execute("select from frases where Código="&id_tabela)do while tabela.EOF Randomize id_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1) set tabela = db.Execute("select from frases where Código="&id_tabela) if not tabela.EOF then Response.Write tabela("Código")&"<br>" i=i+1 end if if i=10 then exit doloop%>
Usei o código acima mas não apareceu os dados em minha tela alguem pode me ajudar!!!!
Preciso de ajuda!!!!!
aqui ele procura por um id valido aleatoriamente e faz o selecttenta ai:set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(id_tabela) from tabela").fields(0).value Rnd) + 1) set tabela = db.Execute("select from tabela where id_tabela="&id_tabela)do while tabela.EOF Randomize id_tabela = Int((db.Execute("select max(id_tabela) from tabela").fields(0).value Rnd) + 1) set tabela = db.Execute("select from tabela where id_tabela="&id_tabela) if not tabela.EOF then exit doloopif not tabela.EOF then '-------------------- 'codigo para mostrar o conteudo '--------------------end if