Tengo un problema y no acabo de determinar cual es su origen, y por ello, no se ni por donde empezar a analizarlo. Os explico.
Estoy desarrollando una pequeña aplicación para manejar una base de datos que tenemos en la empresa en MySQL y para ello, tengo una réplica de dicha base de datos en mi portátil de casa en el que tengo Ubuntu y el servidor de MySQL en localhost.
En la oficina, el Servidor de MySQL está sobre un servidor de MS Windows 2000 Server en su IP correspondiente.
Voy desarrollando cosas en casa y luego me llevo el ejecutable a la oficina y todo bien en cuanto a los comandos SELECT e INSERT pero ahora llega el momento de modificar registros (UPDATE) y,... ahí es donde surge mi problema.... En casa se insertan los registros sin ningún problema pero en la ofi no hay "gueb...." a que funcione.
Os pongo el código de lo que me funciona en casa pero no en la ofi.
PUBLIC SUB Btnguardar_Click()
DIM sFechaMaxima AS String
DIM sFechaReapertura AS String
DIM sEstadoAsunto AS String
DIM sEntregada AS String
DIM sDesestimada AS String
DIM sFechaAperturaOferta AS String
sFechaMaxima = Format(FechaMaxPresentacion.Value, "yyyy/mm/dd") 'pongo fecha en formato mysql
sFechaReapertura = Format(FReapertura.Value, "yyyy/mm/dd") 'pongo fecha en formato mysql
sFechaAperturaOferta = Format(FEntregaOferta.Value, "yyyy/mm/dd") 'pongo fecha en formato mysql
IF CheckBoxEstadoAsunto.Value = TRUE THEN
sEstadoAsunto = 1
ELSE
sEstadoAsunto = 0
ENDIF
IF CheckBoxEntregaOferta.Value = TRUE THEN
sEntregada = 1
ELSE
sEntregada = 0
ENDIF
IF CheckBoxDesestimadaOferta.Value = TRUE THEN
sDesestimada = 1
ELSE
sDesestimada = 0
ENDIF
ModVariables.sConsulta = "UPDATE simacan.asuntos SET "
ModVariables.sConsulta &= "Empresa = '" & ComboEmpresaGrupo.Text & "', "
ModVariables.sConsulta &= "Version = '" & Version.Text & "', "
ModVariables.sConsulta &= "TituloAsunto = '" & TituloAsunto.Text & "', "
ModVariables.sConsulta &= "ClienteAsunto = '" & ComboBoxCliente.Text & "', "
ModVariables.sConsulta &= "PersonaContactoAsunto = '" & ComboBoxContacto.Text & "', "
ModVariables.sConsulta &= "ReferenciaCliente = '" & ReferenciaCliente.Text & "', "
ModVariables.sConsulta &= "ResponsableSimaveAsunto = '" & ComboResponsable.Text & "', "
ModVariables.sConsulta &= "FechaMaximaPresentacion = '" & sFechaMaxima & "', "
ModVariables.sConsulta &= "ImporteLicitacion = '" & Licitacion.Text & "', "
ModVariables.sConsulta &= "FReapertura = '" & sFechaReapertura & "', "
ModVariables.sConsulta &= "EstadoAsunto = '" & sEstadoAsunto & "', "
ModVariables.sConsulta &= "Entregada = '" & sEntregada & "', "
ModVariables.sConsulta &= "Desestimada = '" & sDesestimada & "', "
ModVariables.sConsulta &= "FechaApertura = '" & sFechaAperturaOferta & "', "
ModVariables.sConsulta &= "CategoriaProyecto = '" & ComboCategoria.Text & "' "
ModVariables.sConsulta &= "WHERE Asunto = '" & ModVariables.sAsunto & "'"
ModConexion.rs1 = ModConexion.db.Exec(ModVariables.sConsulta)
ME.Close
END
DIM sFechaMaxima AS String
DIM sFechaReapertura AS String
DIM sEstadoAsunto AS String
DIM sEntregada AS String
DIM sDesestimada AS String
DIM sFechaAperturaOferta AS String
sFechaMaxima = Format(FechaMaxPresentacion.Value, "yyyy/mm/dd") 'pongo fecha en formato mysql
sFechaReapertura = Format(FReapertura.Value, "yyyy/mm/dd") 'pongo fecha en formato mysql
sFechaAperturaOferta = Format(FEntregaOferta.Value, "yyyy/mm/dd") 'pongo fecha en formato mysql
IF CheckBoxEstadoAsunto.Value = TRUE THEN
sEstadoAsunto = 1
ELSE
sEstadoAsunto = 0
ENDIF
IF CheckBoxEntregaOferta.Value = TRUE THEN
sEntregada = 1
ELSE
sEntregada = 0
ENDIF
IF CheckBoxDesestimadaOferta.Value = TRUE THEN
sDesestimada = 1
ELSE
sDesestimada = 0
ENDIF
ModVariables.sConsulta = "UPDATE simacan.asuntos SET "
ModVariables.sConsulta &= "Empresa = '" & ComboEmpresaGrupo.Text & "', "
ModVariables.sConsulta &= "Version = '" & Version.Text & "', "
ModVariables.sConsulta &= "TituloAsunto = '" & TituloAsunto.Text & "', "
ModVariables.sConsulta &= "ClienteAsunto = '" & ComboBoxCliente.Text & "', "
ModVariables.sConsulta &= "PersonaContactoAsunto = '" & ComboBoxContacto.Text & "', "
ModVariables.sConsulta &= "ReferenciaCliente = '" & ReferenciaCliente.Text & "', "
ModVariables.sConsulta &= "ResponsableSimaveAsunto = '" & ComboResponsable.Text & "', "
ModVariables.sConsulta &= "FechaMaximaPresentacion = '" & sFechaMaxima & "', "
ModVariables.sConsulta &= "ImporteLicitacion = '" & Licitacion.Text & "', "
ModVariables.sConsulta &= "FReapertura = '" & sFechaReapertura & "', "
ModVariables.sConsulta &= "EstadoAsunto = '" & sEstadoAsunto & "', "
ModVariables.sConsulta &= "Entregada = '" & sEntregada & "', "
ModVariables.sConsulta &= "Desestimada = '" & sDesestimada & "', "
ModVariables.sConsulta &= "FechaApertura = '" & sFechaAperturaOferta & "', "
ModVariables.sConsulta &= "CategoriaProyecto = '" & ComboCategoria.Text & "' "
ModVariables.sConsulta &= "WHERE Asunto = '" & ModVariables.sAsunto & "'"
ModConexion.rs1 = ModConexion.db.Exec(ModVariables.sConsulta)
ME.Close
END
El error que me sale en pantalla cuando le doy al boton guardar es:
This application has raised an unexpected error and must abort.
[6] Type mismatch: wanted Float, got Null instead.
FrmEditarAsunto.?.0
¿cual puede ser mi problema?
¿por donde puedo empezar a analizar el mismo?.
Muchísimas gracias por adelantado.