[VB6] Escludere elementi uguali in ComboBox caricando da database Access

[ing.tammaro]

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.

[Grumpy]

Originariamente inviato da ing.tammaro
Spero di essermi spiegato bene

Non molto, a dire il vero. Cosa sarebbe un "foglio access" ? E che vuol dire che in un campo ci sono diverse celle?

Tuttavia si intuisce che puoi risolvere il tuo problema semplicemente aggiungendo la parola chiave DISTINCT nella query (dopo SELECT).

P.S.: una lettura preliminare del regolamento è sempre utile (titoli, formattazione del codice,...)

[oregon]

Più che "masticare" il VB6, servirebbe una buona formazione di base sui Database.

[alka]

Originariamente inviato da ing.tammaro
VB6 e access

Invito a usare titoli più significativi e rappresentativi di questo.
Il titolo di questa discussione l'ho corretto io.