Problemas con el maskedbox - VB-MUNDO

RONALDOMJ · #1 (**permalink**) 30-10-2008, 16:00:19

hola
Tengo un problema al guardar los datos ingresados en el maskedbox
el maskedbox lo tengo asi:

maskedbox.format=##/##/####
maskedbox.text=dd/mm/yyyy

al mostrar no tengo ningun problema
el problema el al guardar la fecha en access, reviso manualmente si se guardo correctamente y me aparece otra fecha nada que ver con lo ingresa en vb6
eje
ingreso
25/10/2008 y aparace 02/02/1984
necesito su ayuda
gracias

jhocastro · #2 (**permalink**) 30-10-2008, 17:58:00

Ya revisastes el campo fecha en la tabla si esta tipo fecha/Hora y con el formato de ddmmaa con fecha corta.

Prueba esto y nos cuentas luego.

J.M.Movilla · #3 (**permalink**) 30-10-2008, 20:39:34

Yo creo que el utilizar un MaskEdBox para introducir fechas es algo así como usar una mesa de escritorio para desplazarte por la ciudad... Claro que puedes hacerlo; pero a base de un gran esfuerzo y pérdida de rentabilidad.

Para introducir fechas utiliza el DTPicker (que lo tienes en el componente Microsoft Windows Common Controls-2 6.0) y verás cómo además de no tener problemas en la introducción de datos, ese control te valida el dato y te impide, por ejemplo, introducir "31/02/2008", porque lo suyo es controlar la fecha, mientras que el MaskEdBox controla sólo números.

RONALDOMJ · #4 (**permalink**) 03-11-2008, 17:33:58

Sr. Movilla
realize lo que ud me sugirio
me sucede lo mismo
uso un abase de datos acces 2003
vb6 y el problema persiste con el dtpicker
ingreso la fecha y me guarda: -2007
el codigo que uso para guardar es el siguiente, no se si tendra algun error o habra que definir el dtpicker
Private Sub guardar_Click()
If Me.Text1.Text <> "" And Me.Text2.Text <> "" And Me.Text3.Text <> "" And Me.cmb_accion.ListIndex <> 0 And Me.cmb_maquina.ListIndex <> 0 And Me.cmb_faena.ListIndex <> 0 And Me.cmb_componente.ListIndex <> 0 And Me.DTPicker1 <> "" And Me.MaskEdBox2 <> "" Then
rs.Open "select * from orden_trabajo where numero_ot =" & Me.Text1.Text & "", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF And Not rs.BOF Then
MsgBox "OT ya existe", vbInformation, "mantencion usuario"
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text5.Text = ""
' Me.DTPicker1 = ""
' MaskEdBox2.Text = ""
Me.cmb_maquina.ListIndex = 0
Me.cmb_accion.ListIndex = 0
Me.cmb_componente.ListIndex = 0
Me.cmb_faena.ListIndex = 0
Else
cn.Execute "insert into orden_trabajo (numero_ot, item_reparacion, id, codigo_accion, codigo_componente, codigo_faena, observacion, fecha_inicio, fecha_termino, kilometraje) values (" & Me.Text1.Text & ", " & Me.Text2.Text & ", " & Me.cmb_maquina.ItemData(Me.cmb_maquina.ListIndex) & "," & Me.cmb_accion.ItemData(Me.cmb_accion.ListIndex) & "," & Me.cmb_componente.ItemData(Me.cmb_componente.ListI ndex) & ", " & Me.cmb_faena.ItemData(Me.cmb_faena.ListIndex) & ",'" & Me.Text5.Text & "', " & Me.DTPicker1 & ", " & Me.MaskEdBox2.Text & ", " & Me.Text3.Text & ")"
MsgBox "usuario grabado", vbInformation, "mantencion usuario"
rs.Close
llenar_grillaot
' btn_limpiar
End If

Else
MsgBox "ingrese datos", vbInformation, "Mantendor Usuario"

End If
End Sub

J.M.Movilla · #5 (**permalink**) 03-11-2008, 17:52:15

No pensarás, amigo RONALDOMJ, que yo tengo cabeza para grabarme todo ese código, escrito además así, sin indentar (que no hay forma de seguirlo...) como para saber por qué te falla, si ni siquiera dices dónde se produce el error ni qué error te da? Sin información no podemos ayudar, compréndelo.

Lo único que veo es que te quejas de que el DTPicker te guarda -2007... y no puedo entender qué tiene que ver el resto del código que insertas.

El que el DTPicker te dé mala información se deberá a que tienes el control mal configurado, revísalo. Porque un DTPicker tiene que darte la fecha en el formato que tú tengas definido, mes-día-año, o día-mes-año, o incluso la fecha seguida de minutos y segundos... Si tú le has puesto que te devuelva sólo el año... (digo yo...)

NOTA: Ya me perdonaréis, porque compruebo que hoy me salen las respuestas con bastante acritud... Pero mis razones tengo para estar como estoy, a pesar de que vosotros no tengáis nada que ver con esas razones... En el foro no puedo decir ¡¡¡Brrrgrrrg!!! aunque me quede con ganas de ello...

RONALDOMJ · #6 (**permalink**) 03-11-2008, 18:32:43

Sr Movilla
Disculpa las molestia sobre el dtpicker, habia revisado el codigo varias veces y no me guardaba lo que estaba escrito en el dtpicker, y se me ocurrio hacer algo despues de que lo habia escrito, el problema ya esta resuelto, me guarda correctamente los datos del DTpicker
ATTE

J.M.Movilla · #7 (**permalink**) 04-11-2008, 00:25:23

De acuerdo. No se te olvide que cuando el ordenador da una respuesta inadecuada lo primero que tenemos que comprobar es que le estamos dando la información adecuadamente...