O QUE HÁ DE NOVO

Aniversáriantes do Mês

Alexandre de Luccia por Alexandre de Luccia Programação
Vou mostrar um exemplo simples em banco de dados access para consulta de aniversáriantes do mês. Vamos começar:

Criar um banco de dados com o nome: data.mdb;
Criar uma tabela com um nome escolhido por você;

Vamos criar 3 campos:
1º campo: data_nasc , tipo: Data/hora;
2º campo: nome, tipo: texto;
3º campo: email, tipo: texto.

Após isso crie uma página com o seguinte código:

Nome página: default.asp

<%
Session.LCID = 1046

'Tratando mês e dia da semana
Function ExibeData(data)  
  mes = Month(data)  
  Select Case mes  
  Case 1 : mes = "Janeiro"  
  Case 2 : mes = "Fevereiro"  
  Case 3 : mes = "Março"  
  Case 4 : mes = "Abril"  
  Case 5 : mes = "Maio"  
  Case 6 : mes = "Junho"  
  Case 7 : mes = "Julho"  
  Case 8 : mes = "Agosto"  
  Case 9 : mes = "Setembro"  
  Case 10 : mes = "Outubro"  
  Case 11 : mes = "Novembro"  
  Case 12 : mes = "Dezembro"  
  End Select  
  ExibeData = mes  
End Function  

data_hoje  = date()                          ' Aqui pega a data do dia atual   = 07/05/06
mes = right((left((data_hoje),5)),2)         ' Aqui pega os valores do mes =      05

'Pegando valores do seu banco e fazendo a consulta.
strCon = "DBQ=c:caminho_rededata.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Set objRSm = Server.CreateObject("ADODB.Recordset")
objRSm.CursorLocation = 3
objRSm.CursorType = 0
objRSm.LockType = 1

'Consulta no banco de dados
strSQL = "Select  *  from NOME_TABELA WHERE right((left((data_nasc),5)),2) = '" & mes & "' order by data_nasc DESC"

objRSm.Open strSQL, strCon
%>


  
    
  
  <%
If not objRS.EOF then
objRS.MoveFirst
While Not objRS.EOF
%>
  
<% ' tratando valores para exibição das datas %>
    
  
  <%
objRSm.MoveNext
Wend
Else
%>
Mês sem aniversariantes.
<%
End If
'**** Fim exibindo datas de aniversários ****
%>
Aniversariantes / <%Response.Write(ExibeData(now()))%>
" title="Mande sua mensagem!"><%=Left(objRS("nome"),27)%> - <%=Replace(Left(objRS("data_nasc"),4),"/", ".")%>

<%objRSm.close%>


Espero que seja util para vocês, lembrando que esse exemplo pode ser usando em diversas coisas, exemplos:

Prato do mês, Notícias do Mês e etc...
Já que sempre fazem consultas monstrando notícias do dia.

Qualquer dúvida entre em contato comigo deixando um comentário.

Abraços!


Alexandre de Luccia

Recomendado
Assuntos
Siga nas redes
Encontrou algum erro no texto?

Entre em contato com o autor e nos ajude a melhorar a qualidade dos posts cada vez mais!

AVISAR
Comentários
Últimas publicaçõesver tudo
ASSINE NOSSA NEWSLETTER

Não perca nenhuma novidade do mundo da tecnologia.