[VB6]: Campo ID e ricerca in DataGrid

[Magicolotto]

Ecco visualizzato sotto il mio DataGrid :


come si puo' notareci sta un campo :
ID

DATA

BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI1,FI2,FI 3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3,M4,MI

SIno AL CINQUANTESSIMO CAMPO :
VE1,V2,V3,V4,V5



cosa devo fare:

devo tramite
Private Sub Command1_Click()

far contare il campo ID da 7608 come viene visualizzato fino all'ultimo ID in questo caso 7639

ho impostato una cosa del genere come codice , pero' non va :

Private Sub Command1_Click()
    Dim e As Integer
    Dim a As Double
    Dim i As Integer
    For e = 1 To 2
    For pos = 1 To 5
    Query = "SELECT BA & pos,CA & pos,FI & pos,GE & pos,MI & pos,NA & pos,PA & pos,RO & pos,TO & pos,VE & pos FROM archivio Were ID=" & Int(Id) + e
    Next i
  Next pos
Next e
End Sub

CMQ DOPO AVER SAPUTO IMPOSTARE LA select

dovrei ricercare nei vari
adoPrimaryRS

e cercare una determinata combinazione di numeri.......




mi aiutate perfavoreeee

[oregon]

Come sempre, non si e' capito nulla ...

[Magicolotto]

lo so faccio schifo per la mia inesperienza..


dove non si è capito?

[wallrider]

non serve esperienza per spiegare chiaramente un problema :rollo:
Fai finta di non sapere cosa il tuo programma deve fare e rileggiti il tuo 3d, ci capisci qualcosa?
Adesso sei ad un bivio: di solito la gente dice "Ok mi spiego meglio" e poi complica le cose

Non cascarci anche te !

[Magicolotto]

dove o cosa non si è capito

[oregon]

Tutto ...

[Magicolotto]

ok cerco di essere piu' chiaro, anzi cerco di farmi capire :

nella mia DataGrid
inserisco un command ed una listbox

nella command inserisco questo codice di ricerca ... :

Private Sub Command2_Click()
Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim z As Integer
    
    Dim o As Integer
    Dim p As Integer
    Dim y As Integer
       List3.Clear
 
       
    z = 0
    y = 0

    For i = 2 To 42 Step 5 ' parte a contare da bari fino  a torino
        For j = i To j + 4
            For k = j To i + 4
            For u = i + 5 To 47 Step 5  'questa parte da cagliari fino a  venezia
                  For o = u To o + 4
                     For p = o + 1 To u + 4
                 
             sb = adoPrimaryRS(j)
              st = adoPrimaryRS(k)
              sc = adoPrimaryRS(o)
              sv = adoPrimaryRS(p)
              q1 = sb
              q2 = st
              q3 = sc
              q4 = sv
    
    


    'condizione di ricerca
   If (q1 = q3 And q2 = q4) Or (q1 = q4 And q2 = q3) Then
 
  ' fine condizione
   
   
       
           List3.AddItem  CStr(q1) & " " & CStr(q2) & "  " &  CStr(q3) & " " & CStr(q4)
              
                z = z + 1
                y = y + 1

                 End If
                 
                 
                 
                      Next p
                   Next o
              Next u
            Next k
        Next j
    Next i

End Sub

premetto che funziona perfettamente che l'ho verificato....

esso effettua la ricerca solo sulla linea interessata del datagrind, cio su quella evidenziata, cio quella che viene cliccata col mouse...
ecco la figura :


io vorrei fare tale elaborazione non sulla linea dei recordset una per volta, ma il mio intento è quello di precedere su un gruppo, e cercavo di farlo tramite il campo ID , magari con un contatore...
del tipo
contare dall'ID 7600 SINO ALL'ULTMO in questo caso 7640

spero di essere stato chiaro stavolta
ciao e buon pranzo

[Magicolotto]

seven UP

[oregon]

Queste operazioni si fanno eseguendo una

SELECT

per aprire il recordset in cui viene indicata una clausola

WHERE

che seleziona il gruppo. Ad esempio

WHERE ID BETWEEN 7600 AND 7640

Fatto questo, nel recordset hai solamente i dati selezionati e li esplori tutti con un ciclo del tipo

While Not adoPrimaryRS.EOF

  adoPrimaryRS.MoveNext
Wend

[Magicolotto]

un esempio mirato di select?