Consultar DATA no BD????

lparrillo · Julho 14, 2004

Olá a todos,Preciso consultar uma data somente pelo ano da mesma. Por exemplo: No site vai ter uma opção de consulta e embaixo terá duas opções em radiobox:2003e2004assim quando ele apertar consultar deveria trazer os resultados do respectivo ano..Porém meu problema é que no BD Access, a data esta no formato 02/04/03.Oq eu queria é saber como fazer uma comparação para que o valor do RADIOBOX que será 03 ou 04, compare somente com os dois ultimos caracteres do BD. ALguem poderia me ensinar como fazer isso...?Obrigado

Vagabondis · Julho 14, 2004

Bom,

If Request.QueryString("ComboBox")=1 Then

ConnBanco.Execute("SELECT * FROM TABELA WHERE DATEPART (yy,CampoData)=2003")

ElseIf Request.QueryString("ComboBox")=2 Then

ConnBanco.Execute("SELECT * FROM TABELA WHERE DATEPART (yy,CampoData)=2004")

End If

Eu teste aqui em um Banco de Dados do SQL. Não tenho certeza se no seu Access vai funcionar. Testa ai e depois fala pra nóis!

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

WLJ · Julho 14, 2004

Olá a todos,Preciso consultar uma data somente pelo ano da mesma. Por exemplo: No site vai ter uma opção de consulta e embaixo terá duas opções em radiobox:2003e2004assim quando ele apertar consultar deveria trazer os resultados do respectivo ano..Porém meu problema é que no BD Access, a data esta no formato 02/04/03.Oq eu queria é saber como fazer uma comparação para que o valor do RADIOBOX que será 03 ou 04, compare somente com os dois ultimos caracteres do BD. ALguem poderia me ensinar como fazer isso...?Obrigado

(Access)Tenta assim...ano=Request("ano")str_sql="SELECT campos FROM tabela WHERE Year(campo_data)=#"& ano &"#"

lparrillo · Julho 14, 2004

(Access)

Tenta assim...

ano=Request("ano")

str_sql="SELECT campos FROM tabela WHERE Year(campo_data)=#"& ano &"#"

<% Vcodpagina = 115 %>

<html>

<head>

content="text/html; charset=iso-8859-1">

</head>

<%

vAreaAvaliada = Request.QueryString("depto_avaliado")

%>

<h4 align="center">Lista de Avaliações Cliente Interno</h4>

<tr>

<td>Área Avaliada :  </td>

</tr>

<tr>

<td><INPUT TYPE="radio" NAME="ano" VALUE="03">Consulta Ano 2003</td>

</tr>

<tr>

<TD><INPUT TYPE="radio" NAME="ano" VALUE="04">Consulta Ano 2004</TD>

</tr>

</table>

</center></div><p align="center"><input type="submit"

value="Pesquisar"> </p>

</form>

<p><br>

<%

On error resume Next

SET con = SERVER.CreateObject("ADODB.Connection")

SET rs = SERVER.CreateObject("ADODB.Recordset")

con.OPEN "Provider=Microsoft.JET.OLEDB.4.0; Data Source = " & SERVER.Mappath("../database/avaliacao.mdb")

if vAreaAvaliada = "Selecione Área Avaliada" then

sql = "SELECT * FROM tb_avaliacoes_ci order by Area_Avaliada"

else

sql = "SELECT * FROM tb_avaliacoes_ci WHERE Area_Avaliada = '" & vAreaAvaliada & "' order by Area_Avaliada"

end if

rs.OPEN sql, con, 1, 1

total = rs.recordcount-1

%></p>

<% if total = -1 then

Response.write "Não Existe Avaliações até o momento"

End if

%>

</p>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

bordercolor="#790000" style="border-collapse: collapse"

id="AutoNumber1">

<tr>

<td width="30%">Área Avaliada</td>

<td width="30%">Área Avaliadora</td>

<td width="20%">(Média)</td>

</tr>

<%

FOR i = 0 TO total

