+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود قراءة البيانات من ChekedBoxLis (/showthread.php?tid=11836)
كود قراءة البيانات من ChekedBoxLis - مبرمج 2015 - 22-03-15
السلام عليكم ورحمة الله وبركاته ..
لدي كود لحفظ البيانات من قائمة 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