VB database e somma per mese

[gyonny]

salve ragazzi

devo caricare i totali per mese in alcune variabili, in pratica per ogni mese devo avere i totali degli importi effettuati.

private myDati(1 to 12)

'mydati è la variabile in cui caricare i dati 
'mydati(1) gennaio
'mydati(2) febbraio ecc..

'questo il codice che mi collego al database access
Set DatDb1 = New ADODB.Connection
  DatDb1.CursorLocation = adUseClient
  DatDb1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\db1.mdb" & "
  Set RecRS = New ADODB.Recordset
  RecRS.Open "select * from clienti ", DatDb1, adOpenStatic, adLockOptimistic
 
' i dati che mi interessano sono in due campi
' il primo campo (data) in formato data 
' ed il secondo campo (importo) in formato numerico double

qualcuno sa come fare?

ciao e grazie
gyonny

[xegallo]

select sum(importo)
from clienti
order by Data

[gyonny]

scusa xe
ma i mesi sono 12, devo ciclare il recordset per 12 volte? uno per ogni mese?
inoltre nel database ci sono circa 6500 record per tre anni di attività, come faccio a estrapolare solo i mesi di un anno?

[xegallo]

select distinct
      coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20020101 and 20020131),0)as impGen
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20020201 and 20020229),0)as impFeb
     , coalesce((select sum(importo)as Imp
  	   from Clienti
          where data between 20020301 and 20030331),0)as impMar
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20020401 and 20020431),0)as impApr
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20020501 and 20020351),0)as impMag
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20020601 and 20020631),0)as impGiu
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20020701 and 20020731),0)as impLug
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20020801 and 20020831),0)as impAgo
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20020901 and 20020931),0)as impSet
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20021001 and 20021031),0)as impOtt
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20021101 and 20021131),0)as impNov
     , coalesce((select sum(importo)as Imp
  	  from Clienti
         where data between 20021201 and 20021231),0)as impDic
from clienti

apri con questa query