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

Datas No Asp

Guest Curry

Perguntado por Guest Curry,

 Share

Pergunta

Guest Curry

Guest Curry

Postado
Postado

Olá a todos !!!

Estou aprendendo ASP agora e preciso trabalhar com datas no banco de dados. Tenho algumas dúvidas e gostaria que alguém me ajudasse:

1- como insiro uma data (dd/mm/aaaa) no banco ?? sei q tenho q usar Session LICD= 1046 ou algo assim para ficar no formato brasileiro

2 - estou trabalhando com banco Access. Posso usar o campo de data no banco ?? como insiro os dados para q não dê erro no insert ??

3 - como faria para fazer uma consulta pedindo datas a partir de uma certa data ???

Sei q estou pedindo muito mas agradeço de antemão...

Link para o comentário
Compartilhar em outros sites

29 respostass a esta questão

Posts Recomendados

  • 0
Guest Guest

Guest Guest

Postado
Postado
Olá a todos !!!

Estou aprendendo ASP agora e preciso trabalhar com datas no banco de dados. Tenho algumas dúvidas e gostaria que alguém me ajudasse:

1- como insiro uma data (dd/mm/aaaa) no banco ?? sei q tenho q usar Session LICD= 1046 ou algo assim para ficar no formato brasileiro

2 - estou trabalhando com banco Access. Posso usar o campo de data no banco ?? como insiro os dados para q não dê erro no insert ??

3 - como faria para fazer uma consulta pedindo datas a partir de uma certa data ???

Sei q estou pedindo muito mas agradeço de antemão...

desculpem deu erro de página e eu achei q não tivesse postado corretamente...

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Curry

Guest Curry

Postado
Postado

Bom eu fiz o seguinte:

Session.LCID=1033

Dim varDta, rsCons, sqlCOns

Dim sqlIns, rsIns

varDta = request.form("campo")

sqlCons = " SELECT * FROM dates ORDER BY data"

Session.LCID=1046

<%=rsCons("data")%>

O resultado está saindo assim:

1/24/aaaa

porque ele não está passando os anos corretamente ??

Link para o comentário
Compartilhar em outros sites
  • 0
Curry

Curry

Postado
Postado

Valeu, pessoal, resolvi me cadastrar..

Estou tentando colocar pra funcionar o seguinte código:

<%

Dim sqlCons, varDta, rsCons

varDta = request.form("acha")

Session.LCID=1033

sqlCons = " SELECT * FROM dates WHERE datta = #" & varDta & "# ORDER BY id "

Session.LCID=1046

call abre_conexao

set rsCons = Conexao.execute(sqlCons)

%>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body link="#0033FF" vlink="#990000" alink="#00CCFF" class="gg" topmargin="30">

<div align="center">Funfou ???</div>

<br><br>

<br>

<br>

Datas no banco:<br>

<table width="50%" border="0" cellspacing="0" cellpadding="0">

<% if rsCons.eof then %>

  <tr>

    <td>Data&nbsp;<%= varDta%> n&atilde;o encontrada.</td>

    <td>Tente pesquisar por uma data diferente.

<br><br><a href="javascript:history.go(-1)">Voltar</a></td>

  </tr>

<% else %>

  <tr>

    <td>Data&nbsp;<%= varDta%> encontrada.</td>

    <td>Obrigado por pesquisar.</td>

  </tr>

</table>

</body>

</html>

<%

end if

Set rsCons = Nothing

%>

Mas não estou entendendo porque ele só mostra corretamente datas que não podem ser confundidas com meses, como 16/05, 24/01

Já datas como 5 de abril (05/04), ele só dá retorno correto se no campo de pesquisa eu colocar como 4 de maio (04/05)

Obrigado

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

<%

Dim sqlCons, varDta, rsCons

varDta = request.form("acha")

ano=year(vardta)

mes=month(vardta)

dia=day(vardta)

Session.LCID=1033

sqlCons = " SELECT * FROM dates WHERE datta = #" & DateSerial(ano,mes,dia) & "# ORDER BY id "

call abre_conexao

set rsCons = Conexao.execute(sqlCons)

Session.LCID=1046

%>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body link="#0033FF" vlink="#990000" alink="#00CCFF" class="gg" topmargin="30">

<div align="center">Funfou ???</div>

<br><br>

<br>

<br>

Datas no banco:<br>

<table width="50%" border="0" cellspacing="0" cellpadding="0">

