Publicado em 22 de mai.

Porque não da certo!!!

Usei o código abaixo para mostrar na tela dados aleatoriamente da minha tabela só que mostra de forma aleatoria somente uma vez eu queria que fosse uma quantidade pré definida como dez dados da minha base de dados.<%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%><%Do while not tabela.eof%> <table width="100" border="0"> <tr> <td><%response.write tabela("frase")%></td> </tr></table> <%tabela.movenext loop%></body></html>

Discussão (23)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

brunofilhorj· 22 de mai.

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)if not tabela.EOF then exit doloop

esse IF NOT TABELA.EOF está fazendo você sair do loop. Tanta somenteIF TABELA.EOF e vê se resolve o seu problema...

Johnny_DF· 22 de mai.

Tirei e continuou dando o mesmo erro!!!

Johnny_DF· 22 de mai.

Acontece a mesma coisa. Mostra somente um dado da minha tabela eu queria que mostrasse 10 dados ao mesmo tempo de forma aleatoria!!!

brunofilhorj· 22 de mai.

<body><%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 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.movenextloop

copia o quote e diz o que deu...

Johnny_DF· 22 de mai.

Só mostra um dado da minha tabela!!!

brunofilhorj· 22 de mai.

do while tabela.EOF <<<substitua o código do quote que postei nessa linha:DO WHILE NOT TABELA.EOFo que acontece: faça enquanto tiver registros...

Engespro· 22 de mai.

Tente isso<table width="100" border="0"><tr><%Do while not 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 tabela.EOF then exit do end ifResponse.write"<td>"& tabela("frase") &"</td>"loop%></tr></table> Valeu?

Johnny_DF· 22 de mai.

Deu certo. Só que este randomize está repetindo os dados da minha tabela e eles teriam que ser diferente.

Engespro· 22 de mai.

Tente isso<table width="100" border="0"><tr><%x=1Do while not tabela.eofif x= 10 then exit do end ifRandomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)tabela.moveabsolut(id_tabela)if tabela.EOF then exit do end ifResponse.write"<td>"& tabela("frase") &"</td>"x=x+1loop%></tr></table> Valeu?

kenew· 22 de mai.

Eae gente boa .. beleza Vendo este codigo do Johnny ... vi q preciso de algo parecido então gostaria de saber para que serve o commando "Randomize" sozinho logo abaixo do RecordSet e o command "rnd" o q faz ?Obrigado pelas dicas

Engespro· 22 de mai.

Eae gente boa .. beleza Vendo este codigo do Johnny ... vi q preciso de algo parecido então gostaria de saber para que serve o commando "Randomize" sozinho logo abaixo do RecordSet e o command "rnd" o q faz ?Obrigado pelas dicas

O "RANDOMIZE" inicia o gerador de num aleatórios, e o rnd é sua chamada, a sintaxe é a sequinte:(numrnd)+1 onde "num" é o valor máximo gerado pelo random.Espero ter ajudado a esclarecer sua duvida..Valeu? :blink:

Johnny_DF· 22 de mai.

Olha ainda não deu certo!!!!

Engespro· 22 de mai.

Olha ainda não deu certo!!!!

O que houve agora? :P

Johnny_DF· 22 de mai.

Acho que não colei na parte do meu codigo certo, ande devo colar isto que você me informou?

kenew· 22 de mai.

Valeu Engespro ... exclareceu minha duvido com certeza ... !!!Ae Johnny ... eu fiz uns teste com este comando para ver como funcione ... e não repetiu não quer dizer ... as vezes ele repete um numero o ou outro mas de 100 somente 1 vez repetiu um numero...você já tentou fazer isso<table width="100" border="0"><tr><%x=1Do while not tabela.eof or x <= 10 Randomize nTotal_Reg = (db.Execute("select count() from frases").fields(0).value id_tabela = Int( nTotal_Reg Rnd) + 1) if id_tabela > nTotal_Reg Then exit do End if tabela.moveabsolut(id_tabela) Response.write"<td>"& tabela("frase") &"</td>"loop%></tr></table> Pronto ... espero ter ajudado tambem ..... hehehehe

Engespro· 22 de mai.

<%Set db = Server.CreateObject("ADODB.Connection")db.Open "DRIVER={Microsoft Access Driver (.mdb)}; DBQ="& Server.MapPath("frase.mdb") & ";"set tabela = server.CreateObject ("ADODB.Recordset")tabela.Open "frases",bd_db,adOpenDynamic,adLockOptimistic%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><table width="100" border="0"><tr><%x=1Do while not tabela.eofif x= 10 then exit do end ifRandomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value Rnd) + 1)tabela.moveabsolut(id_tabela)if tabela.EOF then exit do end ifResponse.write"<td>"& tabela("frase") &"</td>"x=x+1loop%></tr></table> </html>Acho que é esse o código :P

Johnny_DF· 22 de mai.

ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /internacional/coord/tempjohnny/teste2.asp, line 7 rodei e deu esse erro!!!

Engespro· 22 de mai.

tabela.Open "frases",bd_db,adOpenDynamic,adLockOptimisticErrinho bobo essa linha é assim:tabela.Open "frases",db,adOpenDynamic,adLockOptimistic

kenew· 22 de mai.

set tabela = server.CreateObject ("ADODB.Recordset")tabela.Open "frases",bd_db,adOpenDynamic,adLockOptimistic%>

Não é por nada mas acho q o erro esta neste "bd_db" ... coloque somente db !!! T+

Johnny_DF· 22 de mai.

kenew· 22 de mai.

Ae Johnny abrir o arquivo com RecorSet é mais usado para manutenção do bando de dados .... ------------------------------------------------<%Set db = Server.CreateObject("ADODB.Connection")db.Open "DRIVER={Microsoft Access Driver (.mdb)}; DBQ="& Server.MapPath("frase.mdb") & ";"Set tabela = db.execute( "Select from frases")%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><table width="100" border="0"><tr><%x=1Do while not tabela.eof and x <= 10Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)tabela.moveabsolut(id_tabela)if tabela.EOF then exit do end ifResponse.write"<td>"& tabela("frase") &"</td>"x=x+1loop%></tr></table> </html>tenta ai mano e fala se deu certo ou deu pau !!!!!!

Johnny_DF· 22 de mai.

Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'moveabsolut' /internacional/coord/tempjohnny/teste2.asp, line 22 deu esse erro!!!

kenew· 22 de mai.

Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'moveabsolut' /internacional/coord/tempjohnny/teste2.asp, line 22 deu esse erro!!!

Eu não manjo muito e não conheço este comando então usa assim:tabela.move id_tabelaT+