Visual Basic 6 - CARICARE IN UN COMBO

ciao ragazzi ho due combo
txtdata ---txtdata2

carico il primo cosi

Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Dim strConnection As String
    strPercorsoDB = App.Path & "\ESTRAZIONI.mdb"
    
    strConnection = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPercorsoDB & ";;Jet OLEDB:Database Password=wwwww"
    cn.Open (strConnection)
    
    rs.Open "SELECT * FROM archivio", cn, 1
    
    While rs.EOF = False
    
        txtData2.AddItem Format(rs("Data"), "mm/dd/yyyy")
        rs.MoveNext
    Wend

carico le date di un archivio LOTTO

quindi in un mese ci stanno circa 12 date

IL MIO INtento è .. : : :
quello di---> appena scelgo la data tramite menu a tendina del primo COMBI ,txtdata

Vorrei che nel secondo combo txtdata2
mi venga inserita in automatico la data di 18 estrazioni successive a quella inserita nel combo txtdata


come potrei fare??

bè in maniera teorica... nell'evento click del combo1 vedi qual'è la data scelta, la cerchi nel database e selezioni i successivi 18 risultati (ossia le successive 18 date, sperando che il db sia "ordinato" e le aggiungi al combo 2

come è strutturato il db? ossia che colonne hai messo?

nel campo che vado a caricare, il campo data....

l'archivio è ordinato in modo crescente... di data
con il campo ID che indicizza il tutto

soluzione un pò grottesca, cmq potresti ricavare l'id della data selezionata dal combo1, poi con un ciclo incrementi l'id e prendi tutte le date corrispondenti e le aggiungi alla combo2..

sono abbastanza sicuro che c'è qualche funzione che semplifica il tutto, ma visto che non la conosco ho pensato così, poi cerco sul mio manuale di MySQL se c'è qualcosa che fa al caso tuo

si avevo pensato anche io di agire sull'ID

ma se cèra qualcosa di piu' semplice...

purtroppo non saprei... comunque puoi provare a postare in un altra sezione come quella del php e vedere se qualcuno conosce un metodo più rapido