Siempre Graba 01/01/1900

15/09/2004 - 22:17 por Carmelo Gonzalez | Informe spam
Hola !!!
Disculpen la molestia

ya pude hacer el UPDATE pero ahora falta el Insert

MiComando.CommandText = "INSERT INTO MovimientoCaja (Codigo,
NroMovimiento,Fecha, NroOrigen) Values ('" & cCodCaj & "', '" & sCad & "', "
&
CType(txtFecha.Text, DateTime) & ", '" & txtDocumento.Text & "')"

"INSERT INTO MovimientoCaja (Codigo, NroMovimiento, Fecha, NroOrigen) Values
('0003', '0000000079', 15/09/2004, '222')"

Graba pero la fecha siempre es 01/01/1900, el UPDATE lo solucione asi:
Dim sFecha As String

sFecha = txtFecha.Value.Month & "/" & txtFecha.Value.Day & "/" &
txtFecha.Value.Year
la coloque con formato mm/dd/yyyy

MiComando.CommandText = "UPDATE MovimientoCaja SET NroOrigen = '" &
txtDocumento.Text & "', Origen = '" & txtOrigen.Text & "', Fecha ='" &
sFecha & "' WHERE NroMovimiento = '" & XXX & "'"

Gracias por toda la Ayuda
 

Leer las respuestas

#1 Tinoco
15/09/2004 - 22:31 | Informe spam
Hola.

Te recomiendo dos cosas:
1. coloca las fechas entre comillas simples '2004/01/19'
2. utiliza un formato de año/mes/dia [yyyy/mm/dd].

Hermilson Tinoco

Hola !!!
Disculpen la molestia

ya pude hacer el UPDATE pero ahora falta el Insert

MiComando.CommandText = "INSERT INTO MovimientoCaja


(Codigo,
NroMovimiento,Fecha, NroOrigen) Values ('" & cCodCaj


& "', '" & sCad & "', "
&
CType(txtFecha.Text, DateTime) & ", '" &


txtDocumento.Text & "')"

"INSERT INTO MovimientoCaja (Codigo, NroMovimiento,


Fecha, NroOrigen) Values
('0003', '0000000079', 15/09/2004, '222')"

Graba pero la fecha siempre es 01/01/1900, el UPDATE lo


solucione asi:
Dim sFecha As String

sFecha = txtFecha.Value.Month & "/" & txtFecha.Value.Day


& "/" &
txtFecha.Value.Year
la coloque con formato mm/dd/yyyy

MiComando.CommandText = "UPDATE MovimientoCaja SET


NroOrigen = '" &
txtDocumento.Text & "', Origen = '" & txtOrigen.Text


& "', Fecha ='" &
sFecha & "' WHERE NroMovimiento = '" & XXX & "'"

Gracias por toda la Ayuda

Preguntas similares