For item As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1 Dim sql = "select * from Status where Stat= " & CheckedListBox1.CheckedItems(item).ToString() & "" Dim dt As DataTable Dim ds As New DataSet cnn = New OleDbConnection(connectionString) Try cnn.Open() adptr = New OleDbDataAdapter(sql, cnn) adptr.Fill(ds) adptr.Dispose() cnn.Close() dt = ds.Tables(0) Form5.DataGridView1.DataSource = dt Catch ex As Exception MsgBox(ex.ToString) End Try Form5.DataGridView1.Visible = True Next
Dim sql = "select * from Status where Stat= '" & CheckedListBox1.CheckedItems(item).ToString() & "'"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)