[VB6] Inserimento di date in una ricerca

[Magicolotto]

NEL ciclo sotto riportato rilevo tutti i terni piu' frequenti nel tabellone delle estrazioni

funziona bene, pero' ho un problema, a terno rilevato dovrei scrivere anche la data in cui sono sortiti


se per esempio rilevo la frequenza di un terno che è uguale a tre, come da codice sotto scritto, mi scive solo la data dell'ultimo terno rilevato, e non le tre date del terno


come posso a far si che risca a scrivere le date dei terni frequenti rilevati???

grazie anticipatamente sperando in una vostra collaborazione

While Not datPrimaryRS.EOF


   max1 = 0
max2 = 0
max3 = 0
     For i = 2 To 47 Step 5 
        For j = i To j + 4
            For k = j + 1 To i + 4
             For q = k + 1 To i + 4
             
                
            max1 = i
            max2 = j
            max3 = q
            maxvolte = 0
            
            dat = datPrimaryRS(1)
             sb = datPrimaryRS(j)
              st = datPrimaryRS(k)
              sc = datPrimaryRS(q)
              terni(sb, st, sc) = terni(sb, st, sc) + 1
                maxvolte = terni(sb, st, sc)
                  ' se trova  una frequenza minima di un terno = a 2 
               If terni(sb, st, sc) >= 2 Then
                List3.AddItem maxvolte & " Sortite del  " & CStr(sb) & "  " & CStr(st) & "  " & CStr(sc) & " in data " & dat
            
                      End If
                 
                   Next q
             
            Next k
        Next j
    Next i
      datPrimaryRS.MoveNext
Wend

[oregon]

E' quasi impossibile rispondere alla tua domanda senza conoscere

1) struttura del db

2) la query che ha generato il recordset

3) il significato dei cicli e degli indici ...

[Magicolotto]

Originariamente inviato da oregon
E' quasi impossibile rispondere alla tua domanda senza conoscere

1) struttura del db
2) la query che ha generato il recordset

connessione :

sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=Admin;Data Source=" & App.path & "\magicolotto.mdb;Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDBatabase Password='';Jet OLEDB:Global Partial Bulk Ops=2"
sSQL = "select ID,Data,BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI 1,FI2,FI3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3, MI4,MI5,NA1,NA2,NA3,NA4,NA5,PA1,PA2,PA3,PA4,PA5,RO 1,RO2,RO3,RO4,RO5,TO1,TO2,TO3,TO4,TO5,VE1,VE2,VE3, VE4,VE5 from archivio"
data = Format(data, "dd/mm/yyyy")
' apre la connessione
Set dfwConn = New Connection
dfwConn.Open sConnect

' crea un gruppo di record utilizzando l'insieme specificato
Set datPrimaryRS = New Recordset
datPrimaryRS.CursorLocation = adUseClient
datPrimaryRS.Open sSQL, dfwConn, adOpenForwardOnly, adLockReadOnly

anteprima :

Originariamente inviato da oregon
E' quasi impossibile rispondere alla tua domanda senza conoscere

3) il significato dei cicli e degli indici ...

i cicli

For i = 2 To 47 Step 5 ' parte a contare da bari fino a torino
For j = i To j + 4
For k = j + 1 To i + 4
For q = k + 1 To i + 4

cosi facendo troviamo tutti i terni e li conteggiamo cosi :

terni(sb, st, sc) = terni(sb, st, sc) + 1

quindi :
If terni(sb, st, sc) >= 2 Then
se un terno si è ripetuto almeno due volte lo inserisce nella lista

List3.AddItem maxvolte & " Sortite del " & CStr(sb) & " " & CStr(st) & " " & CStr(sc) & " in data " & dat

se trova la condizione dovrei scrivere anche le date

utilizo il metodo FIND PER POSIZIONARMI SUL RECORSET
datPrimaryRS.Find cerca
poi inizia il ciclo
While Not datPrimaryRS.EOF

come ho inserito al post iniziale( vedi sopra)


grazieeeee