Così compongo la query
codice:
SQLAltriDati = "SELECT TOP 1 "
SQLAltriDati = SQLAltriDati & "(SELECT COUNT(Donazioni_Amount) FROM Principale WHERE Payment_Method_Code = 2) AS QuantiBonifici, "
SQLAltriDati = SQLAltriDati & "(SELECT SUM(Donazioni_Amount) FROM Principale WHERE Payment_Method_Code = 2) AS QuantoBonifici, "
SQLAltriDati = SQLAltriDati & "(SELECT COUNT(Donazioni_Amount) FROM Principale WHERE Payment_Method_Code = 1) AS QuantiPostali, "
SQLAltriDati = SQLAltriDati & "(SELECT SUM(Donazioni_Amount) FROM Principale WHERE Payment_Method_Code = 1) AS QuantoPostali, "
SQLAltriDati = SQLAltriDati & "(SELECT COUNT(Donazioni_Amount) FROM Principale WHERE Payment_Method_Code = 4) AS QuantiCarta, "
SQLAltriDati = SQLAltriDati & "(SELECT SUM(Donazioni_Amount) FROM Principale WHERE Payment_Method_Code = 4) AS QuantoCarta "
SQLAltriDati = SQLAltriDati & "FROM Principale"
Uso TOP 1 perchè altrimenti facendo la query mi risultano vari record...
Così valorizzo
codice:
if not rs.EOF then
Dim QuantiBonifici, QuantoBonifici, QuantiPostali, QuantoPostali, QuantiCarta, QuantoCarta
QuantiBonifici = rs("QuantiBonifici")
QuantoBonifici = rs("QuantoBonifici")
QuantiPostali = rs("QuantiPostali")
QuantoPostali = rs("QuantoPostali")
QuantiCarta = rs("QuantiCarta")
QuantoCarta = rs("QuantoCarta")
end if