Jump to content


Photo

[Resolvido] Imprimir Somente Os Dados Do Ano Atual


  • Faça o login para participar
2 replies to this topic

#1 Piano

Piano

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado

Posted 19/02/2010, 13:48

Olá,

Gostaria de saber como posso exibir dados de um banco de dados Access apenas do ano atual.

<% 
set conexao=server.CreateObject("Adodb.connection") 
set tabela=server.CreateObject("Adodb.recordset") 
dim banco 
banco="driver={driver do microsoft access (*.mdb)}; dbq="& server.MapPath ("bancod.mdb") 
conexao.open banco
dim sql, ano
ano = Year(now)
sql="SELECT * FROM cartas WHERE data LIKE '"& ano &"' ORDER BY codigo"
tabela.open sql,conexao,3,3
SetLocale("pt-br")
while not tabela.eof
  response.Write("<tr>") 
  response.write("<td align=center>" & tabela("Codigo"))
  response.Write("<td>" & tabela("Empresa"))
  response.Write("<td align=center>" & tabela("Receptor"))
  response.Write("<td>" & tabela("Assunto"))
  response.Write("<td align=center>" & tabela("Data"))
  response.Write("<td align=center>" & tabela("Pasta"))
  response.Write("<td>" & tabela("Por"))
  tabela.movenext
  response.Write("</tr>") 
wend
%>

Tentei implementar esse código, mas não mostra nenhum dado - apesar de existir dados de 2010.
Tirando o LIKE ele funciona normalmente, mas sem o filtro de ano.

Obrigado.

Edição feita por: Renan L. Queiroz, 19/02/2010, 15:52.


#2 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 19/02/2010, 14:35

Tenta assim:
sql="SELECT * FROM cartas WHERE data LIKE '%"& ano &"%' ORDER BY codigo"

Edição feita por: Renan L. Queiroz, 19/02/2010, 14:35.

  • Piano likes this

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#3 Piano

Piano

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado

Posted 19/02/2010, 15:41

Tenta assim:

sql="SELECT * FROM cartas WHERE data LIKE '%"& ano &"%' ORDER BY codigo"


Obrigado, funcionou! :D




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq