urgent please help me !!!

[ninjaX]

i got a problem to add a data to my checkedlistbox the command is like that

==============================================
Try
conn.Open()
Dim sql = "SELECT * FROM CustomerBooking WHERE cday='" & Me.day.Text & "' And cmonth='" & Me.month.Text & "' And carrivetime='" & Me.carrivetime.Text & "' And cyear ='" & Me.year.Text & "'"

cmd = New OleDbCommand(sql, conn)

Dim dr As OleDbDataReader = cmd.ExecuteReader

While dr.Read

Num1 = dr("tablenumber")
Me.CheckedListBox1.Items.Add(Num1)

End While

dr.Close()
conn.Close()

Catch ex As Exception
MsgBox(ex.Message)
End Try

==============================================

y the result given to me is a duplicate one ??

example i have 1,2,3 inside my database

and the checkedlistbox result is 1,2,3,1,2,3 double time

wat is the problem ?

please help

[pax]

Hi.

I don't now much about SQL but I think the problem lies elsewhere.

I noticed that you do not clear the items in the list before adding.
So if, for some reason, you function gets called twice it will add them again.

You can check for this very easily by adding a messagebox on the beginning of the function. Then you can see if that msg comes up twice.

But I would recommend clearing the items in the list before adding anyway.

Hope this helps.

[Memnoch1207]

You'll have to do a DISTINCT query

SELECT DISTINCT tableNumber FROM etc...

[ninjaX]

Thank You I solve the problem already
thanx for helping me