<% if rsCons.eof then %>

  <tr>

    <td>Data&nbsp;<%= varDta%> n&atilde;o encontrada.</td>

    <td>Tente pesquisar por uma data diferente.

<br><br><a href="javascript:history.go(-1)">Voltar</a></td>

  </tr>

<% else %>

  <tr>

    <td>Data&nbsp;<%= varDta%> encontrada.</td>

    <td>Obrigado por pesquisar.</td>

  </tr>

</table>

</body>

</html>

<%

end if

Set rsCons = Nothing

%>

Link para o comentário
Compartilhar em outros sites
  • 0
Curry

Curry

Postado
Postado

Cara só me restou um único problema, na hora de mostrar os cadastros do banco:

Só sai se for com Session.LCID=1033

  Dim sqlCons, varDta, rsCons, rsHoje

Dim sqlIns, rsIns

Dim ano, mes, dia

varDta = request.form("campo")

ano=year(varDta)

mes=month(varDta)

dia=day(varDta)

Session.LCID=1033

sqlIns = " INSERT INTO dates (datta) "

sqlIns = sqlIns & " VALUES (#" & DateSerial(ano,mes,dia) & "#) "

sqlCons = " SELECT * FROM dates ORDER BY id "

Session.LCID=1046

call abre_conexao

set rsIns = Conexao.execute(sqlIns)

set rsHoje = Conexao.execute(sqlCons)

%>

Datas no banco:<br>

<table width="50%" border="0" cellspacing="0" cellpadding="0">

<% while not rsHoje.eof

Session.LCID=1033

%>

  <tr>

    <td>Data&nbsp;<%= rsHoje("id")%></td>

    <td><%=rsHoje("datta")%></td>

  </tr>

<% rsHoje.MoveNext %>

</table>

 

Como faço ?? crio mais 3 variáveis dia, mes ano só para a variável data e construo o DataSerial no lugar do rsHoje("datta") ??

Link para o comentário
Compartilhar em outros sites
  • 0
Curry

Curry

Postado
Postado

Aonde exatamente ??? Eu coloquei aqui e deu erro -->

<%

Dim sqlCons, varDta, rsCons, rsHoje

Dim sqlIns, rsIns

Dim ano, mes, dia

Dim dano, dmes, ddia

varDta = request.form("campo")

ano=year(varDta)

mes=month(varDta)

dia=day(varDta)

Session.LCID=1033

sqlIns = " INSERT INTO dates (datta) "

sqlIns = sqlIns & " VALUES (#" & DateSerial(ano,mes,dia) & "#) "

sqlCons = " SELECT * FROM dates ORDER BY id "

call abre_conexao

set rsIns = Conexao.execute(sqlIns)

set rsHoje = Conexao.execute(sqlCons)

Session.LCID=1046

%>

Datas no banco:<br>

<table width="50%" border="0" cellspacing="0" cellpadding="0">

<% while not rsHoje.eof

dano = year(rsHoje("datta"))

dmes = month(rsHoje("datta"))

ddia = day(rsHoje("datta"))

Session.LCID=1046

%>

  <tr>

    <td>Data&nbsp;<%= rsHoje("id")%></td>

    <td><%= DateSerial(ddia,dmes,dano)%></td>

  </tr>

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

tenta assim:

<%

Dim sqlCons, varDta, rsCons, rsHoje

Dim sqlIns, rsIns

Dim ano, mes, dia

Dim dano, dmes, ddia

varDta = request.form("campo")

ano=year(varDta)

mes=month(varDta)

dia=day(varDta)

Session.LCID=1033

sqlIns = " INSERT INTO dates (datta) "

sqlIns = sqlIns & " VALUES (#" & DateSerial(ano,mes,dia) & "#) "

sqlCons = " SELECT * FROM dates ORDER BY id "

call abre_conexao

set rsIns = Conexao.execute(sqlIns)

set rsHoje = Conexao.execute(sqlCons)

Session.LCID=1046

%>

Datas no banco:<br>

<table width="50%" border="0" cellspacing="0" cellpadding="0">

<% while not rsHoje.eof

%>

  <tr>

    <td>Data&nbsp;<%= rsHoje("id")%></td>

    <td><%=rsHoje("datta")%></td>

  </tr>

Link para o comentário
Compartilhar em outros sites
  • 0
Curry

Curry

Postado
Postado

