Sentencia SQL para lograr el Ranking de los 5 productos mas vendidos

[gasafonso]

Hola mi pregunta es compleja haber:

Yo quiero que este comando(cmdRanking) me tire los 10 productos mas vendidos
Como dato tengo que la :
Una tabla que se llama Tbarticulos
otra tbdetallefactura

SELECT TOP 10 Sum(Val(tbDetalleFactura.Cantidad)) AS total, Max(tbArticulos.Descripcion) AS des, Max(tbDetalleFactura.fecha) AS MáxDefecha, Sum(tbDetalleFactura.Subtotal) AS sub, tbDetalleFactura.CodigoProd, Max(tbArticulos.Codigo) AS cod
FROM tbDetalleFactura INNER JOIN tbArticulos ON tbDetalleFactura.CodigoProd = tbArticulos.Codigo
WHERE (((tbDetalleFactura.fecha) Between [?] And [?]))
GROUP BY tbDetalleFactura.CodigoProd, tbDetalleFactura.fecha


y un formulario que tiene 2 dtpicker que seria las varibles (?) y las paso asi :

Private Sub CmdRanking_Click()
If DsrListado.rscmdRanking.State = adStateOpen Then
DsrListado.rscmdRanking.Close
End If
DsrListado.CmdRanking Format(DTPicker1.Value, "mm/dd/yyyy"), Format(DTPicker2.Value, "mm/dd/yyyy") 'DsrListado.CmdRanking DTPicker1.Value, DTPicker2.Value ',txtarticulos,
Load DtRepRanking
DtRepRanking.Show................................. ...............

el problema es que si le pongo la misma fecha a los dtpicker me tira bien el informe pero si le pongo fechas distintas me pone cualquier cosa

Muchas gracias

[boluart]

que tal si cambias tu consulta por :

Iniciado por gasafonso

SELECT TOP 10 Sum(Val(tbDetalleFactura.Cantidad)) AS total, Max(tbArticulos.Descripcion) AS des, Max(tbDetalleFactura.fecha) AS MáxDefecha, Sum(tbDetalleFactura.Subtotal) AS sub, tbDetalleFactura.CodigoProd, Max(tbArticulos.Codigo) AS cod
FROM tbDetalleFactura INNER JOIN tbArticulos ON tbDetalleFactura.CodigoProd = tbArticulos.Codigo
WHERE (((tbDetalleFactura.fecha) Between [?] And [?]))
GROUP BY tbDetalleFactura.CodigoProd, tbDetalleFactura.fecha

SELECT TOP 10 Sum(Val(tbDetalleFactura.Cantidad)) AS total, Max(tbArticulos.Descripcion) AS des, Max(tbDetalleFactura.fecha) AS MáxDefecha, Sum(tbDetalleFactura.Subtotal) AS sub, tbDetalleFactura.CodigoProd, Max(tbArticulos.Codigo) AS cod
FROM tbDetalleFactura INNER JOIN tbArticulos ON tbDetalleFactura.CodigoProd = tbArticulos.Codigo
WHERE (((tbDetalleFactura.fecha) Between [?] And [?]))
GROUP BY tbDetalleFactura.CodigoProd, tbDetalleFactura.fecha
order by Sum(Val(tbDetalleFactura.Cantidad)) desc

o mejor dicho solo aumentale la ultima linea

[gasafonso]

No, no me tira ningun registro


Desde ya 1.000.000 de gracias


PD: Se ve que es dificil por que hace 4 meses que estoy con este problema y nadie me lo sabe responder

[boluart]

sino te retorna nigun registro quizas tenga problemas la condicion
quitale la condicion where

WHERE (((tbDetalleFactura.fecha) Between [?] And [?]))

y pruebalo nuevamente

y reemplaza:

GROUP BY tbDetalleFactura.CodigoProd, tbDetalleFactura.fecha

por

GROUP BY tbDetalleFactura.CodigoProd

[gasafonso]

yo paso las variables de esta forma e3sta bien ?

If DsrListado.rscmdRanking.State = adStateOpen Then
DsrListado.rscmdRanking.Close
End If
DsrListado.CmdRanking Format(DTPicker1.Value, "mm/dd/yyyy"), Format(DTPicker2.Value, "mm/dd/yyyy") 'DsrListado.CmdRanking DTPicker1.Value, DTPicker2.Value ',txtarticulos,
Load DtRepRanking
DtRepRanking.Show

[boluart]

mira hasta donde tengo entendido eso depende de la version de tu sql y del idioma, para saber que formato tienes puedes abrir tu sql y ejecuta select GetDate(), y de ahi te fijas cual es tu formato, si es dd/MM/yy o MM/dd/yy o cualquiera que sea.

[gasafonso]

Sigo igual, voya probar un poco mas, pero si le saco el WHERE me tira todas las fechas y sin agrupar por el codigo y desacomodadas


Me esta volviendo loco

[boluart]

la agrupacion deberia ser asi:


GROUP BY tbDetalleFactura.CodigoProd, year(tbDetalleFactura.fecha ), month(tbDetalleFactura.fecha )


solo los agrupa por codigo, año y mes

[gasafonso]

No pasa nada , ecima tengo que entragar un trabajo el jueves


A vos te molesta si te mando el proyecto por mail para que lo mires?


gracias

[boluart]

Porque no cuelgas la base de datos en un lugar publico donde todos podamos verlo y ayudarte.
PD: Creo que bastaria con la base de datos y asi te envio la consulta respectiva

[gasafonso]

Como se cuelga una base de datos y Donde se "cuelga" ?


No soy muy experto de en esto ja ja


gracias

[boluart]

nose hay muchos sitios como sendspace , creas tu cuenta , la subes y nos envias el enlace del archivo.

[gasafonso]

hola Boluart

ya lo colge en


http://www.sendspace.com/file/j5m7q4


Yo lo que quiero es que me muestre

tabla
la cantidadVendida(tbdetallefactura)
descripcion (tbarticulos)
precio (tbdetallefactura)
total (tbdetallefactura)
CodidoProd (tbarticulos)
numFactura (tbdetallefactura)


Gracias

Where tbdetallefactura.CodigoProd =tbarticulos.codigo

[gogupe]

Hola, esto es solo una sugerencia...

he visto tu bd y pienso que deberías poner una id única en cada tabla, yo particularmente no veo la forma de relacionar entre una tabla y otra.

Saludos.

[gasafonso]

Puedee ser que tengas Razon gogupe , pero la verdad que nunca me maneje con id y no se como hacerlo


Yo las relaciono por los codigo de productos


gracias

[boluart]

haber si sale con esto:

select CodigoProd , MAX(Descripcion) AS 'PRODUCTO', year(fecha) as 'AÑO', MONTH(fecha) AS 'MES'
from tbDetalleFactura
inner join tbarticulos on tbarticulos.Codigo = tbDetalleFactura.CodigoProd
group by CodigoProd , year(fecha), MONTH(fecha)
order by CodigoProd , year(fecha), MONTH(fecha)

lo probe con access 2007 , solo faltaria ponerle la condicin de fechas
y el limite de registros que quieres ver TOP 5

[gasafonso]

Muy bueno , pero lo que yo necesito es que me tire lo vendido entre Dtpicker1 y dtpicker2 que me sume los valores

Ejemplo


Desde 01/01/08 al 01/05/08
cod descripcion cantidad Precio
1 Agroquimicos 10 2110,51
2 Semillas 40 2845,00



donde precio es la sumatoria de todos los precios vendidos



Gracias capó

[boluart]

select CodigoProd , MAX(Descripcion) AS 'PRODUCTO', sum(cantidad) as 'suma cantidad', sum(precio) AS 'suma precioa'
from tbDetalleFactura
inner join tbarticulos on tbarticulos.Codigo = tbDetalleFactura.CodigoProd
group by CodigoProd
order by CodigoProd


y por ultimo le agregas la condicion where con las fechas

[gasafonso]

Lo probe en access y no me tira ningun dato , le cambio dd x mm(mm/dd/aaaa) y ahi si me lo da

SELECT CodigoProd, MAX(Descripcion) AS ['PRODUCTO'], sum(cantidad) AS ['suma cantidad'], sum(total) AS ['suma precioa']
FROM Tabla1 INNER JOIN tbarticulos ON tbarticulos.Codigo = Tabla1.CodigoProd
WHERE Tabla1.fecha between # 5/09/2009 # and #5/09/2009 #
GROUP BY CodigoProd
ORDER BY CodigoProd;


