Un saluto a tutti premetto che non sono molto ferrato sul vb.
Scrivo questa discussione perchè non riesco a risolvere questo problema:
Vorrei settare a checked delle checkbox confrontandole con dei dati estratti da un campo su di un database e se quest'ultimi corrispondono al text delle checkbox queste verranno selezionate automaticamente.
Il codice che ho scritto purtroppo mi spunta solo una checkbox che corrisponde al primo elemento dell'array e il ciclo non prosegue, vi chiedo aiuto!!
questo è il codice:
codice:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim test As String
Dim connStr2 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\dbtest.accdb"
Conn2 = New OleDbConnection(connStr2)
Dim command2 As OleDbCommand
Conn2.Open()
SQLString2 = "Select ckb_text from test_table"
command2 = New OleDbCommand(SQLString2, Conn2)
Dim rd As OleDbDataReader = command2.ExecuteReader
rd.Read()
test = rd.Item(0).ToString
Conn2.Close()
Dim ar As String() = test.Split(New Char() {","c})
Dim sel_ckb As String
For Each cb As CheckBox In SplitContainer1.Panel1.Controls
For Each sel_ckb In ar
If sel_ckb.ToUpper() = cb.Text Then
cb.Checked = True
End If
Next
Next
End Sub