|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Como fazer o sorteio de um registro na tabela
|
 |
|
|
|
Postada em 9/10/2003 por ^HEAVY-METAL^
Muitas vezes necessitamos de exibir dados de um banco de dados de modo aleatório, ou seja, a cada visita ou a cada atualização da página, exibir dados diferentes.
Este artigo mostra um metodo muito simples para criarmos um script que faça isto
Método que será utilizado:
Primeiramente, vamos atraves de uma string de conexão SQL capturar apenas o número total de registros existentes em uma determinada tabela.
Depois, faremos um sorteio usando a instrução Random entre o número 1 e o número total de registros encontrados
Em seguida, iremos capturar todos os dados da tabela e exibir os campos desejados apenas do registro que fora sorteado anteriormente.
O código deste script segue abaixo e vem todo comentado:
'Criamos a conexão com o banco de dados
strCon = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\nome_do_banco_de_dados.mdb;"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open strCon
'Capturamos na tabela o número total de registros existentes
ComandoSQL = "SELECT COUNT(*) AS total_registro FROM nome_da_tabela"
Set bd = Conexao.Execute(ComandoSQL)
total_registros = bd("total_registro")
Set bd = Nothing
'Fazemos um sorteio com o número total de registros encontrados
randomize()
registro_sorteado = Int(total_registros *Rnd) + 1
'Capturamos todos os registros da tabela
ComandoSQL = "SELECT * FROM nome_da_tabela"
Set bd = Conexao.Execute(ComandoSQL)
'Se o registro sorteado não for o primeiro da tabela,
'movemos o cursor para o registro sorteado
If registro_sorteado > 1 Then
bd.Move registro_sorteado
End If
'Escrevemos na tela os campos desejados do registro encontrado
Response.Write bd("nome_do_campo")
'Fechamos a conexão com o banco de dados
Conexao.Close
'Eliminamos as variáveis usadas da memória
Set registro_sorteado = Nothing
Set bd = Nothing
Set Conexao = Nothing
Set ComandoSQL = Nothing
Não esqueça de colocar o código acime entre as tags <% e %>
Espero que você faça bom uso deste script
T+,
|
|
|
|
|