%> <tr>

<td><img src="../imagens/spacer.gif" width="1" height="1"><%response.write (rs("Area_Avaliada"))%> <img

src="../imagens/spacer.gif" width="1" height="1"></td>

<td><img src="../imagens/spacer.gif" width="1" height="1"><%response.write (rs("Area_Avaliadora"))%><img

src="../imagens/spacer.gif" width="1" height="1"> </td>

<td><center><img src="../imagens/spacer.gif" width="1" height="1"><%response.write(formatNumber((rs("nota1")+rs("nota2")+rs("nota3")+rs("nota4")+rs("nota5")+rs("nota6")+rs("nota7")+rs("nota8")+rs("nota9")+rs("nota10"))/10,2))%> <img

src="../imagens/spacer.gif" width="1" height="1"></center></td>

<td><img src="../imagens/spacer.gif" width="1" height="1"><%response.write (rs("dt_avaliacao"))%> <img

src="../imagens/spacer.gif" width="1" height="1"></td>

</tr>

<%

rs.movenext

</center></div><% Response.write "Registros encontrados : " & total + 1 %>

<p><br>

<br>

</p>

</body>

</html>

OBS: Lembrando que o campo do BD Access que tem a data é dt_avaliacao. Como deve ficar este código.. depois depronto. o arquivo chama-se relatorio1.asp. A data esta no seguinte formato: 03/07/04

Obrigado

WLJ · Julho 14, 2004

SET con = SERVER.CreateObject("ADODB.Connection")SET rs = SERVER.CreateObject("ADODB.Recordset")con.OPEN "Provider=Microsoft.JET.OLEDB.4.0; Data Source = " & SERVER.Mappath("../database/avaliacao.mdb")if vAreaAvaliada = "Selecione Área Avaliada" thensql = "SELECT * FROM tb_avaliacoes_ci order by Area_Avaliada"elseano=Request.Querystring("ano")sql = "SELECT * FROM tb_avaliacoes_ci WHERE Area_Avaliada = '"& vAreaAvaliada & "' AND Year(dt_avaliacao)=#"& ano &"# order by Area_Avaliada" end if

lparrillo · Julho 14, 2004

(Access)

Tenta assim...

ano=Request("ano")

str_sql="SELECT campos FROM tabela WHERE Year(campo_data)=#"& ano &"#"

Não consegui fazer isso. Aqui vai o código da minha página ASP, relatorio1.asp:

<% Vcodpagina = 115 %>

<html>

<head>

content="text/html; charset=iso-8859-1">

</head>

<%

vAreaAvaliada = Request.QueryString("depto_avaliado")

%>

<h4 align="center">Lista de Avaliações Cliente Interno</h4>

<tr>

<td>Área Avaliada :  </td>

</tr>

<tr>

<td><INPUT TYPE="radio" NAME="ano" VALUE="03">Consulta Ano 2003</td>

</tr>

<tr>

<TD><INPUT TYPE="radio" NAME="ano" VALUE="04">Consulta Ano 2004</TD>

</tr>

</table>

</center></div><p align="center"><input type="submit"

value="Pesquisar"> </p>

</form>

<p><br>

<%

On error resume Next

SET con = SERVER.CreateObject("ADODB.Connection")

SET rs = SERVER.CreateObject("ADODB.Recordset")

con.OPEN "Provider=Microsoft.JET.OLEDB.4.0; Data Source = " & SERVER.Mappath("../database/avaliacao.mdb")

if vAreaAvaliada = "Selecione Área Avaliada" then

sql = "SELECT * FROM tb_avaliacoes_ci order by Area_Avaliada"

else

sql = "SELECT * FROM tb_avaliacoes_ci WHERE Area_Avaliada = '" & vAreaAvaliada & "' order by Area_Avaliada"

end if

rs.OPEN sql, con, 1, 1

total = rs.recordcount-1

%></p>

<% if total = -1 then

Response.write "Não Existe Avaliações até o momento"

End if

