combo - remove duplicate values

[murushanmugham]

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

With conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\name.mdb"
.Open
End With

rs.Open "SELECT * FROM Users", conn, adOpenForwardOnly, adLockReadOnly

For i = 0 To rs.Fields.Count - 1
Combo1.AddItem rs.Fields(i).Name
Next

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

MsgBox "Field names loaded!", vbInformation

End Sub

i want to remove the duplicate value , how i remove it

thanks in advance muru

 

[petermeachem]

You do that by not putting them in in the first place.
SELECT DISTINCT Name,Password FROM Users
or whatever the field names are

http://www.accuflight.com

http://www.lettersdirect.co.uk

http://www.ourhouseinportugal.co.uk/

 

[murushanmugham]

okay
my main aim is to remove the combo box

that is repetative value may not add in the combo box

 

[petermeachem]

Not sure what you mean

http://www.accuflight.com

http://www.lettersdirect.co.uk

http://www.ourhouseinportugal.co.uk/

 

[murushanmugham]

i mean

"Christ"
"King"
"Jesus"
"King"

that means automatically remove king from the combo list

muru

 

[strongm]

The reason peter does not quite understand you is because he's already given you a method for eliminating such duplications, and you have not explained why that suggestion is inappropriate for you (which makes it difficult to suggest alternatives)

 

[murushanmugham]

ssql = "SELECT DISTINCT sname from libmas order by sname"
rs.Open ssql, con, adOpenKeyset, adLockOptimistic
Dim i As Long
For i = 0 To rs.RecordCount
Subject.AddItem rs("sname")
Next
distinct item in the list is 80

combo box add only first 80 records only, all are same name

muru

 

[murushanmugham]

i made a mistake of rs.movenext

ok thank you very much

it works fine

muru