USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  gravando data errado com 30/12/1899
NOVATO1259
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/09/2005 08:26 hs            
  Bom dia a todos, sou novo em programação.
Estou com este problema de datas, no access está como Abaixo, no visual basic verifico o conteudo da variavel, na text aparece tambem a data certa, só que na gravação esta gravando 30/12/1899. Alguem saberia o que esta errado. Já li algumas matérias no site do macorrati , mas não consegui entender o que fazer.


Obrigado.



ACCESS

Nome do Campo    Tipo de Dados          Formato
DataEmprestimo      Data/Hora             Data Abreviada

No banco de dados está gravando 30/12/1899
--------------------------------------------

NO VISUAL BASIC

vDataEmprestimo = CDate(txtDataEmprestimo.Text)  
vDataDevolucao = CDate(txtDataDevolucao.Text)


Em tempo de execução verifico :
As variaveis estao carregadas com  txtDataEmprestimo.Text = "09/19/2005
                                                    txtDataDevolucao.Text = "04/10/2005

.CommandType = adCmdText
        .CommandText = "UPDATE Livros SET CodUsuario = " & vCodUsuario & _
        ", Emprestado = True, DataEmprestimo = " & Format(vDataEmprestimo, "mm/dd/yyyy") & _
        ", DataDevolucao = " & Format(vDataDevolucao, "mm/dd/yyyy") & " WHERE CodLivro = " & _
        vCodLivro & ";"



   
Erico
SALVADOR
BA - BRASIL
ENUNCIADA !
Postada em 19/09/2005 14:08 hs            
Vc deve utilizar aspas ' simples na gravação de datas. Ex.:
 
.CommandText = "UPDATE Livros SET CodUsuario = " & vCodUsuario & _
        ", Emprestado = True, DataEmprestimo = '" & Format(vDataEmprestimo, "mm/dd/yyyy") & _
        "', DataDevolucao = '" & Format(vDataDevolucao, "mm/dd/yyyy") & "' WHERE CodLivro = " & _
        vCodLivro & ";"


A.Erico S.Peixoto
--------------------
Analista de Sistemas
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página