connessione :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
anteprima :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
![]()
i cicliOriginariamente inviato da oregon
E' quasi impossibile rispondere alla tua domanda senza conoscere
3) il significato dei cicli e degli indici ...
cosi facendo troviamo tutti i terni e li conteggiamo cosi :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
quindi :terni(sb, st, sc) = terni(sb, st, sc) + 1
If terni(sb, st, sc) >= 2 Then
se un terno si è ripetuto almeno due volte lo inserisce nella lista
se trova la condizione dovrei scrivere anche le dateList3.AddItem maxvolte & " Sortite del " & CStr(sb) & " " & CStr(st) & " " & CStr(sc) & " in data " & dat
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![]()