[Resolvido] Comparar Datas no BD Access

[Web Design Valdeci 0]

Fala pessoal,Gostaria de comparar dados enviados por 2 forms tipo de tal data a tal data no BD access. A pessoa digitara a primeira data 01/10/2007 e a segunda 30/10/2007 o script procuraria no bd na tabela especifica os dados de 01/10/2007 a 30/10/2007. As datas ja estao formatadas certinho. Alguem pode me ajudar.valeu

[Mário Monteiro 179]

Estao formatadas no formato mm/dd/aaaa veja ai

[Web Design Valdeci 0]

Estao formatadas no formato mm/dd/aaaa veja ai

Nao estao no dd/mm/aaa. Usei between mais nao funfou. ele nao esta exibindo. Veja:

 

'aqui ele recebe as variaveis dos forms.

 

ASP

tsc = request.querystring("tsc")

If tsc = "seleciona" then

session.LCID = 1046

Codigo = request.form("Codigo")

data1 = request.form("data1")

data2 = request.form("data2")

Set cs_listar2 = Server.CreateObject("ADODB.Recordset")

cs_listar2.ActiveConnection = strcon

cs_listar2.Source = "SELECT ped_ve.vendedor, ped_ve.data_lanc FROM ped_ve WHERE ped_ve.vendedor = "&Codigo&" AND ped_ve.data_lanc BETWEEN "&data1&" AND "&data2&" "

cs_listar2.CursorType = 0

cs_listar2.CursorLocation = 3

cs_listar2.LockType = 1

cs_listar2.Open()

end if

 

' e aqui eu fiz a exibiçao dos dados mas na pagina nao aparece nada e nem da erro

 

<table width="100%" border="0" cellspacing="3" cellpadding="0">

        <tr>

          <td width="34%" class="menu4"><div align="left"><strong>Nome do Produto </strong></div></td>

          <td width="13%" class="menu4"><div align="left"><strong>Nº do Pedido </strong></div></td>

          <td width="13%" class="menu4"><div align="center"><strong>N. Fiscal </strong></div></td>

          <td width="16%" class="menu4"><div align="center"><strong>Dt. de Entrega </strong></div></td>

          <td width="12%" class="menu4"><div align="left"><strong>Quantidade</strong></div></td>

          <td width="12%" class="menu4"><div align="left"><strong>Valor Total </strong></div></td>

        </tr>

        <tr>

          <td class="menu4"> </td>

          <td class="menu4"> </td>

          <td class="menu4"> </td>

          <td class="menu4"> </td>

          <td class="menu4"> </td>

          <td class="menu4"> </td>

        </tr>

        <tr>

          <% While (Not cs_listar2.EOF)              

var_cliente = cs_listar2.Fields.Item("nome_cli").Value

var_pedido = cs_listar2.Fields.Item("pedido").Value

var_data = cs_listar2.Fields.Item("data_lanc").Value

var_valor = cs_listar2.Fields.Item("vl_tot_pedido").Value

%>

          <td class="menu4"><%=var_cliente%></td>

          <td class="menu4"><div align="center"><%=var_pedido%></div></td>

          <td class="menu4"><div align="center"></div></td>

          <td class="menu4"><div align="center"><%=var_data%></div></td>

          <td class="menu4"><div align="center"></div></td>

          <td class="menu4">R$ <%=FormatNumber(var_valor,2)%></td>

        </tr>

        <tr> </tr>

        <tr> </tr>

        <%

cs_listar2.MoveNext()

Wend

%>

      </table>

 

 

Sera o que pode ser

[Custellinha 0]

se estiver usando access tente:

ASP

'aqui ele recebe as variaveis dos forms.

 

tsc = request.querystring("tsc")

If tsc = "seleciona" then

session.LCID = 1046

Codigo = request.form("Codigo")

data1 = request.form("data1")

data2 = request.form("data2")

Set cs_listar2 = Server.CreateObject("ADODB.Recordset")

cs_listar2.ActiveConnection = strcon

cs_listar2.Source = "SELECT ped_ve.vendedor, ped_ve.data_lanc FROM ped_ve WHERE ped_ve.vendedor = "&Codigo&" AND ped_ve.data_lanc BETWEEN #"&data1&"# AND #"&data2&"# "

cs_listar2.CursorType = 0

cs_listar2.CursorLocation = 3

cs_listar2.LockType = 1

cs_listar2.Open()

end if

 

não se esqueça que quando a pessoa enviar a data pelo form você deve formatar para:

mês/dia/ano

 

qualquer erro e/ou dúvida!

[Web Design Valdeci 0]

Brigadao cara!!! funfou.

[Custellinha 0]

nunca se esqueça que se estiver trabalhando com datas no access usar o valor entre # em sua sql...grande abraço!

[Web Design Valdeci 0]

nunca se esqueça que se estiver trabalhando com datas no access usar o valor entre # em sua sql...grande abraço!

Cheu te falar... ele esta listando mas esta confundindo mes com data. Ex. digito na data1: 01/03/2007 e na data2: 30/04/2007 ele lista tambem a partir de 03/01/2007. poque isto acontece você pode me ajudar.

[Custellinha 0]

ja tentou inserindo mes/dia/ano ???

[Web Design Valdeci 0]

ja tentou inserindo mes/dia/ano ???

No formato mes/dia/ano foi certinho. Como faço para formatar a data para mes/dia/ano na hora de postar do form...

[Custellinha 0]

Uso essa:

 

ASP

Function FormataData(Data)

   If Data <> "" Then FormataData = Right("0" & DatePart("m", Data),2) & "/" & Right("0" & DatePart("d", Data),2) & "/" & DatePart("yyyy", Data)

End Function

 

para chamar a função altere:

ASP

data1 = request.form("data1")

data2 = request.form("data2")

para:

ASP

data1 = FormataData(request.form("data1"))

data2 = FormataData(request.form("data2"))

 

qualquer outra dúvida poste!

[Web Design Valdeci 0]

Uso essa:

 

ASP

Function FormataData(Data)

   If Data <> "" Then FormataData = Right("0" & DatePart("m", Data),2) & "/" & Right("0" & DatePart("d", Data),2) & "/" & DatePart("yyyy", Data)

End Function

 

para chamar a função altere:

ASP

data1 = request.form("data1")

data2 = request.form("data2")

para:

ASP

data1 = FormataData(request.form("data1"))

data2 = FormataData(request.form("data2"))

 

qualquer outra dúvida poste!

 

Mais uma vez. obrigado pela ajuda cara.!!!

[Custellinha 0]

estamos aqui para ajudar e sermos ajudados!grande abraço...