[VB6] Problema raggruppamento

[nikeddy]

Salve a tutti, io vorrei sapere come posso contare i giorni in cui viene fatta una determinata cosa, uso un database access e una maschera in vb6 per interrogare i dati.

praticamente io ho un db access cosi strutturato :

NUM_scatola
 
DTA_RIL
 
LGO_RIL
 


22120389265
 
23-lug-12
 
10365
 


22120389266
 
24-lug-12
 
8941
 


22120389267
 
24-lug-12
 
10365
 


22120389394
 
24-lug-12
 
10365
 


22120390710
 
26-lug-12
 
10365
 


22120390711
 
26-lug-12
 
5727
 


22120388270
 
27-lug-12
 
8158
 


Praticamente a me serve raggruppare i giorni , e sapere quanti giorni e' presente un luogo.

per esempio il 10365 e' presente 3 giorni, il 23 il 24 (anche se 2 scatole ha depositato per me ha lavorato 1 giorno.) e il 25.


io praticamente sto provando in ogni modo, ma non riesco!

Set grsCasaPro = New ADODB.Recordset
   gsSQL = "SELECT DTA_RIL From " & scerca & " WHERE  LGO_RIL = " & ivia & ""
      grsCasaPro.Open gsSQL, gCnDatabase
      Do While grsCasaPro.EOF = False
     bcontam = True
      grsCasaPro.MoveNext
         
             Loop
             If bcontam = True Then
      numerogiorni = numerogiorni + 1
       End If
       bcontam = False
    grsCasaPro.Close

cosi non va'!


aiutoooooooooooooo

[gibra]

In questi casi non si scorre un recordset, ma si usano le funzioni di aggregazione appropriate (Count). Prova così:

Set grsCasaPro = New ADODB.Recordset
gsSQL = "SELECT DTA_RIL, COUNT(*) As NumGiorni "
gsSQL = gsSQL & " FROM " & scerca 
gsSQL = gsSQL & " WHERE LGO_RIL = " & ivia
gsSQL = gsSQL & " GROUP BY DTA_RIL "

Set grsCasaPro = gCnDatabase.Execute(gsSQL)

Poi se vuoi vedere il risultato in maniera estemporanea puoi scorrere il recordset:

Do While Not grsCasaPro.Eof
    Debug.Print grsCasaPro(0), grsCasaPro(1)
    grsCasaPro.MoveNext
Loop