Visual Basic - No veo el error por ningún sitio

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

No veo el error por ningún sitio

Publicado por Alejandro (15 intervenciones) el 19/02/2019 20:15:53
Hola amigos:

Estoy ejecutando este código y me da error.
No hago más que darlo vueltas y no veo donde está.
Echadme una mano, por favor.

1
2
3
Dim MiSql As String
MiSql = "SELECT Facturas.* FROM Facturas WHERE Facturas.Epigr LIKE '*312A01*' AND Facturas.Epigr LIKE '*12/*';"
Me.nResultado = DSum("[FacImport]", "Facturas", MiSql)

Muchas gracias.

Un cordial saludo.
001
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 joel
Val: 8
Ha aumentado su posición en 8 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

No veo el error por ningún sitio

Publicado por joel (1 intervención) el 20/02/2019 08:05:25
Hola Alejandro, que de base de datos estas utilizando?

Prueba dos cosas...
1.- Quita el punto y coma del final
1
MiSql = "SELECT Facturas.* FROM Facturas WHERE Facturas.Epigr LIKE '*312A01*' AND Facturas.Epigr LIKE '*12/*'"

2.- Quita el nombre de la tabla delante de los campos
1
MiSql = "SELECT * FROM Facturas WHERE Epigr LIKE '*312A01*' AND Epigr LIKE '*12/*'"

4.- Si utilizas MySQL el like es con %
1
MiSql = "SELECT * FROM Facturas WHERE Epigr LIKE '%312A01%' AND Epigr LIKE '%12/%'"

Te ha servido alguna solución?
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
sin imagen de perfil
Val: 27
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

No veo el error por ningún sitio

Publicado por Alejandro (15 intervenciones) el 20/02/2019 08:54:25
Estoy utilizando Access.

He probado todas las posibilidades que me das, y nada continúa dando error.

1
MiSql = "SELECT * FROM Facturas WHERE Epigr LIKE '*312A01*' AND Epigr LIKE '*12/*'"
1
MiSql = "SELECT Facturas.* FROM Facturas WHERE Epigr LIKE '*312A01*' AND Epigr LIKE '*12/*'"

Un saludo.
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.102
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

No veo el error por ningún sitio

Publicado por Antoni Masana (391 intervenciones) el 20/02/2019 11:24:29
Creo que nos estamos despistado con el error.
Creo que la ejecución de la línea 1 y 2 son correctas.

Para saber si la consulta SQL es correcta es muy sencillo la copias en una consulta y la ejecutas y veras si funciona.

1
2
3
SELECT Facturas.*
FROM Facturas
WHERE Facturas.Epigr LIKE '*312A01*' AND Facturas.Epigr LIKE '*12/*';

Una vez eliminada esta variable de la ecuación queda pendiente si esto esta bien, si son correctos los parámetros y la sintaxis

1
Me.nResultado = DSum("[FacImport]", "Facturas", MiSql)


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
sin imagen de perfil
Val: 27
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

No veo el error por ningún sitio

Publicado por Alejandro (15 intervenciones) el 20/02/2019 19:48:13
Muchas gracias, pero me sigue dando error.
Harto ya de no encontrarlo he optado por otra solución que sí que funciona.

1
2
3
4
Dim txtFiltro As String
txtFiltro = "Epigr LIKE '*312A01*' AND Epigr LIKE '*12/*'"
Me.nResultado = DSum("[FacImport]", "Facturas", txtFiltro)

Un saludo.
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
sin imagen de perfil
Val: 123
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

No veo el error por ningún sitio

Publicado por raul (56 intervenciones) el 20/02/2019 23:08:55
me parece que tu error no esta en la consulta y estas arando en el mar

Por regla general cuando un error es de sisntaxis se te notifica de forma clara o mediante pistas para indicarte que no entiende el sistema

aveces el error esta en el servidor sobretodo cuando la consulta la realizas sobre una view fisica que incluye el error y más aun cuando se incluyen ecuaciones dentro de estas view sin el debido tratamiento.

Coje calma y comienza por revizar en el servidor
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