DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

FILL COMBO WITHOUT dupes...

•

Join Date: Feb 2008

Posts: 20

Reputation: sal21 is an unknown quantity at this point

Solved Threads: 0

sal21

Offline

Newbie Poster

FILL COMBO WITHOUT dupes...

Jan 7th, 2009

Admit have mymdb.mdb with table mytable and filed myfield in c:\...
Ho to fill combobox without dupes from table, please without "select distinct..." statement is possible?
Tks.

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: FILL COMBO WITHOUT dupes...

Jan 7th, 2009

Hi,
My suggestion
> Use ORDER BY Clause
> Iterate thru all records
> If duplicate occurs (If current = previous), simply ignores it

KSG

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: FILL COMBO WITHOUT dupes...

Jan 8th, 2009

Hi,

Try This :

Code is easy for ListBox..
If you want To Poulate a Combo Only, Then Place a ListBox on the Form and Set it's property Visible = False

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim str1 As String
RS.MoveFirst
List1.Clear
Combo1.Clear
Do While Not RS.EOF
    str1 = RS("MyField") & ""
    List1.Text = str1
    If List1.SelCount = 0 Then
       List1.AddItem str1
       Combo1.AddItem str1
    End If
    RS.MoveNext
Loop
Dim str1 As String
RS.MoveFirst
List1.Clear
Combo1.Clear
Do While Not RS.EOF
    str1 = RS("MyField") & ""
    List1.Text = str1
    If List1.SelCount = 0 Then
       List1.AddItem str1
       Combo1.AddItem str1
    End If
    RS.MoveNext
Loop