USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página