Donde 5 es el mes


Luego tengo que reemplazar por las variables

[gasafonso]

Mi Sentencia es estay no pasa nada

SELECT tbDetalleFactura.CodigoProd, MAX(tbarticulos.Descripcion) AS `PRODUCTO`, SUM(tbDetalleFactura.cantidad) AS `suma cantidad`, SUM(tbDetalleFactura.subtotal) AS `suma precio` FROM tbDetalleFactura INNER JOIN tbarticulos ON tbarticulos.Codigo = tbDetalleFactura.CodigoProd WHERE tbDetalleFactura.fecha
WHERE (((tbDetalleFactura.fecha) Between [?] And [?]))
ORDER BY tbDetalleFactura.CodigoProd

[boluart]

Iniciado por gasafonso

Mi Sentencia es estay no pasa nada

Pero por lo menos ya te devuelve valores?

[gasafonso]

No , no me reconoce el comamdo

No tira ningun dato da error



gracias

[boluart]

Iniciado por gasafonso

No , no me reconoce el comamdo
No tira ningun dato da error
gracias

Lo mas practico en estos casos es abrir tu base de datos en Access ahi hacer la consulta (Generar el codigo SQL) y luego en VB6 copiar ese codigo,

A que te refieres con que no te reconoce el comando?
y por cierto cual es el error que retorna?

[gasafonso]

Yo ejecute esta SQL em access y me la tira bien

SELECT TOP 5 CodigoProd, MAX(Descripcion) AS ['PRODUCTO'], sum(cantidad) AS ['suma cantidad'], sum(subtotal) AS ['suma precioa']
FROM Tabla1 INNER JOIN tbarticulos ON tbarticulos.Codigo = Tabla1.CodigoProd
WHERE Tabla1.fecha between #4/21/2009 # and #5/18/2009 #
GROUP BY CodigoProd
ORDER BY CodigoProd;


Pero Cuando la paso a access que debo cambiar esas fecha por variables no me reconoce en Comando del DataEnvironment



gracias

[culd]

Me acabas de mandar un mensaje privado, estoy bajando la base de datos...

Decime BREVEMENTE lo que queres hacer... Lei todo esto, y lei el mensaje privado y se mezclo todo... Decime exactamente lo que necesitas aca

[gasafonso]

Quiero listar los 5 productos mas vendido entre 2 fechas( que las cargo como variables)

en un formulario

[seba123neo]

Hola, que queres hacer mostrar un reporte..??? con el DataReport?? simplemente abri un recordset con esa consulta y le asignas ese recordset al .DataSource del reporte y listo...ni necesitas dataenviroment...nunca lo he usado...

saludos.

[gasafonso]

Iniciado por seba123neo

Hola, que queres hacer mostrar un reporte..??? con el DataReport?? simplemente abri un recordset con esa consulta y le asignas ese recordset al .DataSource del reporte y listo...ni necesitas dataenviroment...nunca lo he usado...

saludos.

Pero como le asinas el Datasource?

perdona mi ignorancia pero no trabajo asi

[seba123neo]

vos esa consulta la abris en un recordset no?? por ejemplo..

Recordset.Open "Tu Consulta", TuConeccion

despues le asignas el recordset al .Datasource del DataReport...

TuReporte.DataSource = Recordset

y por ultimo mostras el datareport...

TuReporte.Show

y listo en el datareport te aparece lo que esta en la consulta...obviamente debes armar el datareport con los campos que estan en la consulta sino te va a tirar error...

saludos.

[gasafonso]

Iniciado por seba123neo

vos esa consulta la abris en un recordset no?? por ejemplo..

Recordset.Open "Tu Consulta", TuConeccion

despues le asignas el recordset al .Datasource del DataReport...

TuReporte.DataSource = Recordset

y por ultimo mostras el datareport...

TuReporte.Show

y listo en el datareport te aparece lo que esta en la consulta...obviamente debes armar el datareport con los campos que estan en la consulta sino te va a tirar error...

saludos.

Si pero sabes lo que pasa Seba123neo es que yo primero tengo que ingresar 2 fechzas en 2 dtpicker (variables)



gracias