تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود قراءة البيانات من ChekedBoxLis
#1
السلام عليكم ورحمة الله وبركاته ..

لدي كود لحفظ البيانات من قائمة 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت جيولوجي مبتدئ 1 23 أمس, 08:35 PM
آخر رد: عبد العزيز البسكري
  تحديث قاعدة البيانات علي جهاز العميل makky 1 47 19-10-18, 04:13 PM
آخر رد: ahmedmansour
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 65 18-10-18, 01:09 PM
آخر رد: nabil.1710
  كيف ابحث داخل قاعدة البيانات احمد خطاب 2 81 17-10-18, 01:51 AM
آخر رد: اسامه الهرماوي
  [نقاش] خطأ بسيط في الاتصال بقاعدة البيانات اسامه الهرماوي 4 149 17-10-18, 01:44 AM
آخر رد: اسامه الهرماوي
  البحث عن يوم في قاعدة البيانات atefkhalf2004 2 80 16-10-18, 09:18 PM
آخر رد: WAEL ABED
  لماذا تظهر علامة خطأ على قاعدة البيانات دائماً ؟ Hazem1 0 61 12-10-18, 02:17 PM
آخر رد: Hazem1
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 110 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  جلب بيانات الوقت من قاعدة البيانات access وادخالها في جدول excel alfauori 2 71 09-10-18, 03:25 AM
آخر رد: alfauori
  [VB.NET] ادخال البيانات بالجدوال المرتبطة abu ammar 3 91 06-10-18, 10:33 PM
آخر رد: asemshahen5

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم