[مبرمج 2015]

السلام عليكم ورحمة الله وبركاته ..

لدي كود لحفظ البيانات من قائمة ChekedBoxList  في حقل واحد على هذه الهيئة

إقتباس :0;1;2

وخذا كود الحفظ :

كود :

Dim checkedItemsList As Integer() = New Integer(CheckedListBox1.CheckedIndices.Count - 1) {}
       Dim sb As New StringBuilder()
       For i As Integer = 0 To CheckedListBox1.CheckedIndices.Count - 1
           checkedItemsList(i) = CheckedListBox1.CheckedIndices(i)
           sb.Append(checkedItemsList(i))
           sb.Append(";")
       Next
       CheckedListBox1.Tag = sb


       Dim cmd As New SqlCommand("Insert into tb values('" & sb.ToString() & "')", connDB)
       Dim iCount As Integer = cmd.ExecuteNonQuery()
       connDB.Close()

وأبحث عن كود لقرائتها من الحقل وأظهارها على ChekedBoxList  أي العكس

لدي كود لكن لا يعمل

كود :

       Dim intersts As String = ""
       Dim cmd As New SqlCommand("Select Interests from tb", connDB)

       Dim dr As SqlDataReader
       dr = cmd.ExecuteReader()
       If dr.Read() Then
           intersts = dr("Interests").ToString()
       End If
       connDB.Close()

     

       For Each i As ListItem In CheckedListBox1.Items
           For Each s As String In intersts.Split(";"c)
               If i.Value = s Then
                   i.Selected = True
                   Exit For
               End If
           Next
       Next

لكن هذا الكود يظهر رسالة خطأ :

إقتباس :Type 'ListItem' is not def