ordinare quantità sommate

**nikasil** · 23-03-2012, 12:33

ciao...non so se sia una domanda cretina...ma nn so come fare...

devo conteggiare le quantità di prodotti venduti e faccio così:

Dim rs9, sql9
Set rs9 = Server.CreateObject("ADODB.Recordset")

sql9 = "SELECT * FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%'"

Set rs9.ActiveConnection = cn
rs9.CursorType = 1
rs9.LockType = 3
rs9.CursorLocation = 2
rs9.Open sql9, cn
conteggio=0
do until rs9.eof
qut=rs9("quantita")
conteggio=conteggio+qut
rs9.movenext
loop

rs9.close
set rs9=nothing

ma ad ordinare la visualizzazione dei dati in base a CONTEGGIO cioè dalla quantità + alta a quella + bassa?

**saucer** · 23-03-2012, 14:14

probabilmente non ho capito, ma la butto li :

codice:

sql9 = "SELECT sum(quantita) as qta FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%' "

e poi troverai in qta la somma di tutte le quantita' che corrispondono alle condizioni poste.

**nikasil** · 23-03-2012, 14:36

ciao grazie per la risposta....il problema non è effettuare la somma ma ordinare poi i risultati dal + alto al + basso della variabile popolata conteggio o nel tuo caso quantita...sinceramente nn so come fare....

grazie

**optime** · 23-03-2012, 16:08

... ORDER BY 1 DESC

(cioè per la prima colonna del recordset restituito, in ordine discendente)

**nikasil** · 23-03-2012, 17:42

ok posto il codice che funziona...ma che nn mi ordina per quantità decrescente...

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim cn Set cn = Server.CreateObject("ADODB.Connection") cn.ConnectionString="DRIVER={MySQL ODBC 3.51 Driver};SERVER=XXXXXXXXXX;PORT=3306;DATABASE=XXXXXXXXX; USER=XXXXXXX;PASSWORD=XXXXXXX;OPTION=3;" cn.open periodo2="2012-03" Dim rs9, sql9 Set rs9 = Server.CreateObject("ADODB.Recordset") sql9 = "SELECT * FROM ordini WHERE data LIKE '%"&periodo2&"%' order by data desc" 'sql9 = "SELECT sum(quantita) as qta FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%' ORDER BY 1 DESC" Set rs9.ActiveConnection = cn rs9.CursorType = 1 rs9.LockType = 3 rs9.CursorLocation = 2 rs9.Open sql9, cn conteggio=0 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Documento senza titolo</title> </head> <body> <% conteggio=0 do until rs9.eof prod=rs9("id_prodotto") Dim rs, sql Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%' ORDER BY 1 DESC" 'sql = "SELECT sum(quantita) as qta FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%' ORDER BY 1 DESC" Set rs.ActiveConnection = cn rs.CursorType = 1 rs.LockType = 3 rs.CursorLocation = 2 rs.Open sql, cn conteggio=0 do until rs.eof qut=rs("quantita") conteggio=conteggio+qut rs.movenext loop %> <%=rs9("prodotto")%> - <%=conteggio%> 
 <% rs9.movenext loop rs.close set rs=nothing rs9.close set rs9=nothing %> </body> </html>

ho provato con sql9 = "SELECT sum(quantita) as qta FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%' ORDER BY 1 DESC" ma a me qta nn mi si popola....

vai optime...insultami....

**optime** · 23-03-2012, 18:13

Originariamente inviato da nikasil

vai optime...insultami....

perché infierire con uno che ha già tante difficoltà? copia e incolla illeggibile, scrittura da sms, ...

**nikasil** · 23-03-2012, 18:47

ahahahah sei una iena

**nikasil** · 23-03-2012, 19:40

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString="DRIVER={MySQL ODBC 3.51 Driver};SERVER=XXXXXXXXXXXXXXX;PORT=3306;DATABASE= XXXXXXXX; USER=XXXXXX;PASSWORD=XXXXXXXXX;OPTION=3;"
cn.open

periodo2="2012-03"
Dim rs9, sql9
Set rs9 = Server.CreateObject("ADODB.Recordset")

sql9 = "SELECT * FROM ordini WHERE data LIKE '%"&periodo2&"%' order by data desc"
'sql9 = "SELECT sum(quantita) as qta FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%' ORDER BY 1 DESC"

Set rs9.ActiveConnection = cn
rs9.CursorType = 1
rs9.LockType = 3
rs9.CursorLocation = 2
rs9.Open sql9, cn

do until rs9.eof

prod=rs9("id_prodotto")

Dim rs, sql
Set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%' ORDER BY 1 DESC"
'sql = "SELECT sum(quantita) as qta FROM ordini WHERE id_prodotto='"&prod&"' and data LIKE '%"&periodo2&"%' ORDER BY 1 DESC"

Set rs.ActiveConnection = cn
rs.CursorType = 1
rs.LockType = 3
rs.CursorLocation = 2
rs.Open sql, cn
conteggio=0
do until rs.eof
qut=rs("quantita")
conteggio=conteggio+qut
rs.movenext
loop

%>
<%=rs9("prodotto")%> - <%=conteggio%>

<%
rs9.movenext
loop

rs.close
set rs=nothing
rs9.close
set rs9=nothing
%>

problema: io devo ordinare i prodotti stampati per quantità data da CONTEGGIO

**optime** · 23-03-2012, 20:47

ma perché te li riconti a mano? la SUM() di saucer non andava bene?

**nikasil** · 25-03-2012, 16:59

perchè a me nella mia infinita stupidità qta mi restituisce sempre...niente...rimane vuota

Discussione: ordinare quantità sommate

Strumenti discussione

Ricerca discussione

Visualizza

ordinare quantità sommate

Permessi di invio