Problemas para actualizar fechas

Tengo un pequeño gran problema. Resulta que tengo un sistema hecho en visual basic 2006. Dicho sistema esta conectado a una base de datos hecha en foxpro 6.0. Esta BD a su vez es usada por un sistema hecho en foxpro 6.0. Este sistema se puede decir que es el principal. El sistema que yo hice en visual basic es para poder agregar datos de manera masiva datos a esta BD a través de hojas de excel con formato definido. El problema surge cuando yo quiero dar de alta una fecha. En foxpro la fecha tiene el formato de "fecha" de 8 caracteres. Al yo hacer mi consulta a excel no tengo algu problema con los demás datos excepto con la fecha, y el problema se da solo momento de la actualización. Me manda el siguiente error "Data type mismatch". La fecha la jalo de la hoja de excel, la columna tiene un formato de fecha. Esta fecha la guardo en una variable de tipo Date. El formato de la fecha es "dd/mm/aaaa". Si quito esa parte de la consulta, los demás datos se actualizan bien, ese es mi único problema, espero me tengan alguna solución.
StrSql = "UPDATE usuarios SET usufecac='" & Format(FechaInst, "dd/mm/aa") & "', usunumac='" & MedInst & "', Sello='" & Sello & "', usufabac=" & IdMarca & ", usudiaac=" & Diametro & " WHERE usucuent = " & cuenta & ""
Esta es la consulta que uso. Ya lo intente sin Format y nada.

1 respuesta

Respuesta
1
Prueba a insertar la fecha en formato aaaa/mm/dd
StrSql = "UPDATE usuarios SET usufecac='" & Format(FechaInst, "aaaa/mm/dd") & "', usunumac='" & MedInst & "', Sello='" & Sello & "', usufabac=" & IdMarca & ", usudiaac=" & Diametro & " WHERE usucuent = " & cuenta & ""
Prueba tambien a quitarle las comilla del string
StrSql = "UPDATE usuarios SET usufecac=" & Format(FechaInst, "aaaa/mm/dd") & ", usunumac='" & MedInst & "', Sello='" & Sello & "', usufabac=" & IdMarca & ", usudiaac=" & Diametro & " WHERE usucuent = " & cuenta & ""
Si esto tampoco funciona, prueba con lo siguiente.
StrSql = "UPDATE usuarios SET usufecac=#" & Format(FechaInst, "aaaa/mm/dd") & "#, usunumac='" & MedInst & "', Sello='" & Sello & "', usufabac=" & IdMarca & ", usudiaac=" & Diametro & " WHERE usucuent = " & cuenta & ""
Gracias por las sugerencias, pero ninguna de ellas me funcionó. Envío el código íntegro de este módulo.
Public Sub CargarTablaExcel(rutaexcel)
Dim opc As Integer
Dim cuenta As Long
Dim MedInst As String
Dim FechaInst As String
Dim IdMarca As Integer
Dim Marca As String
Dim Diametro As Integer
Dim Sello As String
Call Conexiones.conexionexcel
Call Conexiones.recinstExcel
Call Conexiones.conexionfoxred
StrSql = "SELECT * FROM [Hoja1$]"
recExcel.Open StrSql, conexcel
Set frm_principal.DataMedidores.DataSource = recExcel
opc = MsgBox("Confirmar la operación", vbYesNo, "Japami")
If opc = vbYes Then
While Not recExcel.BOF And Not recExcel.EOF
frm_principal.DataMedidores.Col = 0
cuenta = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 1
MedInst = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 2
FechaInst = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 3
IdMarca = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 4
Marca = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 5
Diametro = frm_principal.DataMedidores.Text
frm_principal.DataMedidores.Col = 6
Sello = frm_principal.DataMedidores.Text
StrSql = "UPDATE usuarios SET usufecac=#" & Format(FechaInst, "aaaa/mm/dd") & "#, usunumac='" & MedInst & "', Sello='" & Sello & "', usufabac=" & IdMarca & ", usudiaac=" & Diametro & " WHERE usucuent = " & cuenta & ""
confoxred.Execute StrSql
recExcel.MoveNext
Wend
Else
Exit Sub
End If
MsgBox "La operacion se realizó con éxito", vbOKOnly, "Japami"
End Sub
He encontrado la siguiente información
If you pass date values, time values, or timestamp values in a remote query to an SQL table, you have to format the data by using the following escape clauses: . Date value: {d 'yyyy-mm-dd'}. In this format, yyyy represents the year, mm represents the month, and dd represents the day.
. Time value: {t 'hh:mm:ss'}. In this format, hh represents the hours, mm represents the minutes, and ss represents the seconds.
. Timestamp value: {ts 'yyyy-mm-ddhh:mm:ss'}.
Es decir
usufecac={d '" & Format(FechaInst, "aaaa-mm-dd") & "'}" ....

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Textbox con fecha actual

