مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL

مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL (/showthread.php?tid=47312)

مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL - صالح عبدالله - 13-10-23

السلام عليكم ورحمة الله وبركاته
عندي مشكلة حاولت حلها على مدى أيام وكني عجزت عن حلها وهي يوجد لدي CheckedListBox1 مرتبط مع جدول يغذيه بالبيانات ما أريده هو أن يتم حفظ Items التي إخترتها في جدول آخر هو Main_Table
المشكلة أنه يتم حفظ الـ Item الأخير فقط ولايحفظ العناصر المحددة قبله مع أنيي قمت بعمل Loop علماً بأن العنصر المطلوب حفظه من checkedListBox1 هو عنصر Job
أتمنى سؤالي يكون واضح ولكم خالص شكري
الكود المستخدم هو

Dim i1 As Integer

For i1 = 0 To CheckedListBox1.Items.Count - 1

If CheckedListBox1.GetItemChecked(i1) Then

Dim sqlq As String = "insert into Main_Table values(@Personal_Num,@Student_Name,@Job)"

Dim sqlcmd As New SqlCommand(sqlq, Sqlcon)

sqlcmd.Parameters.Add(New SqlParameter("@Personal_Num", SqlDbType.NVarChar, 15) With {.Value = TextBox1.Text})

sqlcmd.Parameters.Add(New SqlParameter("@Student_Name", SqlDbType.NVarChar, 80) With {.Value = TextBox2.Text})

sqlcmd.Parameters.Add(New SqlParameter("@Job", SqlDbType.NVarChar, 50) With {.Value = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItem)})

Sqlcon.Open()

sqlcmd.ExecuteNonQuery()

Sqlcon.Close()

End If

RE: مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL - aljzazy - 14-10-23

كود :

For Each item As Object In checkListBox1.CheckedItems

               Dim valueToInsert As String = item.ToString()

        Next

                Dim sqlq As String = "insert into Main_Table values(@Personal_Num,@Student_Name,@Job)"

                        Dim sqlcmd As New SqlCommand(sqlq, Sqlcon)

                        sqlcmd.Parameters.Add(New SqlParameter("@Personal_Num", SqlDbType.NVarChar, 15) With {.Value = TextBox1.Text})

                        sqlcmd.Parameters.Add(New SqlParameter("@Student_Name", SqlDbType.NVarChar, 80) With {.Value = TextBox2.Text})

                sqlcmd.Parameters.Add(New SqlParameter("@Job", SqlDbType.NVarChar, 50) With {.Value =valueToInsert})

                        Sqlcon.Open()

                        sqlcmd.ExecuteNonQuery()

                        Sqlcon.Close()

                    End If

RE: مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL - Ahmed5 - 15-10-23

(13-10-23, 01:09 PM)صالح عبدالله كتب : السلام عليكم ورحمة الله وبركاته
عندي مشكلة حاولت حلها على مدى أيام وكني عجزت عن حلها وهي يوجد لدي CheckedListBox1 مرتبط مع جدول يغذيه بالبيانات ما أريده هو أن يتم حفظ Items التي إخترتها في جدول آخر هو Main_Table
المشكلة أنه يتم حفظ الـ Item الأخير فقط ولايحفظ العناصر المحددة قبله مع أنيي قمت بعمل Loop علماً بأن العنصر المطلوب حفظه من checkedListBox1 هو عنصر Job
أتمنى سؤالي يكون واضح ولكم خالص شكري
الكود المستخدم هو

Dim i1 As Integer

For i1 = 0 To CheckedListBox1.Items.Count - 1

If CheckedListBox1.GetItemChecked(i1) Then

Dim sqlq As String = "insert into Main_Table values(@Personal_Num,@Student_Name,@Job)"

Dim sqlcmd As New SqlCommand(sqlq, Sqlcon)

sqlcmd.Parameters.Add(New SqlParameter("@Personal_Num", SqlDbType.NVarChar, 15) With {.Value = TextBox1.Text})

sqlcmd.Parameters.Add(New SqlParameter("@Student_Name", SqlDbType.NVarChar, 80) With {.Value = TextBox2.Text})

sqlcmd.Parameters.Add(New SqlParameter("@Job", SqlDbType.NVarChar, 50) With {.Value = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItem)})

Sqlcon.Open()

sqlcmd.ExecuteNonQuery()

Sqlcon.Close()

End If

Next

PHP كود :

               sqlcmd.Parameters.Add(New SqlParameter("@Job", SqlDbType.NVarChar, 50) With {.Value = CheckedListBox1.Items(i1)}) 

RE: مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL - صالح عبدالله - 16-10-23

السلام عليكم ورحمة الله وبركاته
الشكر الجزيل للأخوين aljzazy و Ahmed جاري التجربة وسأعلمكم بالنتيجة