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

Formato De Data De Um Banco De Dados


jfranco

Pergunta

Boa noite,

Estou abrindo um banco de dados Access da seguinte forma:

Dim conConverte
Dim rsConverte
Dim SQLInsert

Set conConverte = Server.CreateObject("ADODB.Connection")
Set rsConverte = Server.CreateObject("ADODB.Recordset")

conConverte.Provider = "Microsoft.Jet.OLEDB.4.0"
conConverte.ConnectionString = Server.MapPath("\dados\Converte.mdb")

SQLSelect = "Select * From TabClie Order by DataClie Desc"

conConverte.Open
rsConverte.Open SQLSelect, conConverte, 3, 3

Acontece que há um campo tipo data nesse banco que está aparecendo no formato "mm/dd/aaaa" e não "dd/mm/aaaa". Dentro do banco o campo está como "mm/dd/aaaa". Como fazer para gravá-lo no formato correto?

Obrigado.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
coloque no inicio de seu codigo

session.licd=1046

Bareta,

Fiz o que você sugeriu, mas não funcionou. Ainda está trazendo com a data invertida.

Coloquei o "session.licd=1046" na página em que os dados são gravados:

<%

Session.LCID = 1046

empresa = Request("empresa")

nome = Request("nome")

endereco = Request("endereco")

cidade = Request("cidade")

UF = Request("UF")

cep1 = Request("cep1")

cep2 = Request("cep2")

Tel_DDD = Request("Tel_DDD")

Tel = Request("Tel")

Fax_DDD = Request("Fax_DDD")

Fax = Request("Fax")

e_mail = Request("e_mail")

assunto = Request("assunto")

data = Date()

' Confira as variáveis da mensagem

strOrigem = Trim(Request.form("nome"))

strEmailRem = Trim(Request.form("e_mail"))

strDestino = "contato@trifasico.com.br"

strAssunto = "Mensagem do Fale Conosco"

strMensagem = Request("assunto")

' Cria os objetos para envio de e-mail

Set mensagem = Server.CreateObject("CDO.Message")

Set conf = Server.CreateObject("CDO.Configuration")

Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

param.Update

Set mensagem.configuration = conf

' Atribui-se os valores para as propriedades do objeto

mensagem.From = strEmailRem

mensagem.To = strDestino

mensagem.Subject = strAssunto

mensagem.TextBody = strOrigem & " enviou a seguinte mensagem: " & strMensagem

mensagem.Send

' Informa o que foi enviado

%>

Não é assim?

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
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...