数時間試行した後、SQL ソースにバインドされたチェック リストを取得することができました。ただし、チェックリストでチェックされているすべての項目を取得したいと考えています。上記のコードを試しましたが、うまくいきません
For i As Integer = 0 To checkList_Facility.Items.Count - 1
If (checkList_Facility.GetItemChecked(i)) = True Then
MsgBox(checkList_Facility.Items(i))
End If
Next
バインディング コード:
Dim queryString As String = "SELECT Facility FROM Database.dbo.Facility"
Dim connection As New SqlConnection(connectionString)
Dim command As New SqlCommand(queryString, connection)
connection.Open()
Dim dataReader As SqlDataReader = command.ExecuteReader()
Dim var As New DataTable
Dim source As New BindingSource
source.DataSource = dataReader
CheckList_Facility.DataSource = source
CheckList_Facility.ValueMember = "Facility"
connection.Close()