|
|
Postada em 17/09/2005 08:59 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.
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
.CommandText = "UPDATE Livros SET CodUsuario = " & vCodUsuario & _
", Emprestado = True, DataEmprestimo = " & vDataEmprestimo & _
", DataDevolucao = " & vDataDevolucao & " WHERE CodLivro = " & _
vCodLivro & ";"
.Execute
|
|
|
|
|
|
arm.g
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/09/2005 16:38 hs
CommandText = "UPDATE Livros SET CodUsuario = " & vCodUsuario & _
", Emprestado = True, DataEmprestimo = " & vDataEmprestimo & _
", DataDevolucao = " & format(vDataDevolucao,"mm/dd/yyy") & " WHERE CodLivro = " & _
vCodLivro & ";"
.Execute espero ter ajudado um abraço |
|
|
|
|
|
Postada em 19/09/2005 09:05 hs
Coloca as datas entre # no SQL... #19/09/2005# Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 19/09/2005 11:10 hs
Ainda nao deu certo, obrigado .
.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 & ";"
|
|
|
|
ArtSoft
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/09/2005 13:39 hs
Fala ai Novato, blz ?! Segue um exemplo : DIM DT(1) as DATE DT(0) = format(vDataEmprestimo,"DD/MM/YYYY") DT(1) = format(vDataDevolucao,"DD/MM/YYYY") CommandText = "UPDATE Livros SET CodUsuario = " & vCodUsuario & _
", Emprestado = True, DataEmprestimo = " & DT(0) & _
", DataDevolucao = " & DT(1) & " WHERE CodLivro = " & _
vCodLivro & ";"
.Execute ALEXANDRE COSTA ARTSOFTSYSTEMS |
|
|
|
Gboese
|
SANTO ANDRÉ
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/09/2005 13:40 hs
Coloca as datas entre aspas simples "Update livros set CodUsuario = " & vCodUsuario & ",Emprestado=True,DataEmprestimo = '" & Format(vDataEmprestimo, "dd/mm/yyyy") & _
"', DataDevolucao = '" & Format(vDataDevolucao, "dd/mm/yyyy") & "' WHERE CodLivro = " & _
vCodLivro & ";"
Gustavo Boese
|
|
|
|
