[VB6] Evitare inserimento di duplicati in ComboBox

[x69asterix]

ciao a tutti,



Dim mydata As Database
Dim myrecord As Recordset
Set mydata = OpenDatabase(App.Path & "\elenco.mdb")
Set myrecord = mydata.OpenRecordset("personale 9")
If myrecord.EOF Then
MsgBox "Nessun nome nel database di questo Sistema", vbInformation, "Errore"
Else
myrecord.MoveFirst
Do Until myrecord.EOF
Combo1.AddItem myrecord.Fields("data")
Combo2.AddItem myrecord.Fields("nome")
Combo4.AddItem myrecord.Fields("reparto")
myrecord.MoveNext
Loop
End If
mydata.Close
End Sub


in questo modo però mi ritrovo nei combo anche i doppioni, invece come posso fare ad elimare i doppioni dal combo?


ciao

[oregon]

Tu sicuramente hai presente il problema ma chi ti legge non sa nulla ...

Dovresti gentilmente spiegare cosa contiene la tabella, cosa vuoi fare e a quali doppioni ti riferisci ...

[x69asterix]

Originariamente inviato da oregon
Tu sicuramente hai presente il problema ma chi ti legge non sa nulla ...

Dovresti gentilmente spiegare cosa contiene la tabella, cosa vuoi fare e a quali doppioni ti riferisci ...

ciao,
allora col codice di sopra io non faccio altro che inserire tutti i campi "data" della tabella.mdb,
Combo1.AddItem myrecord.Fields("data").
bene è chiaro che in quella tabella vi sono diversi record con quella data, quindi quello che penso di fare è visto che devo aggiungere nel combo la data mi devo inserire il campo data di valore diverso.

es:
se ho due record col campo data0 29/07/2005, in questo modo nel combo mi ritrovo due listindex uguali.
Invece di questi due campi visto che la data è = ne devo prendere una sola.

[oregon]

Originariamente inviato da x69asterix
ciao,
allora col codice di sopra io non faccio altro che inserire tutti i campi "data" della tabella.mdb,
Combo1.AddItem myrecord.Fields("data").
bene è chiaro che in quella tabella vi sono diversi record con quella data, quindi quello che penso di fare è visto che devo aggiungere nel combo la data mi devo inserire il campo data di valore diverso.

es:
se ho due record col campo data0 29/07/2005, in questo modo nel combo mi ritrovo due listindex uguali.
Invece di questi due campi visto che la data è = ne devo prendere una sola.

Tabella.mdb cos'e' ?

Scusami, ma la terminologia corretta e' importante ...

1) stai usando DAO (sarebbe meglio ADO ... comunque ...)
2) il database si chiama Elenco.Mdb (e' quello verso cui apri la connessione) ...
3) leggi i dati da una tabella che si chiama "personale 9"
4) in questa tabella hai un campo che chiami data (presumo di tipo date ...)

Non vuoi estrarre i record dalla tabella che data eguale ... ma quale devi scegliere tra, ad esempio, tre che hanno la data eguale?

[ale500]

invece che aprire l'intera tabella perchè non fai una bella SELECT DISTINCT Data FROM personale 9 VVoVe:

PS
nomi di campi, tabelle, db etc cerca di farli il più semplice possibile, e con semplice intendo usare soltanto lettere e numero, niente spazi o caratteri accentati.

[oregon]

Sono d'accordo sulla

SELECT DISTINCT Data FROM [Personale 9]

ma questa query non determinera' quali record estrarre tra quelli ripetuti ...

[ale500]

no, semplicemente prenderà tutte le date diverse...

[x69asterix]

Originariamente inviato da ale500
no, semplicemente prenderà tutte le date diverse...

ciao,
in effetti ho provato come mi hai suggerito è funziona in modo egregio, ottimo lavoro!
ciao