%>

</p>

<table border="1" cellpadding="0" cellspacing="0" width="100%"

bordercolor="#790000" style="border-collapse: collapse"

id="AutoNumber1">

<tr>

<td width="30%">Área Avaliada</td>

<td width="30%">Área Avaliadora</td>

<td width="20%">(Média)</td>

</tr>

<%

FOR i = 0 TO total

%> <tr>

<td><img src="../imagens/spacer.gif" width="1" height="1"><%response.write (rs("Area_Avaliada"))%> <img

src="../imagens/spacer.gif" width="1" height="1"></td>

<td><img src="../imagens/spacer.gif" width="1" height="1"><%response.write (rs("Area_Avaliadora"))%><img

src="../imagens/spacer.gif" width="1" height="1"> </td>

<td><center><img src="../imagens/spacer.gif" width="1" height="1"><%response.write(formatNumber((rs("nota1")+rs("nota2")+rs("nota3")+rs("nota4")+rs("nota5")+rs("nota6")+rs("nota7")+rs("nota8")+rs("nota9")+rs("nota10"))/10,2))%> <img

src="../imagens/spacer.gif" width="1" height="1"></center></td>

<td><img src="../imagens/spacer.gif" width="1" height="1"><%response.write (rs("dt_avaliacao"))%> <img

src="../imagens/spacer.gif" width="1" height="1"></td>

</tr>

<%

rs.movenext

</center></div><% Response.write "Registros encontrados : " & total + 1 %>

<p><br>

<br>

</p>

</body>

</html>

OBS: Lembrando que o campo do BD Access que tem a data é dt_avaliacao. Como deve ficar este código.. depois depronto. o arquivo chama-se relatorio1.asp. A data esta no seguinte formato: 03/07/04

Obrigado

lparrillo · Julho 14, 2004

SET con = SERVER.CreateObject("ADODB.Connection")

SET rs = SERVER.CreateObject("ADODB.Recordset")

con.OPEN "Provider=Microsoft.JET.OLEDB.4.0; Data Source = " & SERVER.Mappath("../database/avaliacao.mdb")

if vAreaAvaliada = "Selecione Área Avaliada" then

sql = "SELECT * FROM tb_avaliacoes_ci order by Area_Avaliada"

else

ano=Request.Querystring("ano")

sql = "SELECT * FROM tb_avaliacoes_ci WHERE Area_Avaliada = '"& vAreaAvaliada & "' AND Year(dt_avaliacao)=#"& ano &"# order by Area_Avaliada"

end if

Cara, não funcionou... Não deu erro.. mais independente da opção que eu escolher .. 2003 ou 2004 ele me acha 14 registros.. e imprime somente as linhas da tabela.. Somente os riscos..

Porém, no ano de 2004 tem somente 1 registro.

Oq será que ta pegando?

Eu fiz da seguinte forma:

SET con = SERVER.CreateObject("ADODB.Connection")

SET rs = SERVER.CreateObject("ADODB.Recordset")

con.OPEN "Provider=Microsoft.JET.OLEDB.4.0; Data Source = " & SERVER.Mappath("../database/avaliacao.mdb")

if vAreaAvaliada = "Selecione Área Avaliada" then

ano=Request.Querystring("ano")

sql = "SELECT * FROM tb_avaliacoes_ci WHERE Year(dt_avaliacao)=#"& ano &"# order by Area_Avaliada"

else

sql = "SELECT * FROM tb_avaliacoes_ci WHERE Area_Avaliada = '" & vAreaAvaliada & "' order by Area_Avaliada"

end if

Vagabondis · Julho 15, 2004

Você tentou fazer a pesquisa com o código que eu citei? :unsure:

lparrillo · Julho 15, 2004

Tentei sim.. mais não deu certo...

Arquivado

Consultar DATA no BD????

Recommended Posts

lparrillo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagabondis 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

WLJ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lparrillo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

WLJ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lparrillo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lparrillo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagabondis 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lparrillo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante