Visual Basic 6 - Visualizzazione ricerca dati

Potresti usare un secondo datagrid slegato dal recorsdset

Scorrere la prima griglia assegnando per ogni riga la data di estrazione ad una variabile

For i = Prima riga TO UltimaRiga
D=data estrazione riga(i)
Sql2 .... WHERE data = D
aggiungere da programma i dati dei 9 record alla Griglia2
Next

Ho scritto così ma mi da errore "tipo non corrispondente" alla i del for

For i = 1 To 9
  D = estraz.riga(i)
  Sql2 = Sql2 & " SELECT Estratti.Estraz,Concorso,BA1,BA2,BA3,BA4,BA5 "
  Sql2 = Sql2 & " FROM Estratti"
  Sql2 = Sql2 & " Where data = D"
  rs1.Open Sql2, cn, adOpenDynamic, adLockOptimistic, adCmdText
  Set DataGrid7.DataSource = rs1   ' Estratti
  Next

For i = 1 to 9 va bene a posto di For i = Prima riga TO UltimaRiga

Grazie e ciao

Ho paura che tu non abbia capito cosa intendevo prima

Prima riga deve essere la prima riga del datagrid6
(non so come siano numerate le righe di un datagrid, ovvero se partono da 0 o da 1)

UltimaRiga è l'ultima riga del datagrid6
(se il datagrid6 ha 105 righe sarà 104 o 105 a seconda se parte da 0 o da 1)

Che cosa significano le righe seguenti:

D=estraz.riga(i)

D è dimensionata come stringa?
estraz.riga(i) è una subroutine che estrae il valore della colonna "data estrazione" del datagrid6 alla riga (i)?

Sql2 = Sql2 & " Where data = D"

è un errore di battitura o non hai capito come si debba aggiungere una variabile alla Sql?
Sql2 = Sql2 & " Where data =" & D

Set DataGrid7.DataSource = rs1

Così facendo ogni ciclo della Sql2 sovrascrive i dati della precedente

Devi studiare come si attribuiscono i valori del risultato della Sql a delle variabili e come poi si aggiungono questi valori alla datagrid6

A questo punto c'è il next

Molto, molto studio.

Ciao Alfonso, devi avere un pò di pazienza, purtroppo mi mancano le basi e il tempo per studiare e approfondire è sempre poco.

For i = 1 To Rs.RecordCount  ' conta le righe presenti nel datagrid
  D = #1/7/1939#
  Sql2 = Sql2 & " SELECT Estratti.Estraz,Concorso,BA1,BA2,BA3,BA4,BA5 "
  Sql2 = Sql2 & " FROM Estratti"
  Sql2 = Sql2 & " Where Estraz = " & D
  rs1.Open Sql2, cn, adOpenDynamic, adLockOptimistic, adCmdText
  Set DataGrid7.DataSource = rs1   ' Secondo Datagrid
  Next

Ho fatto così, ovviamente non mi funziona , ma il mio dubbio è questo:
perchè devo partire dalla prima riga che è del 01/07/1939? Io all'uscita del numero richiesto es: 15 (che inserisco nel textbox) parto da quella data 02/09/1939 e scrivo nel secondo datagrid le nove estrazioni successive a quella data.
La routine dovrebbe continuare a cercare un'altro numero 15 e al rilevamento 21/10/1939 aggiunge le nove estrazioni successive al secondo datagrid, ecosì va avanti fino ad arrivare alla fine dell'archivio.
Certo non sò data l'inesperianza quale può essere il metodo migliore ma credo che ci voglia un Loop .
Scusami se dico cavolate e garzie ancora