Visual Basic - ERROR DE EJECUCIÓN

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 21
Ha aumentado su posición en 48 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ERROR DE EJECUCIÓN

Publicado por RICARDO dante2401@hotmail.com (9 intervenciones) el 10/10/2019 01:16:19
Hola a todos

en mi código fuente tengo un error que no le encuentro solución, al ejecutar el .exe y entrar a realizar una acción en el programa me arroja el siguiente error

error 2147217913 (80040e07) en tiempo de ejecución
No coinciden los tipos de datos en la expresión de criterios


y al revisar directamente con Visual Basic, visual me indica en amarillo donde esta el error

esta es la parte del código fuente donde visual me indica el error:

1
2
3
4
5
6
7
8
Cnn.Execute "UPDATE WMS_FoliosSurtido Set EstatusSolicitud = 'TERMINADO'" & _
    ",[Lote / OC] = '" & .ListItems(j).ListSubItems(12).Text & _
    "' ,CantidadSalida = " & .ListItems(j).ListSubItems(11).Text & _
    " ,FechaTermino = '" & .ListItems(j).ListSubItems(13).Text & _
    "' ,RegistroKdx_WMS = '" & .ListItems(j).ListSubItems(14).Text & _
    "' ,FechaActualizacion = '" & Format(Date, "DD/MM/YYYY HH:mm") & _
    "' ,UsuarioActualizacion = '" & UsuarioActual & "-" & UsuarioRed & _
    "' where Id IN (" & xRegistro & ")"

alguien que me pueda ayudar

muchas gracias

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.091
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ERROR DE EJECUCIÓN

Publicado por Antoni Masana (381 intervenciones) el 10/10/2019 08:13:24
Es evidente que el string que has montado no es correcto.
Asignalo a una variable y mira que contiene para ver si realmente lo que haces y lo que deberías hacer es lo mismo.
Solo tengo dos preguntas:
¿El campo FechaTermino es un STRING?
¿El campo FechaActualizacion es un STRING?

1
2
3
4
5
6
7
8
9
10
Texto = "UPDATE WMS_FoliosSurtido Set EstatusSolicitud = 'TERMINADO'" & _
          " ,[Lote / OC] = '"          & .ListItems(j).ListSubItems(12).Text & "'" & _
          " ,CantidadSalida = "        & .ListItems(j).ListSubItems(11).Text & _
          " ,FechaTermino = '"         & .ListItems(j).ListSubItems(13).Text & "'" & _
          " ,RegistroKdx_WMS = '"      & .ListItems(j).ListSubItems(14).Text & "'" & _
          " ,FechaActualizacion = '"   & Format(Date, "DD/MM/YYYY HH:mm")    & "'" & _
          " ,UsuarioActualizacion = '" & UsuarioActual & "-" & UsuarioRed    & "'" & _
          " where Id IN (" & xRegistro & ")"
MsgBox Texto
Cnn.Execute Texto


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 21
Ha aumentado su posición en 48 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ERROR DE EJECUCIÓN

Publicado por RICARDO (9 intervenciones) el 10/10/2019 19:35:37
muchas gracias por la información y la ayuda, y la respuesta a las 2 preguntas es SI, es un STRING

sigue sin funcionar, si necesitan el modulo lo voy a subir el código para mejor referencia

ojala y me puedan ayudar a que funcione correctamente se los agradecería mucho

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.091
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ERROR DE EJECUCIÓN

Publicado por Antoni Masana (381 intervenciones) el 10/10/2019 21:05:49
No he podido ejecutar el programa.

Prueba esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Texto = "UPDATE WMS_FoliosSurtido Set EstatusSolicitud = 'TERMINADO'" & _
          " ,[Lote / OC] = '"          & .ListItems(j).ListSubItems(12).Text & "'" & _
          " ,CantidadSalida = "        & .ListItems(j).ListSubItems(11).Text & _
          " ,FechaTermino = '"         & .ListItems(j).ListSubItems(13).Text & "'" & _
          " ,RegistroKdx_WMS = '"      & .ListItems(j).ListSubItems(14).Text & "'" & _
          " ,FechaActualizacion = '"   & Format(Date, "DD/MM/YYYY HH:mm")    & "'" & _
          " ,UsuarioActualizacion = '" & UsuarioActual & "-" & UsuarioRed    & "'" & _
          " where Id IN (" & xRegistro & ")"
 
Open "C:\Tmp\Debug.txt" For Append as #1
Print #1, Texto
Close #1
 
Cnn.Execute Texto

Esto crea un fichero con la secuencia SQL que estas montando.
Abre el fichero con un editor de textos y podrás ver lo que hay y analizar donde esta el fallo.
Si no se llega a grabar el fichero es que hay alguna variable que es mal.

En caso de que no lo veas prueba esto otro:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
T1 = "UPDATE WMS_FoliosSurtido Set EstatusSolicitud = 'TERMINADO'"
T2 = " ,[Lote / OC] = '"          & .ListItems(j).ListSubItems(12).Text & "'"
T3 = " ,CantidadSalida = "        & .ListItems(j).ListSubItems(11).Text
T4 = " ,FechaTermino = '"         & .ListItems(j).ListSubItems(13).Text & "'"
T5 = " ,RegistroKdx_WMS = '"      & .ListItems(j).ListSubItems(14).Text & "'"
T6 = " ,FechaActualizacion = '"   & Format(Date, "DD/MM/YYYY HH:mm")    & "'"
T7 = " ,UsuarioActualizacion = '" & UsuarioActual & "-" & UsuarioRed    & "'"
T8 = " where Id IN (" & xRegistro & ")"
 
Open "C:\Tmp\Debug.txt" For Append as #1
Print #1, T1 & T2 & T3 & T4 & T5 & T6 & T7 & T8
Close #1
 
Cnn.Execute T1 & T2 & T3 & T4 & T5 & T6 & T7 & T8

Y a ver en qué línea da el error.


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

ERROR DE EJECUCIÓN

Publicado por Raúl Mejía rmejia153@msn.com (18 intervenciones) el 11/10/2019 01:36:05
Hola Ricardo y Antoni, creo que sigue faltando una comilla simple en esta línea:

" ,CantidadSalida = ' " & .ListItems(j).ListSubItems(11).Text & " ' " & _

Saludos a ambos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 21
Ha aumentado su posición en 48 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ERROR DE EJECUCIÓN

Publicado por RICARDO (9 intervenciones) el 11/10/2019 19:20:40
pues ya intente lo que mencionan y sigue sin funcionar, de hecho no me deja crear el fichero de ninguna de los 2 formas

Seguiré buscando el problema


Gracias

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar