Hola, estoy intentando poner una consulta de sql que funciona bien cuando lo ejecuto en el query analizer pero en VB me da error. Me pueden decir que es lo que esta mal y como debe ser ?

Query Analyzer

select a.idproducto,b.Descripcion,
sum(case when tipo = 'NC' then preciounitario * -1
else preciounitario end)
from movimientoventas a join productos b on a.idproducto = b.idproducto
group by a.idproducto,b.Descripcion

Programa VB

Set rs = cls.Consultar("select a.IdProducto, sum(case a.Tipo = 'NC' then a.PrecioUnitario * -1 else a.PrecioUnitario end) as Suma from MovimientoVentas a join Productos b on a.IdProducto = b.IdProducto group by a.IdProducto, b.Descripcion" & "")

Saludos cordiales.

Fabian

Proba asi. lo unico que le encontre erroneo a simple vista es el final, ya que no lo puedo probar en la pc en que estoy ahora


Set rs = cls.Consultar("select a.IdProducto, sum(case a.Tipo = 'NC' then a.PrecioUnitario * -1 else a.PrecioUnitario end) as Suma from MovimientoVentas a join Productos b on a.IdProducto = b.IdProducto group by a.IdProducto, b.Descripcion")

Proba asi. lo unico erroneo qu pude ver a simple vista es el final, ya que en la pc que estoy no lo puedo probar, espero que te sirva. Saludos Edu


Set rs = cls.Consultar("select a.IdProducto, sum(case a.Tipo = 'NC' then a.PrecioUnitario * -1 else a.PrecioUnitario end) as Suma from MovimientoVentas a join Productos b on a.IdProducto = b.IdProducto group by a.IdProducto, b.Descripcion")