Resumen de Consulta VB6 y SQL
Publicado por Josue Duque (4 intervenciones) el 12/01/2011 00:22:09
Ante todo amigos buenas noches
Yo estoy programando en Visual Basic 6.0
Y tengo una Base de dato llamada ConKardex en ella contiene lo siguiente:
TMov, CodProd, Descripcion, Unidad, CostUni, Total, Fecha
En mi codigo tengo lo siguiente
Dim RS As ADODB.Recordset
Dim SQL As String
SQL = "SELECT Descripcion, Unidad, CostUni, Total From ConKardex WHERE Fecha LIKE '%" & DTPicker1.Value & "%' And TMov LIKE '%V%' ORDER BY Descripcion"
Set RS = Conexion.Execute(SQL)
Set DataGrid1.DataSource = RS
Ya la conexión esta hecha en el modulo y funciona el código anterior mi problema es que quiero hacer un resumen de toda la data ya que permite que el CodProd sea repetitivo y quiero un resumen lo que tendría que hacer es lo siguiente en el SQL:
SQL = "SELECT Descripcion, SUM(Unidad), CostUni, SUM(Total) From ConKardex GROUP BY Descripcion, Unidad, CostUni, Total WHERE Fecha LIKE '%" & DTPicker1.Value & "%' And TMov LIKE '%V%' ORDER BY Descripcion"
Nose porque pero siempre me da error y no logro conseguirlo para ver si me podrian ayudar.
Atentamente
Josue Duque
Yo estoy programando en Visual Basic 6.0
Y tengo una Base de dato llamada ConKardex en ella contiene lo siguiente:
TMov, CodProd, Descripcion, Unidad, CostUni, Total, Fecha
En mi codigo tengo lo siguiente
Dim RS As ADODB.Recordset
Dim SQL As String
SQL = "SELECT Descripcion, Unidad, CostUni, Total From ConKardex WHERE Fecha LIKE '%" & DTPicker1.Value & "%' And TMov LIKE '%V%' ORDER BY Descripcion"
Set RS = Conexion.Execute(SQL)
Set DataGrid1.DataSource = RS
Ya la conexión esta hecha en el modulo y funciona el código anterior mi problema es que quiero hacer un resumen de toda la data ya que permite que el CodProd sea repetitivo y quiero un resumen lo que tendría que hacer es lo siguiente en el SQL:
SQL = "SELECT Descripcion, SUM(Unidad), CostUni, SUM(Total) From ConKardex GROUP BY Descripcion, Unidad, CostUni, Total WHERE Fecha LIKE '%" & DTPicker1.Value & "%' And TMov LIKE '%V%' ORDER BY Descripcion"
Nose porque pero siempre me da error y no logro conseguirlo para ver si me podrian ayudar.
Atentamente
Josue Duque
Valora esta pregunta


0