Ir para conteúdo
Fórum Script Brasil
  • 0

Problema Com Busca


ju_rezende

Pergunta

Estou com um problema em uma busca no meu banco tenho 2 campos o campo texto e o campo data(data/hora),

então precisava que no topo fosse mostrado somente o mês e ano correspondete ao mês atual

exemplo (gostaria que aparecesse assim Maio / 2006)

Em baixo fosse mostrados todos os texto que foram inseridos naqule mês (maio).

Alguém poderia me ajudar com isso?

Veja meu codigo que não está funcioando muito bem

<%db = server.MapPath ("tulio\luxuria.mdb")

set con = server.CreateObject("adodb.connection")

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tulio\tulio\tulio\luxuria\luxuria.mdb;Persist Security Info=False"

set rs= server.CreateObject("ADODB.Recordset")

sql= "select * from blog order by codigo desc "

rs.open sql,con,3,3

%>

<%

dim meses(12)

meses(1)="Janeiro"

meses(2)="Fevereiro"

meses(3)="Março"

meses(4)="Abril"

meses(5)="Maio"

meses(6)="Junho"

meses(7)="Julho"

meses(8)="Agosto"

meses(9)="Setembro"

meses(10)="Outubro"

meses(11)="Novembro"

meses(12)="dezembro"

do while rs.eof = false

sem = weekday(rs("data"))

dia = day(rs("data"))

mês = month(rs("data"))

ano = year(rs("data"))

data= meses(mês) & " / " & ano%>

<hr>

<font color="333333" size=-2 face="verdana"><b><%=data%></b></font>

<table width="770" border="0">

<tr>

<td><%=rs("texto")%></td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

<%rs.movenext

loop%>

Alguém poderia me ajudar?

Link para o comentário
Compartilhar em outros sites

Posts Recomendados

  • 0

Pessoal tentei de outra forma mas dá erro de sintaxe no select 2

No seleque 2 ele só pode mostrar o campo texto do mesmo mês e ano referente ao select 1 que mostra o mês e ano, mas no banco a data fica da seguinte forma 14/12/2006, tenho que conferir se os textos são do mesmo mês e ano

Vou colocar aqui a forma que tentei e está dando erro no select 2

codigo

codigo

Codigo

<%db = server.MapPath ("tulio\luxuria.mdb")

set con = server.CreateObject("adodb.connection")

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tulio\tulio\tulio\luxuria\luxuria.mdb;Persist Security Info=False"

set rs= server.CreateObject("ADODB.Recordset")

sql= "select top 1 data from blog order by codigo desc "

rs.open sql,con,3,3

%>

<%

dim meses(12)

meses(1)="Janeiro"

meses(2)="Fevereiro"

meses(3)="Março"

meses(4)="Abril"

meses(5)="Maio"

meses(6)="Junho"

meses(7)="Julho"

meses(8)="Agosto"

meses(9)="Setembro"

meses(10)="Outubro"

meses(11)="Novembro"

meses(12)="dezembro"

do while rs.eof = false

sem = weekday(rs("data"))

dia = day(rs("data"))

mês = month(rs("data"))

ano = year(rs("data"))

data= meses(mês) & " / " & ano%>

<hr>

<font color="333333" size=-2 face="verdana"><b><%=data%></b></font>

<%rs.movenext

loop%>

<table width="770" border="0">

<%set rs1= server.CreateObject("ADODB.Recordset")

sql2= "select * from blog where data =" & mês & "and" & ano

'response.write sql2

'response.end

rs1.open sql2,con,3,3%>

<tr>

<td><%=rs2("texto")%></td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td> </td>

</tr>

</table>

Link para o comentário
Compartilhar em outros sites

  • 0

qual a descricao do erro?

sql2= "select * from blog where data =" & mês & "and" & ano

esse campo data aqui é de que tipo? aquele response.write sql2 que você deixou comentado, você viu o que ele retorna? poste aí.

outra coisa, esse select está sem sentido nenhum. where data = mês and ano, o que você queria fazer nessa parte?

seria tipo

sql2= "select  *  from  blog where data =" & mês & ano 

Link para o comentário
Compartilhar em outros sites

  • 0

queria fazer um select que verificase se o mês e ano é correspondete ao mês na parte superio

mês mês = month(rs("data"))

ano = year(rs("data"))

Para desta forma mostrar somente o texto referente a este mês e ano

No meu Banco a data é como data/hora ex 12/05/2006 mas que que compare somente com mês e ano e não com o dia

Quando dou response.write sql2 ele me mostra o seguinte

Junho / 2006 select * from blog where data =6and2006

Quando tiro o mesmo dá o seguinte erro

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta 'data =6and2006'.

/tulio/tulio/tulio/tulio/luxuria/blog/teste.asp, line 48

Linha 48 é a seguite

rs1.open sql2,con,3,3%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...