Click here to Skip to main content
15,936,709 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
Because I have 6 CheckedListBox and whenever I select items from 4 CheckedListBoxes only, an error pops up but it still filters.

(For every CheckedBoxList, this is the code that I use but with different variable names)
And also is there a way to make multiple data into one? Example is, when I input John in Client 4x, it would show John(x4) in the CheckedListBox. But the goal is to filter.. Is there a way to make John appear once?

Dim dt1 As DataTable
      Dim ds1 As New DataSet
      cnn = New OleDbConnection(connectionString)
      Dim clientList As String = "("
      For item1 As Integer = 0 To CheckedListBox2.CheckedItems.Count - 1
          clientList += "'" & CheckedListBox2.CheckedItems(item1) & "',"
      clientList = clientList.Substring(0, clientList.Length - 1) + ")"

      Dim sql1 = "select * from NTIdb where Client in " + clientList

          adptr = New OleDbDataAdapter(sql1, cnn)

          dt1 = ds1.Tables(0)
          Form5.DataGridView1.DataSource = dt1

      Catch ex As Exception
      End Try
      Form5.DataGridView1.Visible = True
Updated 10-Mar-13 18:09pm
Sergey Alexandrovich Kryukov 10-Mar-13 23:46pm    
Not clear. What error? Do you mean exception? Please, full exception information, but also show some code sample.
PBubble 11-Mar-13 0:11am    
Updated the question! And the error that appears is "In operator without () in query expression" but someone told me it's because I did not check a box from one of the CheckedListBox that's why I get that error.

1 solution

Maybe you can use distinct in your SQL statement. For example:
Dim sql1 = "select distinct <requiredcolumnonly> from NTIdb where Client in " + clientList
Share this answer
PBubble 11-Mar-13 10:51am    
Nope it still says the same error.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900