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.
