Click here to Skip to main content
11,490,003 members (67,007 online)
Rate this: bad
Please Sign up or sign in to vote.
See more: VB VB.NET
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
Posted 10-Mar-13 17:57pm
Edited 10-Mar-13 19:09pm
Sergey Alexandrovich Kryukov at 10-Mar-13 23:46pm
Not clear. What error? Do you mean exception? Please, full exception information, but also show some code sample.
PBubble at 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

Rate this: bad
Please Sign up or sign in to vote.

Solution 2

Maybe you can use distinct in your SQL statement. For example:
Dim sql1 = "select distinct from NTIdb where Client in " + clientList
PBubble at 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)

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 600
1 Andy Lanng 233
2 OriginalGriff 208
3 Maciej Los 160
4 _duDE_ 141
0 Sergey Alexandrovich Kryukov 9,608
1 OriginalGriff 8,475
2 Sascha Lefèvre 3,419
3 Maciej Los 3,106
4 Richard Deeming 2,370

Advertise | Privacy | Mobile
Web02 | 2.8.150520.1 | Last Updated 11 Mar 2013
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100