[vb6] query importi trimestrali

[Barbastreyo]

ciao, ho un problema: ho una tabella access con i campi
importo e data e voglio fare una query che mi trovi la somma degli importi per trimestre. o al limite se non è una query una procedura vb che lo faccia. grazie a los gurus

[giorgiogio48]

Allora...
Crei un nuovo progetto VB. Carichi un form con due pulsanti e tre textbox. La tabella con i tuoi due campi la chiami "Trimestre".
Poi nel form inserisci questo codice.

Per sapere la somma in un qualsiasi periodo da te scelto:
Private Sub Command1_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qu As QueryDef
On Error Resume Next
Set db = OpenDatabase("Percorso del database")
Set rs = db.OpenRecordset("Trimestre")
Set qu = db.QueryDefs("Report")
db.QueryDefs.Delete qu.Name
SQL = "select sum(Importo) as Somma from trimestre where data between #" & Format(Text1, "mm / d / yy") & "# and #" & Format(Text2, "mm/ d / yy") & "#"
Set qu = db.CreateQueryDef("Report", SQL)
Set rss = db.OpenRecordset("report")
Text3 = rss(0)
End Sub

Per sapere la somma nell'ultimo trimestre:
Private Sub Command2_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rss As DAO.Recordset
On Error Resume Next
Dim qu As QueryDef
Set db = OpenDatabase("Percorso del database")
Set rs = db.OpenRecordset("Trimestre")
Set qu = db.QueryDefs("Report")
db.QueryDefs.Delete qu.Name
SQL = "select sum(Importo) as Somma from trimestre where data between #" & Format(Date - 90, "mm / d / yy") & "# and #" & Format(Date, "mm / d / yy") & "#"
Set qu = db.CreateQueryDef("Report", SQL)
Set rss = db.OpenRecordset("report")
Text3 = rss(0)
End Sub

E cerca di capire il codice per tue altre creazioni.
Se poi hai bisgno di qualche spiegazione chiedi. Ho capito che tu badi all'essenziale e fai bene.
Ciao.

[Barbastreyo]

grazie. è perfetto