Postada em 19/09/2005 12:23 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.
No form vb estou usando MaskEdBox Mask = ##/##/####
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 = "15/09/2005
txtDataDevolucao.Text = "15/09/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 & ";"
MsgBox .CommandText
|
