Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Everson Junior

Inversão de data

Por , em ASP Clássico

Recommended Posts

Everson Junior    0

Everson Junior
Postado

Galera, é o seguinte tenho um formulário de inscrição que insere no access. Eu incluo a data 18/10/2007, mas, na consulta ele retorna 10/18/2007. Como faço para inverter essa data na consulta, pq no banco de dados ela está certa. abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Everson Junior    0

Everson Junior
Postado

postei a função e dei algumas dicas nesse post!

 

http://forum.imasters.com.br/index.php?showtopic=253362

espero que ajude!

Custelinha, legal, mas você formatou para mm/dd/aaa e eu gostaria que na consulta.asp ela retornasse dd/mm/aaa porque no access ela está assim correta

 

Meu código:

 

 

ASP
<%

 

If Not Session("logado") then

Response.Redirect("login.asp")

End If

 

%>

 

 

<html><head>

<TITLE>consulta.asp</TITLE>

</head>

<body bgcolor="#FFFFFF">

<%

 

'Declarando variáveis

Dim adoCon, strCon

Dim caminho_banco

 

'Definindo caminho do banco

caminho_banco = Server.MapPath("datameu_banco.mdb")

 

'Definindo string de conexão

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco

 

'Criando objeto

Set adoCon = Server.CreateObject("ADODB.Connection")

 

'Abrindo conexão

adoCon.Open strCon

 

aspSQL="select * from Acampante"

set rstemp=adoCon.execute(aspSQL)

 

contador=0

 

' verifica se há dados no recordset

 

If rstemp.eof then

response.write "Não há dados a exibir<br>"

response.write aspSQL & "<br>Não retorna informação alguma..."

connection.close

set connection=nothing

response.end

end if

' Vamos usar código HTML para criar uma tabela e exibir nossos dados

%>

<p><font color="#004080" size="5"><strong>Exibindo dados da tabela - Acampante </strong></font></p>

<hr>

<table border=2 bgcolor="#FFFFFF">

<%

' Vamos dar nome aos cabeçalhos dos campos

response.write "<tr>"

'Percorremos os campos

for each item in rstemp.fields

response.write "<td><B>" & item.name & "</B></TD>"

next

response.write "</tr>"

 

' Agora iremos exibir os dados do Recordset gerado pela consulta SQL

' Vamos percorrer o recordset até chegar no final do arquivo

 

DO UNTIL rstemp.eof

'atribuindo os valores dos campos as variáveis

 

idInscricao=rstemp("id_inscricao")

DataInscricao=rstemp("Data_inscricao")

Nome=rstemp("Nome")

Idade=rstemp("Idade")

Cidade=rstemp("Cidade")

Celular=rstemp("Celular")

Telefone=rstemp("Telefone")

Evangelico=rstemp("Evangelico")

Igreja=rstemp("Igreja")

DataPagamento=rstemp("Data_pagamento")

Obs=rstemp("Obs")

 

 

 

' escrevendo os campos em uma tabela para exibição via um Browser

 

response.write "<tr>"

response.write "<td>" & idInscricao  & "</td>"

response.write "<td>" & DataInscricao & "</td>"

response.write "<td>" & Nome & "</td>"

response.write "<td>" & Idade & "</td>"

response.write "<td>" & Cidade & "</td>"

response.write "<td>" & Celular & "</td>"

response.write "<td>" & Telefone & "</td>"

response.write "<td>" & Evangelico & "</td>"

response.write "<td>" & Igreja & "</td>"

response.write "<td>" & DataPagamento & "</td>"

response.write "<td>" & Obs & "</td>"

response.write "</tr>"

 

'move-se para próximo registro do recordset

rstemp.movenext

contador=contador+1

LOOP

%>

</table>

<%

' Fechamos o recordset e liberamos a memória usada

rstemp.close

set rstemp=nothing

adoCon.Close

Set adoCon = Nothing

%>

Esta tabela possui <% =contador %> registros

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

sempre consulte usando o padrao mm/dd/aaaa que virá corretamente a data

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito