Select sum no me funciona

[guillebomtrasmiti]

VIENDO ESTE CODIGO ME PUEDEN DECIR POR QUE NO ME SACA LA SUMA DE CANTIDAD POR PTS SOLO Y CUANDO EL CAMPO NOMBREFORMAPAGO SEA TARJETA CREDITO....DIOSSSS AYUDAAAAA


Dim adapta1 As New OleDbDataAdapter
Dim datavacio As New DataSet
conexion.Open()

Dim coman1 = conexion.CreateCommand
coman1.CommandType = CommandType.Text
coman1.CommandText = "Select Sum(Cantidad*Pts),NombreFormaPago From [Introducción De Ventas] Where NombreFormaPago ('TARJETA CREDITO') GROUP BY NombreFormaPago ORDER BY NombreFormaPago"

adapta1.SelectCommand = coman1
adapta1.Fill(datavacio, "[Introducción De Ventas]")

Dim Lector1 = coman1.ExecuteScalar
LbTarTotal.Text = Lector1.ToString
conexion.Close()

[Fann_Lavigne]

Creo que tu Query deberia ser::


Select Sum(Cantidad*Pts) As NombreFormaPago From [Introducción De Ventas] Where (NombreFormaPago = 'TARJETA CREDITO') GROUP BY NombreFormaPago ORDER BY NombreFormaPago

O de la sifuiente forma,


Select Sum(Cantidad*Pts) As Cantidad, NombreFormaPago From [Introducción De Ventas] Where (NombreFormaPago = 'TARJETA CREDITO') GROUP BY NombreFormaPago ORDER BY NombreFormaPago

[pancho2413]

Esta pregunta no debe estar aquí, sino en la sección de bases de datos