Não funfou, decidi incrementar um pouco o script e ficou assim:

O problema continua o mesmo, só mudo de recordoSet:

<%

Dim sqlCons, varDta, rsCons, rsHoje

Dim sqlIns, rsIns, varHrs

Dim ano, mes, dia

Dim rsCad, sqlCad

varDta = request.form("campo")

varHrs = request.form("horario")

ano=year(varDta)

mes=month(varDta)

dia=day(varDta)

Session.LCID=1033

sqlIns = " INSERT INTO dates (datta, hora) "

sqlIns = sqlIns & " VALUES (#" & DateSerial(ano,mes,dia) & "#, '"& varHrs &"') "

sqlCons = " SELECT * FROM dates WHERE datta = #"& varDta &"# AND hora = '"& varHrs &"'"

sqlCad = " SELECT * FROM dates ORDER BY datta "

call abre_conexao

set rsHoje = Conexao.execute(sqlCons)

%>

<%

if not rsHoje.eof then

%>

Esta data e horário já estão reservados.<br>

Tente uma data ou horário diferente.

<%

else

set rsIns = Conexao.execute(sqlIns)

set rsCad = Conexao.execute(sqlCad)

Session.LCID=1046

response.Write("Seu horário está marcado.")

%>

Datas no banco:<br>

<table width="50%" border="0" cellspacing="0" cellpadding="0">  <tr>

<% while not rsCad.eof %>

    <td>Data&nbsp;<%= rsCad("id")%></td>

    <td><%= rsCad("datta")%></td>

<td align="right"><%= rsCad("hora")%>:00</td>

  </tr>

<% rsCad.MoveNext %>

<%

Wend

end if

Set rsIns = Nothing

Set rsHoje = Nothing

Set rsCad = Nothing

%>

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

tenta isso e depois me descreva o erro:

<%

Dim sqlCons, varDta, rsCons, rsHoje
Dim sqlIns, rsIns, varHrs
Dim ano, mes, dia
Dim rsCad, sqlCad

varDta = request.form("campo")
varHrs = request.form("horario")

ano=year(varDta)
mes=month(varDta)
dia=day(varDta)

sqlIns = " INSERT INTO dates (datta, hora) "
sqlIns = sqlIns & " VALUES ('" & vardta & "', '"& varHrs &"') "

Session.LCID=1033

sqlCons = " SELECT * FROM dates WHERE datta = #"& dateserial(ano,mes,dia) &"# AND hora = '"& varHrs &"'"
sqlCad = " SELECT * FROM dates ORDER BY datta "

call abre_conexao
set rsHoje = Conexao.execute(sqlCons)

Session.LCID=1046

%>


<%
if not rsHoje.eof then
%>
Esta data e horário já estão reservados.<br>
Tente uma data ou horário diferente.
<%
else

set rsIns = Conexao.execute(sqlIns)

set rsCad = Conexao.execute(sqlCad)


response.Write("Seu horário está marcado.")
%>
Datas no banco:<br>
<table width="50%" border="0" cellspacing="0" cellpadding="0">  <tr>
<% while not rsCad.eof %>
    <td>Data&nbsp;<%= rsCad("id")%></td>
    <td><%= rsCad("datta")%></td>
<td align="right"><%= rsCad("hora")%>:00</td>
  </tr>
<% rsCad.MoveNext %>


<%
Wend
end if
Set rsIns = Nothing
Set rsHoje = Nothing
Set rsCad = Nothing
%>

Link para o comentário
Compartilhar em outros sites
  • 0
Curry

Curry

Postado
Postado

Pior que está, ele grava direitinho, verifica se existe data e horário já reservados, só que num funciona na hora de retornar os valores na tela... ele parece que não aceita o Session.LCID corretamente, porque se eu deixar sem o Session para passar para o Portugês ele passa os dados corretamente no formato americano...

Não teria como repetir o esquema DateSerial(dia,mes,ano) para o recordSet ??

Link para o comentário
Compartilhar em outros sites
  • 0
Curry

Curry

Postado
Postado

Mais ou menos assim:

    <% while not rsCad.eof %>

    dano=year(rsCad("datta"))

    dmes=month(rsCad("datta"))

    ddia=day(rsCad("datta"))

       

      Data: <%= rsCad("DateSerial(ddia,dmes,dano)")  %>

       

     

Será q funciona ou as stringhs estão escritas de maneira errada ???

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

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