Salve ragazzi volevo porVi il mio problema. Non mastico molto il VB6 e volevo postarmi il mio quesito. Praticamente faccio una ricerca in una tabella di un foglio access e posiziono i risultati della ricerca in una combo box.
La ricerca a dir il vero non discrimina nulla e posiziona all'interno della combo tutti i valori presenti nel campo della tabella (nella fattispecie il campo è ORIGINE e la tabella topo_veicoloBT_A; il db è topografico.mdb).
Nel campo ORIGINE ci sono diverse celle che contengono valori uguali ed io vorrei inserire nella combo solo i valori diversi scartando ... appunto quelli uguali.

  • Dim appoggio As Variant

    Private Sub Form_Load()

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=topografico.mdb"
    rs.Open "SELECT ORIGINE FROM topo_veicoloBT_A", cn, 1

    While rs.EOF = False

    appoggio = CStr(rs("ORIGINE").Value & "")
    cmb_lista_connettori.AddItem CStr(rs("ORIGINE").Value & "")

    rs.MoveNext

    'If CStr(rs("ORIGINE").Value & "") <> appoggio Then
    'cmb_lista_effettiva.AddItem CStr(rs("ORIGINE").Value & "")
    'End If

    Wend

    End Sub


Spero di essermi spiegato bene. Vi ringrazio anticipatamente per ogni vostro minimo aiuto. Grazie.