Sistema de dicas aleatórias

Este aplicativo exige:

– Uma tabela chamada DicasAleatorias em um banco de
dados com um campo código e outro dicas
– O campo código, deve ser de númeral
apartir de 0 (zero)

Vamos ao código para selecionar a dica do dia
no banco de dados↳Banco de dados134 conteúdosSQL ou NoSQL: eis a questão!!Data · mar 2020Banco de dados: como organizar e dar segurança para milhões de dados de loteriasData · mai 20215 serviços gratuitos na cloud para bancos de dados PostgresData · fev 2025Ver tudo em Data →:

<%

‘ A linha abaixo é muito importante
‘ pois é necessário que o browser não armazene
‘ a página de dicas aleatórias no cache
Response.expires = 0

‘ Criando o objeto
Set objConn = Server.CreateObject("ADODB.Connection")

‘ Abrindo conexão com o banco de dados
objConn.Open "Provider=Microsoft.JET.OLEDB.4.0;
Data Source=" & Server.MapPath("tabela.mdb")
‘ String SQL para selecionar todos os campos da tabela
DicasAleatorias
strSQL = "SELECT * FROM DicasAleatorias"
‘ Criando o RecordSet
set objRS = Server.CreateObject("ADODB.RecordSet")
‘ Executando a strSQL com o RecordSet
objRS.Open strSQL, objConn, 3, ,adCmdText

‘ Vamos agora fazer um randomize apartir de
‘ todas as dicas cadastradas no BD
‘ Utilizaremos recordcount e faremos
‘ uma contagem no total de registros e
‘ pegar o número inteiro deste total
‘ aleatoriamente.
Randomize timer
‘ A variavel vai armazenar o número
‘ inteiro da dica selecionada
strDicaAleatoria = INT(RND * objRS.RecordCount)
‘ Fechamos o BD
objRS.Close

‘ Criaremos agora uma string SQL para selecionar
‘ a dica que foi escolhida aleatóriamente
strSQL = "SELECT * FROM DicasAleatorias WHERE Codigo
LIKE ‘"& strDicaAleatoria &"’"
‘ Executamos a string SQL apartir da instância do objeto
novamente
objRS.open strSQL, objConn
‘ Enfim, executamos um loop e mostramos a dica do dia!
while not objRS.EOF
response.write objRS("Dicas") & "<BR>"
objRS.MoveNext
Wend
set objRS = nothing
set objConn = nothing
%>