Dado que tus anteriores respuestas me han sido de gran ayuda, me permito abusar de tus conocimientos: leí en otra consulta que para poner la fecha de hoy se usa el comando =Hoy(). Eso me funciona perfecto en excel. ¿Me puedes dar el código para que...
1 respuesta

Problema con query

A ver si puedes echarme una mano porque he topado con un problema al que no consigo darle solución. Estoy desarrollando para mi empresa un programa en Visual Basic-Access 2003 para gestionar el stock del almacén. En una parte del programa he...
1 respuesta

Reporte con filtro

Tengo un formulario en donde capturo información de fechas de ingreso y salida y claves, de documentos, lo que quiero es que al imprimir el informe de este formulario me pida la fecha de ingreso para que solo obtenga los registros que tengan esta...
1 respuesta

¿Cómo almacenar una fecha con formato DD-MM-AAAA?

He realizado una máscara en un <input type="text"> que me dé el formato de fecha así: DD-MM-AAAA, pero como sabrás, MySQL maneja el formato de fecha así: AAAA-MM-DD, mi pregunta es: ¿Cómo hago para almacenar desde php el formato de fecha DD-MM-AAAA?
1 respuesta

Fecha en inputbox Excel VBA

Una vez más tengo una pregunta... Estoy solicitando por medio de un inputbox una fecha para hacer unos cálculos, luego la fecha la coloco en una celda... Así es como solicito la fecha... Dim x x = InputBox("Escribe la fecha de vencimiento") Do While...
1 respuesta

Formatos de celda con visual basic

Tengo un archivo de excel con una base de datos grande. En esta base de datos hay una columna que tiene unas fechas en formato "dd/mm/aaa", el problema es que cuando abro esta base de datos utilizando un código de visual basic, el formato de las...
1 respuesta

Guardar Datos en Access desde Visual Basic 6.0

Estoy trabajando con una base de datos access desde visual basic 6.0, cuando intento actualizar un registro o guardar uno nuevo me envía el siguiente error (Error de Sintaxis Falta Operador en la Exprision de Consulta), ya he intentado depurar el...
1 respuesta

Convertir texto a fecha

La molestia consiste en que tengo una tabla con un campo de fecha con formato dd/mm/aaaa y un formulario con el mismo formato de fecha en el formulario tengo un botón agregar que al dar click se debería ejecutar esta consulta con.Execute "insert into...
1 respuesta

Fechas vfp-mysql

Estoy creando nuevas aplicaciones en la empresa donde trabajo, en visual foxpro he cambiado la base de datos a mysql, pero tengo un pequeño problema cuando inserto datos tipo fecha lo que ehago en el inserter es colocar en values '...
1 respuesta

Problema con fechas

Me extenderé un poco para poder explicar bien mi problemA En un form tengo capturo algunos datos, entre ellos el contenido seleccionado de un combo list, estos datos los guardo en una tabla que incluye un campo que almacenala fecha actual del...
1 respuesta